now Function

private function now(wall)

The wall time (s): wall if present, else wall_time().

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in), optional :: wall

wall time (s)

Return Value real(kind=wp)


Calls

proc~~now~~CallsGraph proc~now now proc~wall_time wall_time proc~now->proc~wall_time

Called by

proc~~now~~CalledByGraph proc~now now proc~set_time~4 SimulationClock%set_time proc~set_time~4->proc~now proc~set_time~4->proc~set_time~4 proc~update~3 SimulationClock%update proc~update~3->proc~now proc~update~3->proc~set_time~4 proc~frame WindowProxy%frame proc~frame->proc~update~3 proc~stop_recording WindowProxy%stop_recording proc~frame->proc~stop_recording proc~pause SimulationClock%pause proc~pause->proc~set_time~4 proc~set_time WindowProxy%set_time proc~set_time->proc~set_time~4 proc~set_time_scale~2 SimulationClock%set_time_scale proc~set_time_scale~2->proc~set_time~4 proc~set_time_scale~2->proc~set_time_scale~2 proc~stop_recording->proc~set_time~4 proc~synchronize SimulationClock%synchronize proc~synchronize->proc~set_time~4 proc~synchronize->proc~synchronize proc~close WindowProxy%close proc~close->proc~stop_recording proc~resize WindowProxy%resize proc~resize->proc~frame proc~run WindowProxy%run proc~run->proc~frame proc~set_time_scale WindowProxy%set_time_scale proc~set_time_scale->proc~set_time_scale~2

Source Code

    real(wp) function now(wall)
        real(wp), intent(in), optional :: wall      !! wall time (s)
        if (present(wall)) then
            now = wall
        else
            now = wall_time()
        end if
    end function now