ESMF_AlarmGetInit Function

public function ESMF_AlarmGetInit(d)

Arguments

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

Return Value integer(kind=ESMF_KIND_I8)


Called by

proc~~esmf_alarmgetinit~~CalledByGraph proc~esmf_alarmgetinit ESMF_AlarmGetInit proc~esmf_alarmcreatecopy ESMF_AlarmCreateCopy proc~esmf_alarmcreatecopy->proc~esmf_alarmgetinit proc~esmf_alarmdestroy ESMF_AlarmDestroy proc~esmf_alarmdestroy->proc~esmf_alarmgetinit proc~esmf_alarmdisable ESMF_AlarmDisable proc~esmf_alarmdisable->proc~esmf_alarmgetinit proc~esmf_alarmenable ESMF_AlarmEnable proc~esmf_alarmenable->proc~esmf_alarmgetinit proc~esmf_alarmeq ESMF_AlarmEQ proc~esmf_alarmeq->proc~esmf_alarmgetinit proc~esmf_alarmget ESMF_AlarmGet proc~esmf_alarmget->proc~esmf_alarmgetinit proc~esmf_alarmiscreated ESMF_AlarmIsCreated proc~esmf_alarmiscreated->proc~esmf_alarmgetinit proc~esmf_alarmisenabled ESMF_AlarmIsEnabled proc~esmf_alarmisenabled->proc~esmf_alarmgetinit proc~esmf_alarmisringing ESMF_AlarmIsRinging proc~esmf_alarmisringing->proc~esmf_alarmgetinit proc~esmf_alarmissticky ESMF_AlarmIsSticky proc~esmf_alarmissticky->proc~esmf_alarmgetinit proc~esmf_alarmne ESMF_AlarmNE proc~esmf_alarmne->proc~esmf_alarmgetinit proc~esmf_alarmnotsticky ESMF_AlarmNotSticky proc~esmf_alarmnotsticky->proc~esmf_alarmgetinit proc~esmf_alarmprint ESMF_AlarmPrint proc~esmf_alarmprint->proc~esmf_alarmgetinit proc~esmf_alarmringeroff ESMF_AlarmRingerOff proc~esmf_alarmringeroff->proc~esmf_alarmgetinit proc~esmf_alarmringeron ESMF_AlarmRingerOn proc~esmf_alarmringeron->proc~esmf_alarmgetinit proc~esmf_alarmset ESMF_AlarmSet proc~esmf_alarmset->proc~esmf_alarmgetinit proc~esmf_alarmsticky ESMF_AlarmSticky proc~esmf_alarmsticky->proc~esmf_alarmgetinit proc~esmf_alarmvalidate ESMF_AlarmValidate proc~esmf_alarmvalidate->proc~esmf_alarmgetinit proc~esmf_alarmwasprevringing ESMF_AlarmWasPrevRinging proc~esmf_alarmwasprevringing->proc~esmf_alarmgetinit proc~esmf_alarmwillringnext ESMF_AlarmWillRingNext proc~esmf_alarmwillringnext->proc~esmf_alarmgetinit proc~esmf_alarmwriterestart ESMF_AlarmWriteRestart proc~esmf_alarmwriterestart->proc~esmf_alarmgetinit interface~esmf_alarmcreate ESMF_AlarmCreate interface~esmf_alarmcreate->proc~esmf_alarmcreatecopy interface~operator(==) operator(==) interface~operator(==)->proc~esmf_alarmeq interface~operator(SLASH=) operator(/=) interface~operator(SLASH=)->proc~esmf_alarmne proc~nuopc_runsequencectrl NUOPC_RunSequenceCtrl proc~nuopc_runsequencectrl->proc~esmf_alarmisringing proc~nuopc_runsequencectrl->proc~nuopc_runsequencectrl program~esmf_alarmex ESMF_AlarmEx program~esmf_alarmex->proc~esmf_alarmdestroy program~esmf_alarmex->proc~esmf_alarmget program~esmf_alarmex->proc~esmf_alarmisringing program~esmf_alarmex->proc~esmf_alarmringeroff program~esmf_alarmex->interface~esmf_alarmcreate program~esmf_alarmtest ESMF_AlarmTest program~esmf_alarmtest->proc~esmf_alarmdestroy program~esmf_alarmtest->proc~esmf_alarmiscreated program~esmf_alarmtest->interface~esmf_alarmcreate program~mappertwoconcurrentcomps MapperTwoConcurrentComps program~mappertwoconcurrentcomps->proc~esmf_alarmisringing program~mappertwoconcurrentcomps->proc~esmf_alarmringeroff proc~get_sync_alarms get_sync_alarms proc~get_sync_alarms->interface~esmf_alarmcreate proc~nuopc_driveringestrunsequenceff NUOPC_DriverIngestRunSequenceFF proc~nuopc_driveringestrunsequenceff->interface~esmf_alarmcreate proc~nuopc_runsequenceiterate NUOPC_RunSequenceIterate proc~nuopc_runsequenceiterate->proc~nuopc_runsequencectrl

Source Code

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

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

      end function ESMF_AlarmGetInit