Reduces the time step by a factor delt_adj.
delt_adj
subroutine reduce_time_step use gs2_time, only: code_dt implicit none if (first) call init_reinit code_dt = code_dt/delt_adj end subroutine reduce_time_step