set_up Subroutine

public subroutine set_up()

Arguments

None

Calls

proc~~set_up~2~~CallsGraph proc~set_up~2 set_up ESMF_ClockCreate ESMF_ClockCreate proc~set_up~2->ESMF_ClockCreate ESMF_Initialize ESMF_Initialize proc~set_up~2->ESMF_Initialize ESMF_IsInitialized ESMF_IsInitialized proc~set_up~2->ESMF_IsInitialized ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~set_up~2->ESMF_TimeIntervalSet proc~make_esmf_time make_esmf_time proc~set_up~2->proc~make_esmf_time proc~mapl_verify MAPL_Verify proc~set_up~2->proc~mapl_verify proc~make_esmf_time->proc~mapl_verify ESMF_TimeSet ESMF_TimeSet proc~make_esmf_time->ESMF_TimeSet proc~mapl_return MAPL_Return proc~make_esmf_time->proc~mapl_return proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~mapl_return->proc~mapl_throw_exception at at proc~mapl_return->at insert insert proc~mapl_return->insert

Source Code

   subroutine set_up()
      integer :: status, rc
      logical :: uninitialized

      status = SUCCESS
      uninitialized = .not. ESMF_IsInitialized(_RC)
      if(uninitialized) then
         call ESMF_Initialize(defaultCalKind=ESMF_CALKIND_GREGORIAN, logKindFlag=ESMF_LOGKIND_NONE, defaultLogKindFlag=ESMF_LOGKIND_NONE, _RC)
      end if
      call ESMF_TimeIntervalSet(time_interval, _RC)
      call ESMF_TimeIntervalSet(timestep, s=TIME_STEP_IN_SECONDS, _RC)
      call make_esmf_time(START_TIME_FIELDS, start_time, _RC)
      call make_esmf_time(DEFAULT_TIME_FIELDS, default_time, _RC)
      call make_esmf_time(UPDATE_TIME_FIELDS, update_time, _RC)
      call make_esmf_time(REFERENCE_TIME_FIELDS, reference_time, _RC)
      clock = ESMF_ClockCreate(timestep=timestep, startTime=start_time, _RC)

   end subroutine set_up