check_verlet_sweep Subroutine

public subroutine check_verlet_sweep(iterRK)

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: iterRK

Contents

Source Code


Source Code

    subroutine check_verlet_sweep(iterRK)
        integer, intent(inout) :: iterRK
        ! if iterInit iterations were done in the runge-Kutta, switch to verlet scheme
        if (iterRK == iterInit) then
            tVerletSweep = .true.
            iterRK = 0
            call init_verlet_sweep()
        end if
    end subroutine check_verlet_sweep