has_level Function

function has_level(grid, rc) result(grid_has_level)

Arguments

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

Return Value logical


Calls

proc~~has_level~2~~CallsGraph proc~has_level~2 time_ave::has_level proc~mapl_abort MAPL_ErrorHandlingMod::MAPL_abort proc~has_level~2->proc~mapl_abort proc~mapl_gridget mapl_MaplGrid::MAPL_GridGet proc~has_level~2->proc~mapl_gridget proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify proc~has_level~2->proc~mapl_verify mpi_abort mpi_abort proc~mapl_abort->mpi_abort proc~mapl_gridget->proc~mapl_verify ESMF_AttributeGet ESMF::ESMF_AttributeGet proc~mapl_gridget->ESMF_AttributeGet ESMF_GridGet ESMF::ESMF_GridGet proc~mapl_gridget->ESMF_GridGet proc~mapl_gridhasde mapl_MaplGrid::MAPL_GridHasDE proc~mapl_gridget->proc~mapl_gridhasde proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return proc~mapl_gridget->proc~mapl_return proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~mapl_gridhasde->proc~mapl_verify proc~mapl_gridhasde->ESMF_GridGet proc~mapl_gridhasde->proc~mapl_return ESMF_DELayoutGet ESMF::ESMF_DELayoutGet proc~mapl_gridhasde->ESMF_DELayoutGet ESMF_DistGridGet ESMF::ESMF_DistGridGet proc~mapl_gridhasde->ESMF_DistGridGet proc~mapl_return->proc~mapl_throw_exception at at proc~mapl_return->at insert insert proc~mapl_return->insert

Called by

proc~~has_level~2~~CalledByGraph proc~has_level~2 time_ave::has_level program~time_ave time_ave program~time_ave->proc~has_level~2

Source Code

   function has_level(grid,rc) result(grid_has_level)
      logical :: grid_has_level
      type(ESMF_Grid), intent(in) :: grid
      integer, intent(out), optional :: rc
      integer :: status, global_dims(3)
      call MAPL_GridGet(grid,globalCellCountPerDim=global_dims,_RC)
      grid_has_level = (global_dims(3)>1)
      if (present(rc)) then
         RC=_SUCCESS
      end if
   end function has_level