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)


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