ESMF_AttributeGetObjDistGridR8List Subroutine

private subroutine ESMF_AttributeGetObjDistGridR8List(target, name, valueList, defaultvalueList, convention, purpose, attnestflag, itemcount, isPresent, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_DistGrid), intent(in) :: target
character(len=*), intent(in) :: name
real(kind=ESMF_KIND_R8), intent(out), dimension(:) :: valueList
real(kind=ESMF_KIND_R8), intent(in), optional, dimension(:) :: defaultvalueList
character(len=*), intent(in), optional :: convention
character(len=*), intent(in), optional :: purpose
type(ESMF_AttNest_Flag), intent(in), optional :: attnestflag
integer, intent(out), optional :: itemcount
logical, intent(out), optional :: isPresent
integer, intent(out), optional :: rc

Calls

proc~~esmf_attributegetobjdistgridr8list~~CallsGraph proc~esmf_attributegetobjdistgridr8list ESMF_AttributeGetObjDistGridR8List interface~esmf_infoget ESMF_InfoGet proc~esmf_attributegetobjdistgridr8list->interface~esmf_infoget none~getinfo ESMF_InfoDescribe%GetInfo proc~esmf_attributegetobjdistgridr8list->none~getinfo proc~esmf_distgridgetinit ESMF_DistGridGetInit proc~esmf_attributegetobjdistgridr8list->proc~esmf_distgridgetinit proc~esmf_imerr ESMF_IMErr proc~esmf_attributegetobjdistgridr8list->proc~esmf_imerr proc~esmf_infoformatkey ESMF_InfoFormatKey proc~esmf_attributegetobjdistgridr8list->proc~esmf_infoformatkey proc~esmf_infoispresent ESMF_InfoIsPresent proc~esmf_attributegetobjdistgridr8list->proc~esmf_infoispresent proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_attributegetobjdistgridr8list->proc~esmf_logfounderror

Called by

proc~~esmf_attributegetobjdistgridr8list~~CalledByGraph proc~esmf_attributegetobjdistgridr8list ESMF_AttributeGetObjDistGridR8List interface~esmf_attributeget ESMF_AttributeGet interface~esmf_attributeget->proc~esmf_attributegetobjdistgridr8list proc~checkcomponentattribute checkComponentAttribute proc~checkcomponentattribute->interface~esmf_attributeget proc~checkfieldattribute checkFieldAttribute proc~checkfieldattribute->interface~esmf_attributeget proc~checkstateattribute checkStateAttribute proc~checkstateattribute->interface~esmf_attributeget proc~nuopc_checkcplcomponentattribute NUOPC_CheckCplComponentAttribute proc~nuopc_checkcplcomponentattribute->interface~esmf_attributeget proc~nuopc_checkfieldattribute NUOPC_CheckFieldAttribute proc~nuopc_checkfieldattribute->interface~esmf_attributeget proc~nuopc_checkgridcomponentattribute NUOPC_CheckGridComponentAttribute proc~nuopc_checkgridcomponentattribute->interface~esmf_attributeget proc~nuopc_checkstateattribute NUOPC_CheckStateAttribute proc~nuopc_checkstateattribute->interface~esmf_attributeget proc~nuopc_cplcompattributeege NUOPC_CplCompAttributeEge proc~nuopc_cplcompattributeege->interface~esmf_attributeget proc~nuopc_cplcompsearchphasemapbyindex NUOPC_CplCompSearchPhaseMapByIndex proc~nuopc_cplcompsearchphasemapbyindex->interface~esmf_attributeget proc~nuopc_gridcompattributeege NUOPC_GridCompAttributeEge proc~nuopc_gridcompattributeege->interface~esmf_attributeget proc~nuopc_gridcompsearchphasemapbyindex NUOPC_GridCompSearchPhaseMapByIndex proc~nuopc_gridcompsearchphasemapbyindex->interface~esmf_attributeget proc~user_init~15 user_init proc~user_init~15->interface~esmf_attributeget proc~user_init~39 user_init proc~user_init~39->interface~esmf_attributeget proc~user_init~79 user_init proc~user_init~79->interface~esmf_attributeget proc~user_init~82 user_init proc~user_init~82->interface~esmf_attributeget program~attributeupdatereconcile AttributeUpdateReconcile program~attributeupdatereconcile->interface~esmf_attributeget program~esmf_arraycreategetutest ESMF_ArrayCreateGetUTest program~esmf_arraycreategetutest->interface~esmf_attributeget program~esmf_attributeprofileutest ESMF_AttributeProfileUTest program~esmf_attributeprofileutest->interface~esmf_attributeget program~esmf_attributeutilutest ESMF_AttributeUtilUTest program~esmf_attributeutilutest->interface~esmf_attributeget program~esmf_infosyncutest ESMF_InfoSyncUTest program~esmf_infosyncutest->interface~esmf_attributeget program~esmf_statereconcileutest ESMF_StateReconcileUTest program~esmf_statereconcileutest->interface~esmf_attributeget interface~nuopc_checkcomponentattribute NUOPC_CheckComponentAttribute interface~nuopc_checkcomponentattribute->proc~nuopc_checkcplcomponentattribute interface~nuopc_checkcomponentattribute->proc~nuopc_checkgridcomponentattribute interface~nuopc_compattributeegest NUOPC_CompAttributeEgest interface~nuopc_compattributeegest->proc~nuopc_cplcompattributeege interface~nuopc_compattributeegest->proc~nuopc_gridcompattributeege interface~nuopc_compsearchphasemapbyindex NUOPC_CompSearchPhaseMapByIndex interface~nuopc_compsearchphasemapbyindex->proc~nuopc_cplcompsearchphasemapbyindex interface~nuopc_compsearchphasemapbyindex->proc~nuopc_gridcompsearchphasemapbyindex proc~checkcomponentmetadata checkComponentMetadata proc~checkcomponentmetadata->proc~checkcomponentattribute proc~checkfieldmetaafteradvertise checkFieldMetaAfterAdvertise proc~checkfieldmetaafteradvertise->proc~nuopc_checkfieldattribute proc~checkfieldmetaafterrealize checkFieldMetaAfterRealize proc~checkfieldmetaafterrealize->proc~nuopc_checkfieldattribute proc~checkfieldmetadata checkFieldMetadata proc~checkfieldmetadata->proc~checkfieldattribute proc~checkstate checkState proc~checkstate->proc~checkstateattribute proc~nuopc_checkstate NUOPC_CheckState proc~nuopc_checkstate->proc~nuopc_checkstateattribute

Source Code

subroutine ESMF_AttributeGetObjDistGridR8List(target, name, valueList, defaultvalueList, convention, purpose, attnestflag, itemcount, isPresent, rc)
  type(ESMF_DistGrid), intent(in) :: target
  character(len=*), intent(in) :: name
  real(ESMF_KIND_R8), dimension(:), intent(out) :: valueList
  real(ESMF_KIND_R8), dimension(:), intent(in), optional :: defaultvalueList
  character(len=*), intent(in), optional :: convention
  character(len=*), intent(in), optional :: purpose
  type(ESMF_AttNest_Flag), intent(in), optional :: attnestflag
  integer, intent(out), optional :: itemcount
  logical, intent(out), optional :: isPresent
  integer, intent(out), optional :: rc

  integer :: localrc, ii, local_itemcount
  logical :: local_isPresent
  character(:), allocatable :: key
  type(ESMF_Info) :: info
  type(ESMF_InfoDescribe) :: eidesc
  type(ESMF_AttNest_Flag) :: local_attnestflag

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

  if (present(attnestflag)) then
    local_attnestflag = attnestflag
  else
    local_attnestflag = ESMF_ATTR_DEFAULT_ATTNEST
  end if

  call ESMF_InfoFormatKey(key, name, localrc, convention=convention, purpose=purpose)
  if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT, rcToReturn=rc)) return

  info = eidesc%GetInfo(target, rc=localrc)
  if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT, rcToReturn=rc)) return

  local_isPresent = ESMF_InfoIsPresent(info, key, isPointer=.true., attnestflag=local_attnestflag, rc=localrc)
  if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT, rcToReturn=rc)) return

  if (present(isPresent)) isPresent = local_isPresent

  if (present(defaultvalueList)) then
    if (SIZE(defaultvalueList) /= SIZE(valueList)) then
      if (ESMF_LogFoundError(ESMF_RC_ATTR_ITEMSOFF, msg="SIZE(defaultvalueList) /= SIZE(valueList)", ESMF_CONTEXT, rcToReturn=rc)) return
    endif
  endif

  if (local_isPresent) then
    call ESMF_InfoGet(info, key, valueList, itemcount=local_itemcount, attnestflag=local_attnestflag, scalarToArray=.true., rc=localrc)
    if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT, rcToReturn=rc)) return
    if (present(itemcount)) itemcount = local_itemcount
  else
    if (present(defaultvalueList)) then
      do ii=1,size(defaultvalueList)
        valueList(ii) = defaultvalueList(ii)
      enddo
      if (present(itemcount)) itemcount = size(defaultvalueList)
    else
      if (present(itemcount)) itemcount = 0
      if (ESMF_LogFoundError(ESMF_RC_ATTR_NOTSET, msg="The key '"//trim(name)//"' is not present and no default value is provided", &
        ESMF_CONTEXT, rcToReturn=rc)) return
    endif
  endif

  deallocate(key)

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