ESMF_AttributeUpdateFieldBundle Subroutine

private subroutine ESMF_AttributeUpdateFieldBundle(target, vm, rootList, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_FieldBundle), intent(inout) :: target
type(ESMF_VM), intent(in) :: vm
integer, intent(in), dimension(:) :: rootList
integer, intent(out), optional :: rc

Source Code

subroutine ESMF_AttributeUpdateFieldBundle(target, vm, rootList, rc)
  type(ESMF_FieldBundle), intent(inout) :: target
  type(ESMF_VM), intent(in) :: vm
  integer, dimension(:), intent(in) :: rootList
  integer, intent(out), optional :: rc

  integer :: localrc

  localrc = ESMF_FAILURE
  if (present(rc)) rc = ESMF_RC_NOT_IMPL
  ! Check object initialization
  ESMF_INIT_CHECK_DEEP(ESMF_FieldBundleGetInit, target, rc)

  call ESMF_InfoSync(target, rootList(1), vm, rc=localrc)
  if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT, rcToReturn=rc)) return

  if (present(rc)) rc = ESMF_SUCCESS
end subroutine ESMF_AttributeUpdateFieldBundle