ESMF_FieldSetTimestamp Subroutine

public subroutine ESMF_FieldSetTimestamp(field, timestamp, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Field), intent(inout) :: field
integer, intent(in) :: timestamp(10)
integer, intent(out), optional :: rc

Calls

proc~~esmf_fieldsettimestamp~~CallsGraph proc~esmf_fieldsettimestamp ESMF_FieldSetTimestamp proc~esmf_fieldgetinit ESMF_FieldGetInit proc~esmf_fieldsettimestamp->proc~esmf_fieldgetinit proc~esmf_imerr ESMF_IMErr proc~esmf_fieldsettimestamp->proc~esmf_imerr proc~esmf_initcheckdeep ESMF_InitCheckDeep proc~esmf_imerr->proc~esmf_initcheckdeep proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_imerr->proc~esmf_logfounderror esmf_breakpoint esmf_breakpoint proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfounderror->proc~esmf_logrc2msg proc~esmf_logwrite ESMF_LogWrite proc~esmf_logfounderror->proc~esmf_logwrite c_esmc_loggeterrormsg c_esmc_loggeterrormsg proc~esmf_logrc2msg->c_esmc_loggeterrormsg c_esmc_vmwtime c_esmc_vmwtime proc~esmf_logwrite->c_esmc_vmwtime proc~esmf_logclose ESMF_LogClose proc~esmf_logwrite->proc~esmf_logclose proc~esmf_logflush ESMF_LogFlush proc~esmf_logwrite->proc~esmf_logflush proc~esmf_logopenfile ESMF_LogOpenFile proc~esmf_logwrite->proc~esmf_logopenfile proc~esmf_utiliounitflush ESMF_UtilIOUnitFlush proc~esmf_logwrite->proc~esmf_utiliounitflush proc~esmf_utilstring2array ESMF_UtilString2Array proc~esmf_logwrite->proc~esmf_utilstring2array

Called by

proc~~esmf_fieldsettimestamp~~CalledByGraph proc~esmf_fieldsettimestamp ESMF_FieldSetTimestamp proc~executeupdatepackets ExecuteUpdatePackets proc~executeupdatepackets->proc~esmf_fieldsettimestamp proc~nuopc_initattributesfield NUOPC_InitAttributesField proc~nuopc_initattributesfield->proc~esmf_fieldsettimestamp proc~nuopc_settimestampfield NUOPC_SetTimestampField proc~nuopc_settimestampfield->proc~esmf_fieldsettimestamp proc~nuopc_settimestampfieldlist NUOPC_SetTimestampFieldList proc~nuopc_settimestampfieldlist->proc~esmf_fieldsettimestamp proc~nuopc_updateacrossfieldlists NUOPC_UpdateAcrossFieldLists proc~nuopc_updateacrossfieldlists->proc~esmf_fieldsettimestamp proc~nuopc_updatefieldlist NUOPC_UpdateFieldList proc~nuopc_updatefieldlist->proc~esmf_fieldsettimestamp interface~nuopc_initattributes NUOPC_InitAttributes interface~nuopc_initattributes->proc~nuopc_initattributesfield interface~nuopc_settimestamp NUOPC_SetTimestamp interface~nuopc_settimestamp->proc~nuopc_settimestampfield interface~nuopc_settimestamp->proc~nuopc_settimestampfieldlist interface~nuopc_updatetimestamp NUOPC_UpdateTimestamp interface~nuopc_updatetimestamp->proc~nuopc_updateacrossfieldlists interface~nuopc_updatetimestamp->proc~nuopc_updatefieldlist proc~run Run proc~run->proc~executeupdatepackets proc~initializeipdv01p5 InitializeIPDv01p5 proc~initializeipdv01p5->interface~nuopc_settimestamp proc~initializeipdv02p1 InitializeIPDv02p1 proc~initializeipdv02p1->interface~nuopc_initattributes proc~initializeipdv02p5 InitializeIPDv02p5 proc~initializeipdv02p5->interface~nuopc_settimestamp proc~initializeipdvxp08 InitializeIPDvXp08 proc~initializeipdvxp08->interface~nuopc_settimestamp proc~nuopc_addnamespace NUOPC_AddNamespace proc~nuopc_addnamespace->interface~nuopc_initattributes proc~nuopc_addnestedstate NUOPC_AddNestedState proc~nuopc_addnestedstate->interface~nuopc_initattributes proc~nuopc_advertisefield NUOPC_AdvertiseField proc~nuopc_advertisefield->interface~nuopc_initattributes proc~nuopc_fieldbundleupdatetime NUOPC_FieldBundleUpdateTime proc~nuopc_fieldbundleupdatetime->interface~nuopc_updatetimestamp proc~nuopc_realizefield NUOPC_RealizeField proc~nuopc_realizefield->interface~nuopc_initattributes proc~nuopc_settimestampfieldlistclk NUOPC_SetTimestampFieldListClk proc~nuopc_settimestampfieldlistclk->interface~nuopc_settimestamp proc~nuopc_settimestampstate NUOPC_SetTimestampState proc~nuopc_settimestampstate->interface~nuopc_settimestamp proc~nuopc_settimestampstateclk NUOPC_SetTimestampStateClk proc~nuopc_settimestampstateclk->interface~nuopc_settimestamp proc~nuopc_stateupdatetimestamp NUOPC_StateUpdateTimestamp proc~nuopc_stateupdatetimestamp->interface~nuopc_updatetimestamp proc~runtimestampimportstate RunTimestampImportState proc~runtimestampimportstate->interface~nuopc_settimestamp proc~timestampexport TimestampExport proc~timestampexport->interface~nuopc_settimestamp proc~timestampexport~2 TimestampExport proc~timestampexport~2->interface~nuopc_settimestamp proc~timestampimportstate TimestampImportState proc~timestampimportstate->interface~nuopc_settimestamp program~esmf_nuopc_utest ESMF_NUOPC_UTest program~esmf_nuopc_utest->interface~nuopc_initattributes program~esmf_nuopc_utest->interface~nuopc_settimestamp program~esmf_nuopc_utest->interface~nuopc_updatetimestamp

Source Code

  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