ESMF_ClockGetInit Function

public function ESMF_ClockGetInit(d)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Clock), intent(in), optional :: d

Return Value integer(kind=ESMF_KIND_I8)


Called by

proc~~esmf_clockgetinit~~CalledByGraph proc~esmf_clockgetinit ESMF_ClockGetInit proc~esmf_alarmcreatenew ESMF_AlarmCreateNew proc~esmf_alarmcreatenew->proc~esmf_clockgetinit proc~esmf_alarmset ESMF_AlarmSet proc~esmf_alarmset->proc~esmf_clockgetinit proc~esmf_clockadvance ESMF_ClockAdvance proc~esmf_clockadvance->proc~esmf_clockgetinit proc~esmf_clockcreatecopy ESMF_ClockCreateCopy proc~esmf_clockcreatecopy->proc~esmf_clockgetinit proc~esmf_clockdestroy ESMF_ClockDestroy proc~esmf_clockdestroy->proc~esmf_clockgetinit proc~esmf_clockeq ESMF_ClockEQ proc~esmf_clockeq->proc~esmf_clockgetinit proc~esmf_clockeqalias ESMF_ClockEQAlias proc~esmf_clockeqalias->proc~esmf_clockgetinit proc~esmf_clockget ESMF_ClockGet proc~esmf_clockget->proc~esmf_clockgetinit proc~esmf_clockgetalarm ESMF_ClockGetAlarm proc~esmf_clockgetalarm->proc~esmf_clockgetinit proc~esmf_clockgetalarmlist ESMF_ClockGetAlarmList proc~esmf_clockgetalarmlist->proc~esmf_clockgetinit proc~esmf_clockgetnexttime ESMF_ClockGetNextTime proc~esmf_clockgetnexttime->proc~esmf_clockgetinit proc~esmf_clockiscreated ESMF_ClockIsCreated proc~esmf_clockiscreated->proc~esmf_clockgetinit proc~esmf_clockisdone ESMF_ClockIsDone proc~esmf_clockisdone->proc~esmf_clockgetinit proc~esmf_clockisreverse ESMF_ClockIsReverse proc~esmf_clockisreverse->proc~esmf_clockgetinit proc~esmf_clockisstoptime ESMF_ClockIsStopTime proc~esmf_clockisstoptime->proc~esmf_clockgetinit proc~esmf_clockisstoptimeenabled ESMF_ClockIsStopTimeEnabled proc~esmf_clockisstoptimeenabled->proc~esmf_clockgetinit proc~esmf_clockne ESMF_ClockNE proc~esmf_clockne->proc~esmf_clockgetinit proc~esmf_clockprint ESMF_ClockPrint proc~esmf_clockprint->proc~esmf_clockgetinit proc~esmf_clockset ESMF_ClockSet proc~esmf_clockset->proc~esmf_clockgetinit proc~esmf_clockstoptimedisable ESMF_ClockStopTimeDisable proc~esmf_clockstoptimedisable->proc~esmf_clockgetinit proc~esmf_clockstoptimeenable ESMF_ClockStopTimeEnable proc~esmf_clockstoptimeenable->proc~esmf_clockgetinit proc~esmf_clocksynctorealtime ESMF_ClockSyncToRealTime proc~esmf_clocksynctorealtime->proc~esmf_clockgetinit proc~esmf_clockvalidate ESMF_ClockValidate proc~esmf_clockvalidate->proc~esmf_clockgetinit proc~esmf_clockwriterestart ESMF_ClockWriteRestart proc~esmf_clockwriterestart->proc~esmf_clockgetinit proc~esmf_cplcompcreate ESMF_CplCompCreate proc~esmf_cplcompcreate->proc~esmf_clockgetinit proc~esmf_cplcompset ESMF_CplCompSet proc~esmf_cplcompset->proc~esmf_clockgetinit proc~esmf_cplcompwriterestart ESMF_CplCompWriteRestart proc~esmf_cplcompwriterestart->proc~esmf_clockgetinit proc~esmf_gridcompcreate ESMF_GridCompCreate proc~esmf_gridcompcreate->proc~esmf_clockgetinit proc~esmf_gridcompset ESMF_GridCompSet proc~esmf_gridcompset->proc~esmf_clockgetinit proc~esmf_gridcompwriterestart ESMF_GridCompWriteRestart proc~esmf_gridcompwriterestart->proc~esmf_clockgetinit

Source Code

      function ESMF_ClockGetInit(d)
!
! !ARGUMENTS:
      type(ESMF_Clock), intent(in), optional :: d
      ESMF_INIT_TYPE                         :: ESMF_ClockGetInit
!
! !DESCRIPTION:
!     Get the initialization status of the Deep class {\tt clock}.
!
!     The arguments are:
!     \begin{description}
!     \item [{[d]}]
!           {\tt ESMF\_Clock} from which to retrieve status.
!     \end{description}
!
!EOPI

      if (present(d)) then
        ESMF_ClockGetInit = ESMF_INIT_GET(d)
      else
        ESMF_ClockGetInit = ESMF_INIT_CREATED
      endif

      end function ESMF_ClockGetInit