tem_startTimer Subroutine

public subroutine tem_startTimer(me, timerHandle)

Start the timer for the given timer handle

Arguments

Type IntentOptional Attributes Name
type(tem_timer_type), intent(inout), optional :: me

timer object
integer, intent(in) :: timerHandle

Handle of the timer to start

Calls

proc~~tem_starttimer~~CallsGraph proc~tem_starttimer tem_startTimer mpi_wtime mpi_wtime proc~tem_starttimer->mpi_wtime

Called by

proc~~tem_starttimer~~CalledByGraph proc~tem_starttimer tem_startTimer proc~tem_simcontrol_syncupdate tem_simControl_syncUpdate proc~tem_simcontrol_syncupdate->proc~tem_starttimer proc~tem_start tem_start proc~tem_start->proc~tem_starttimer

Source Code

  subroutine tem_startTimer( 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
      if ( .not. me%running%val(timerHandle) ) then
        me%running%val(timerHandle) = .true.
        me%tStart%val(timerHandle)  = mpi_wtime()
      end if
    else
      if ( .not.timer%timedat%running%val(timerHandle) ) then
        timer%timedat%running%val(timerHandle) = .true.
        timer%timedat%tStart%val(timerHandle)  = mpi_wtime()
      end if
    end if

  end subroutine tem_startTimer