reduce_time_step Subroutine

public subroutine reduce_time_step()

Uses

Reduces the time step by a factor delt_adj.

Arguments

None

Contents

Source Code


Source Code

  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