f_nuopc_advertise Subroutine

subroutine f_nuopc_advertise(state, standardName, fieldName, rc)

Uses

  • proc~~f_nuopc_advertise~~UsesGraph proc~f_nuopc_advertise f_nuopc_advertise module~esmf ESMF proc~f_nuopc_advertise->module~esmf module~nuopc NUOPC proc~f_nuopc_advertise->module~nuopc

Arguments

Type IntentOptional Attributes Name
type(ESMF_State) :: state
character(len=*), intent(in) :: standardName
character(len=*), intent(in) :: fieldName
integer, intent(out) :: rc

Calls

proc~~f_nuopc_advertise~~CallsGraph proc~f_nuopc_advertise f_nuopc_advertise interface~nuopc_advertise NUOPC_Advertise proc~f_nuopc_advertise->interface~nuopc_advertise proc~esmf_logfounderror ESMF_LogFoundError proc~f_nuopc_advertise->proc~esmf_logfounderror proc~nuopc_advertisefield NUOPC_AdvertiseField interface~nuopc_advertise->proc~nuopc_advertisefield proc~nuopc_advertisefields NUOPC_AdvertiseFields interface~nuopc_advertise->proc~nuopc_advertisefields 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 proc~nuopc_advertisefield->proc~esmf_logfounderror esmf_fieldemptycreate esmf_fieldemptycreate proc~nuopc_advertisefield->esmf_fieldemptycreate esmf_stateadd esmf_stateadd proc~nuopc_advertisefield->esmf_stateadd esmf_stateget esmf_stateget proc~nuopc_advertisefield->esmf_stateget interface~nuopc_getattribute NUOPC_GetAttribute proc~nuopc_advertisefield->interface~nuopc_getattribute interface~nuopc_initattributes NUOPC_InitAttributes proc~nuopc_advertisefield->interface~nuopc_initattributes interface~nuopc_setattribute NUOPC_SetAttribute proc~nuopc_advertisefield->interface~nuopc_setattribute proc~esmf_fieldset ESMF_FieldSet proc~nuopc_advertisefield->proc~esmf_fieldset proc~esmf_logseterror ESMF_LogSetError proc~nuopc_advertisefield->proc~esmf_logseterror proc~esmf_vmgetthis ESMF_VMGetThis proc~nuopc_advertisefield->proc~esmf_vmgetthis proc~nuopc_advertisefields->proc~esmf_logfounderror proc~nuopc_advertisefields->proc~nuopc_advertisefield

Source Code

subroutine f_nuopc_advertise(state, standardName, fieldName, rc)
#undef  ESMF_METHOD
#define ESMF_METHOD "f_nuopc_advertise"
  use ESMF
  use NUOPC
  implicit none

  type(ESMF_State)                        :: state        !in
  character(len=*), intent(in)            :: standardName !in
  character(len=*), intent(in)            :: fieldName    !in
  integer, intent(out)                    :: rc           !out

  integer :: localrc

  ! Initialize return code; assume routine not implemented
  rc = ESMF_RC_NOT_IMPL

  call NUOPC_Advertise(state, standardName, name=fieldName, rc=localrc)
  if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU,  &
    ESMF_CONTEXT, rcToReturn=rc)) return

  ! Return successfully
  rc = ESMF_SUCCESS
end subroutine f_nuopc_advertise