time_range Subroutine

private recursive subroutine time_range(self, t_min, t_max)

The time range the simulation time is limited to (s; +-huge() if unlimited).

Type Bound

SimulationClock

Arguments

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

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

the time range (s)

Called by

proc~~time_range~4~~CalledByGraph proc~time_range~4 SimulationClock%time_range proc~time_range~4->proc~time_range~4 proc~synchronize SimulationClock%synchronize proc~synchronize->proc~time_range~4 proc~synchronize->proc~synchronize proc~time_range WindowProxy%time_range proc~time_range->proc~time_range~4

Source Code

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