returns the current timer env from the stack
FUNCTION get_timer_env() RESULT(timer_env)
!! returns the current timer env from the stack
TYPE(timer_env_type), POINTER :: timer_env
timer_env => list_peek(timers_stack)
END FUNCTION get_timer_env