Routine to restore and increment a backup copy of the time.
Needed for some Runge-Kutta integrators.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(in) | :: | dt | The to use for the increment. |
subroutine restore_and_increment_time ( dt )
!! Routine to restore and increment a backup copy of the time.
!!
!! Needed for some Runge-Kutta integrators.
implicit none
real(wp), intent(in) :: dt
!! The \(\Delta t\) to use for the increment.
time = time_save + dt
qtime = qtime_save + dt
end subroutine restore_and_increment_time