ESMF_CalendarGetInit Function

public function ESMF_CalendarGetInit(d)

Arguments

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

Return Value integer(kind=ESMF_KIND_I8)


Called by

proc~~esmf_calendargetinit~~CalledByGraph proc~esmf_calendargetinit ESMF_CalendarGetInit proc~esmf_calendarcalandkindeq ESMF_CalendarCalAndKindEQ proc~esmf_calendarcalandkindeq->proc~esmf_calendargetinit proc~esmf_calendarcalandkindne ESMF_CalendarCalAndKindNE proc~esmf_calendarcalandkindne->proc~esmf_calendargetinit proc~esmf_calendarcreatecopy ESMF_CalendarCreateCopy proc~esmf_calendarcreatecopy->proc~esmf_calendargetinit proc~esmf_calendardestroy ESMF_CalendarDestroy proc~esmf_calendardestroy->proc~esmf_calendargetinit proc~esmf_calendareq ESMF_CalendarEQ proc~esmf_calendareq->proc~esmf_calendargetinit proc~esmf_calendarget ESMF_CalendarGet proc~esmf_calendarget->proc~esmf_calendargetinit proc~esmf_calendariscreated ESMF_CalendarIsCreated proc~esmf_calendariscreated->proc~esmf_calendargetinit proc~esmf_calendarisleapyeari4 ESMF_CalendarIsLeapYearI4 proc~esmf_calendarisleapyeari4->proc~esmf_calendargetinit proc~esmf_calendarisleapyeari8 ESMF_CalendarIsLeapYearI8 proc~esmf_calendarisleapyeari8->proc~esmf_calendargetinit proc~esmf_calendarkindandcaleq ESMF_CalendarKindAndCalEQ proc~esmf_calendarkindandcaleq->proc~esmf_calendargetinit proc~esmf_calendarkindandcalne ESMF_CalendarKindAndCalNE proc~esmf_calendarkindandcalne->proc~esmf_calendargetinit proc~esmf_calendarne ESMF_CalendarNE proc~esmf_calendarne->proc~esmf_calendargetinit proc~esmf_calendarprint ESMF_CalendarPrint proc~esmf_calendarprint->proc~esmf_calendargetinit proc~esmf_calendarsetbuiltin ESMF_CalendarSetBuiltIn proc~esmf_calendarsetbuiltin->proc~esmf_calendargetinit proc~esmf_calendarsetcustom ESMF_CalendarSetCustom proc~esmf_calendarsetcustom->proc~esmf_calendargetinit proc~esmf_calendarsetdefaultcal ESMF_CalendarSetDefaultCal proc~esmf_calendarsetdefaultcal->proc~esmf_calendargetinit proc~esmf_calendarvalidate ESMF_CalendarValidate proc~esmf_calendarvalidate->proc~esmf_calendargetinit proc~esmf_calendarwriterestart ESMF_CalendarWriteRestart proc~esmf_calendarwriterestart->proc~esmf_calendargetinit proc~esmf_timeintervalgetdurcal ESMF_TimeIntervalGetDurCal proc~esmf_timeintervalgetdurcal->proc~esmf_calendargetinit proc~esmf_timeintervalsetdurcal ESMF_TimeIntervalSetDurCal proc~esmf_timeintervalsetdurcal->proc~esmf_calendargetinit proc~esmf_timesetdefault ESMF_TimeSetDefault proc~esmf_timesetdefault->proc~esmf_calendargetinit

Source Code

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

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

      end function ESMF_CalendarGetInit