rm_timer_env Subroutine

public subroutine rm_timer_env()

removes the current timer env from the stack

Note

for each rm_timer_env there should have been the symmetric call to add_timer_env

Arguments

None

Source Code

   SUBROUTINE rm_timer_env()
      !! removes the current timer env from the stack
      !! @note
      !! for each rm_timer_env there should have been the symmetric call to
      !! add_timer_env

      TYPE(timer_env_type), POINTER                      :: timer_env

      timer_env => list_pop(timers_stack)
      CALL timer_env_release(timer_env)
      IF (list_size(timers_stack) == 0) CALL list_destroy(timers_stack)
   END SUBROUTINE rm_timer_env