MAPL_GridHasDE Function

public function MAPL_GridHasDE(grid, rc) result(hasDE)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Grid), intent(in) :: grid
integer, intent(out), optional :: rc

Return Value logical


Calls

proc~~mapl_gridhasde~~CallsGraph proc~mapl_gridhasde MAPL_GridHasDE ESMF_DELayoutGet ESMF_DELayoutGet proc~mapl_gridhasde->ESMF_DELayoutGet ESMF_DistGridGet ESMF_DistGridGet proc~mapl_gridhasde->ESMF_DistGridGet ESMF_GridGet ESMF_GridGet proc~mapl_gridhasde->ESMF_GridGet proc~mapl_return MAPL_Return proc~mapl_gridhasde->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_gridhasde->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~mapl_gridhasde~~CalledByGraph proc~mapl_gridhasde MAPL_GridHasDE none~correct_topo verticalData%correct_topo none~correct_topo->proc~mapl_gridhasde none~regridscalar MAPL_GriddedIO%regridScalar none~regridscalar->proc~mapl_gridhasde none~regridvector MAPL_GriddedIO%regridVector none~regridvector->proc~mapl_gridhasde none~request_data_from_file MAPL_GriddedIO%request_data_from_file none~request_data_from_file->proc~mapl_gridhasde none~stagedata MAPL_GriddedIO%stageData none~stagedata->proc~mapl_gridhasde none~swap_undef_value MAPL_GriddedIO%swap_undef_value none~swap_undef_value->proc~mapl_gridhasde proc~mapl_gridget MAPL_GridGet proc~mapl_gridget->proc~mapl_gridhasde

Source Code

  function MAPL_GridHasDE(grid,rc) result(hasDE)
     type(ESMF_Grid), intent(in) :: grid
     integer, intent(out), optional :: rc

     integer :: status
     type(ESMF_DistGrid) :: distGrid
     type(ESMF_DeLayout) :: layout
     integer :: localDECount
     logical :: hasDE

     call ESMF_GridGet    (GRID, distGrid=distGrid, _RC)
     call ESMF_DistGridGet(distGRID, delayout=layout, _RC)
     call ESMF_DELayoutGet(layout, localDeCount=localDeCount,_RC)
     hasDe = (localDECount /=0)
     _RETURN(_SUCCESS)

  end function MAPL_GridHasDE