Routine to initialize the time variables.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(in) | :: | t0 | The initial time, . |
subroutine init_time ( t0 )
!! Routine to initialize the time variables.
implicit none
real(wp), intent(in) :: t0
!! The initial time, \(t_0\).
time = t0
qtime = t0
end subroutine init_time