Reset the timer to zero for the given timer handle
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_timer_type), | intent(inout), | optional | :: | me |
timer object |
|
integer, | intent(in) | :: | timerHandle |
Handle of the timer to start |
subroutine tem_resetTimer( me, timerHandle )
! -------------------------------------------------------------------- !
!> timer object
type(tem_timer_type), intent(inout), optional :: me
!> Handle of the timer to start
integer, intent(in) :: timerHandle
! -------------------------------------------------------------------- !
if ( present(me) ) then
me%tStart%val(timerHandle) = mpi_wtime()
me%duration%val(timerHandle) = 0._rk
else
timer%timedat%tStart%val(timerHandle) = mpi_wtime()
timer%timedat%duration%val(timerHandle) = 0._rk
end if
end subroutine tem_resetTimer