tem_time_reset Subroutine

public subroutine tem_time_reset(me)

Reset the time definition.

All counters are reset to 0, and the starting clock is set to the current time.

Arguments

Type IntentOptional Attributes Name
type(tem_time_type), intent(out) :: me

Time type to reset

Calls

proc~~tem_time_reset~~CallsGraph proc~tem_time_reset tem_time_reset mpi_wtime mpi_wtime proc~tem_time_reset->mpi_wtime

Called by

proc~~tem_time_reset~~CalledByGraph proc~tem_time_reset tem_time_reset proc~hvs_output_open hvs_output_open proc~hvs_output_open->proc~tem_time_reset proc~tem_load_restart tem_load_restart proc~tem_load_restart->proc~tem_time_reset proc~tem_simcontrol_start tem_simControl_start proc~tem_simcontrol_start->proc~tem_time_reset proc~tem_simcontrol_steadystate_reset tem_simControl_steadyState_reset proc~tem_simcontrol_steadystate_reset->proc~tem_time_reset proc~tem_start tem_start proc~tem_start->proc~tem_simcontrol_start proc~tem_tracker tem_tracker proc~tem_tracker->proc~hvs_output_open

Source Code

  subroutine tem_time_reset(me)
    ! -------------------------------------------------------------------- !
    !> Time type to reset
    type(tem_time_type), intent(out) :: me
    ! -------------------------------------------------------------------- !
    ! -------------------------------------------------------------------- !

    me%sim   = 0.0_rk
    me%iter  = 0
    me%clock = 0.0_rk

    me%clock_start = MPI_Wtime()

  end subroutine tem_time_reset