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

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