ESMF_TimeGetInit Function

public function ESMF_TimeGetInit(s)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Time), intent(in), optional :: s

Return Value integer(kind=ESMF_KIND_I8)


Called by

proc~~esmf_timegetinit~~CalledByGraph proc~esmf_timegetinit ESMF_TimeGetInit proc~esmf_alarmcreatenew ESMF_AlarmCreateNew proc~esmf_alarmcreatenew->proc~esmf_timegetinit proc~esmf_alarmset ESMF_AlarmSet proc~esmf_alarmset->proc~esmf_timegetinit proc~esmf_clockcreatenew ESMF_ClockCreateNew proc~esmf_clockcreatenew->proc~esmf_timegetinit proc~esmf_clockset ESMF_ClockSet proc~esmf_clockset->proc~esmf_timegetinit proc~esmf_clockstoptimeenable ESMF_ClockStopTimeEnable proc~esmf_clockstoptimeenable->proc~esmf_timegetinit proc~esmf_timedec ESMF_TimeDec proc~esmf_timedec->proc~esmf_timegetinit proc~esmf_timediff ESMF_TimeDiff proc~esmf_timediff->proc~esmf_timegetinit proc~esmf_timeeq ESMF_TimeEQ proc~esmf_timeeq->proc~esmf_timegetinit proc~esmf_timege ESMF_TimeGE proc~esmf_timege->proc~esmf_timegetinit proc~esmf_timeget ESMF_TimeGet proc~esmf_timeget->proc~esmf_timegetinit proc~esmf_timegt ESMF_TimeGT proc~esmf_timegt->proc~esmf_timegetinit proc~esmf_timeinc ESMF_TimeInc proc~esmf_timeinc->proc~esmf_timegetinit proc~esmf_timeintervalgetdurstart ESMF_TimeIntervalGetDurStart proc~esmf_timeintervalgetdurstart->proc~esmf_timegetinit proc~esmf_timeintervalsetdurstart ESMF_TimeIntervalSetDurStart proc~esmf_timeintervalsetdurstart->proc~esmf_timegetinit proc~esmf_timeisleapyear ESMF_TimeIsLeapYear proc~esmf_timeisleapyear->proc~esmf_timegetinit proc~esmf_timeissamecalendar ESMF_TimeIsSameCalendar proc~esmf_timeissamecalendar->proc~esmf_timegetinit proc~esmf_timele ESMF_TimeLE proc~esmf_timele->proc~esmf_timegetinit proc~esmf_timelt ESMF_TimeLT proc~esmf_timelt->proc~esmf_timegetinit proc~esmf_timene ESMF_TimeNE proc~esmf_timene->proc~esmf_timegetinit proc~esmf_timeprint ESMF_TimePrint proc~esmf_timeprint->proc~esmf_timegetinit proc~esmf_timesynctorealtime ESMF_TimeSyncToRealTime proc~esmf_timesynctorealtime->proc~esmf_timegetinit proc~esmf_timevalidate ESMF_TimeValidate proc~esmf_timevalidate->proc~esmf_timegetinit proc~esmf_timewriterestart ESMF_TimeWriteRestart proc~esmf_timewriterestart->proc~esmf_timegetinit

Source Code

      function ESMF_TimeGetInit(s)
!
! !ARGUMENTS:
      type(ESMF_Time), intent(in), optional :: s
      ESMF_INIT_TYPE                        :: ESMF_TimeGetInit
!
! !DESCRIPTION:
!     Get the initialization status of the shallow class {\tt time}.
!
!     The arguments are:
!     \begin{description}
!     \item [{[s]}]
!           {\tt ESMF\_Time} from which to retrieve status.
!     \end{description}
!
!EOPI

      if (present(s)) then
        ESMF_TimeGetInit = ESMF_INIT_GET(s)
      else
        ESMF_TimeGetInit = ESMF_INIT_DEFINED
      endif

      end function ESMF_TimeGetInit