ESMF_FieldSetTimestamp Subroutine

  subroutine ESMF_FieldSetTimestamp(field, timestamp, rc)

!
! !ARGUMENTS:
    type(ESMF_Field),   intent(inout)         :: field
    integer,            intent(in)            :: timestamp(10)
    integer,            intent(out), optional :: rc
!
! !DESCRIPTION:
!     Set timestamp on an {\tt ESMF\_Field} object. 
!
!     The arguments are:
!     \begin{description}
!     \item [field]
!       {\tt ESMF\_Field} object for which to set properties.
!     \item [timestamp]
!       Timestamp, an array of 10 integer values.
!     \item [{[rc]}]
!       Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.
!     \end{description}
!
!EOPI
!------------------------------------------------------------------------------
    ! initialize return code; assume routine not implemented
    if (present(rc)) rc = ESMF_RC_NOT_IMPL

    ! Check init status of arguments
    ESMF_INIT_CHECK_DEEP(ESMF_FieldGetInit, field, rc)

    ! Set timestamp
    field%ftypep%timestamp(:) = timestamp(:)

    ! return successfully
    if (present(rc)) rc = ESMF_SUCCESS

  end subroutine ESMF_FieldSetTimestamp