ESMF_TimeIntervalGetInit Function

public function ESMF_TimeIntervalGetInit(s)

Arguments

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

Return Value integer(kind=ESMF_KIND_I8)


Called by

ESMF_AlarmCreateNewwESMF_TimeIntervalGetInit
w
ESMF_AlarmNotStickyw
w
ESMF_AlarmSetw
w
ESMF_AlarmWillRingNextw
w
ESMF_ClockAdvancew
w
ESMF_ClockCreateNeww
w
ESMF_ClockGetAlarmListw
w
ESMF_ClockGetNextTimew
w
ESMF_ClockSetw
w
ESMF_TimeDecw
w
ESMF_TimeIncw
w
ESMF_TimeIntervalAbsValuew
w
ESMF_TimeIntervalDiffw
w
ESMF_TimeIntervalEQw
w
ESMF_TimeIntervalFQuotw
w
ESMF_TimeIntervalGEw
w
ESMF_TimeIntervalGetDurw
w
ESMF_TimeIntervalGetDurCalw
w
ESMF_TimeIntervalGetDurCalTypw
w
ESMF_TimeIntervalGetDurStartw
w
ESMF_TimeIntervalGTw
w
ESMF_TimeIntervalLEw
w
ESMF_TimeIntervalLTw
w
ESMF_TimeIntervalNEw
w
ESMF_TimeIntervalNegAbsValuew
w
ESMF_TimeIntervalNegatew
w
ESMF_TimeIntervalPrintw
w
ESMF_TimeIntervalProdFTw
w
ESMF_TimeIntervalProdITw
w
ESMF_TimeIntervalProdRTw
w
ESMF_TimeIntervalProdTFw
w
ESMF_TimeIntervalProdTIw
w
ESMF_TimeIntervalProdTRw
w
ESMF_TimeIntervalQuotIw
w
ESMF_TimeIntervalQuotRw
w
ESMF_TimeIntervalRemainderw
w
ESMF_TimeIntervalRQuotw
w
ESMF_TimeIntervalSumw
w
ESMF_TimeIntervalValidatew
w
ESMF_TimeIntervalWriteRestartw
w

Source Code

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

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

      end function ESMF_TimeIntervalGetInit