ESMF_TimeInit Subroutine

      subroutine ESMF_TimeInit(s)
!
! !ARGUMENTS:
      type(ESMF_Time), intent(inout), optional :: s
!
! !DESCRIPTION:
!     Initialize the shallow class {\tt time}.
!
!     The arguments are:
!     \begin{description}
!     \item [{[s]}]
!           {\tt ESMF\_Time} being initialized.
!     \end{description}
!
!EOPI

      if (present(s)) then
        ESMF_INIT_SET_DEFINED(s)
      endif

    end subroutine ESMF_TimeInit