set_time_range Subroutine

private recursive subroutine set_time_range(self, t_min, t_max)

Limit the simulation time to [t_min, t_max] (ignored if t_max < t_min).

Type Bound

SimulationClock

Arguments

Type IntentOptional Attributes Name
class(SimulationClock), intent(inout) :: self
real(kind=wp), intent(in) :: t_min

the time range (s)
real(kind=wp), intent(in) :: t_max

the time range (s)

Called by

proc~~set_time_range~3~~CalledByGraph proc~set_time_range~3 SimulationClock%set_time_range proc~set_time_range~3->proc~set_time_range~3 proc~set_time_range WindowProxy%set_time_range proc~set_time_range->proc~set_time_range~3

Source Code

    recursive subroutine set_time_range(self, t_min, t_max)
        class(SimulationClock), intent(inout) :: self
        real(wp), intent(in) :: t_min, t_max        !! the time range (s)
        if (associated(self%sync)) then
            call self%sync%set_time_range(t_min, t_max)
        else if (t_max >= t_min) then
            self%t_min = t_min
            self%t_max = t_max
        end if
    end subroutine set_time_range