tear_down Subroutine

public subroutine tear_down()

Arguments

None

Calls

proc~~tear_down~2~~CallsGraph proc~tear_down~2 tear_down ESMF_ClockDestroy ESMF_ClockDestroy proc~tear_down~2->ESMF_ClockDestroy ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~tear_down~2->ESMF_TimeIntervalSet ESMF_TimeSet ESMF_TimeSet proc~tear_down~2->ESMF_TimeSet proc~mapl_verify MAPL_Verify proc~tear_down~2->proc~mapl_verify proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine tear_down()
      integer :: status, rc

      call ESMF_TimeSet(start_time, _RC)
      call ESMF_TimeIntervalSet(timestep, _RC)
      call ESMF_ClockDestroy(clock, _RC)
      call ESMF_TimeSet(default_time, _RC)
      call ESMF_TimeIntervalSet(time_interval, _RC)
      call ESMF_TimeSet(update_time, _RC)
      call ESMF_TimeSet(reference_time, _RC)

   end subroutine tear_down