time_scale Function

private recursive function time_scale(self)

Simulation seconds per wall-clock second.

Type Bound

SimulationClock

Arguments

Type IntentOptional Attributes Name
class(SimulationClock), intent(in) :: self

Return Value real(kind=wp)


Called by

proc~~time_scale~2~~CalledByGraph proc~time_scale~2 SimulationClock%time_scale proc~time_scale~2->proc~time_scale~2 proc~synchronize SimulationClock%synchronize proc~synchronize->proc~time_scale~2 proc~synchronize->proc~synchronize proc~time_scale WindowProxy%time_scale proc~time_scale->proc~time_scale~2

Source Code

    recursive real(wp) function time_scale(self)
        class(SimulationClock), intent(in) :: self
        if (associated(self%sync)) then
            time_scale = self%sync%time_scale()
        else
            time_scale = self%scale_
        end if
    end function time_scale