Module decompMod
(Source File: decompMod.F90)

USES:

   use shr_kind_mod, only : r8 => shr_kind_r8
   use clm_varpar  , only : lsmlon, lsmlat, maxpatch, maxpatch_pft, &
                            npatch_crop, npatch_urban, npatch_glacier
   use clm_varsur  , only : numlon, landmask, all_pfts_on_srfdat
 #ifdef SPMD
 #ifdef COUP_CAM
   use pmgrid      , only : masterproc, iam
   use spmd_dyn    , only : npes
 #else
   use spmdMod     , only : masterproc, iam, npes
 #endif
 #else
   use spmdMod     , only : masterproc, iam, npes
 #endif
   use shr_sys_mod , only : shr_sys_flush
   use abortutils, only : endrun

PUBLIC TYPES:

   implicit none
   integer, public :: clump_pproc ! number of clumps per MPI process

PUBLIC MEMBER FUNCTIONS:

   public initDecomp              ! initializes land surface decomposition
                                  ! into clumps and processors
   public get_gcell_info          ! updates gridcell, landunits, columns and
                                  ! pfts counters
   public get_gcell_xyind         ! returns ixy and jxy for each grid cell
   public get_nclumps             ! returns the number of clumps defined
   public get_clump_cell_id_coord ! returns clump/cell ids based on lon/lat
   public get_clump_owner_id      ! returns clump owner based on clump id
   public get_clump_ncells_proc   ! returns number of cells for process
   public get_clump_ncells_id     ! returns number of cells in clump
   public get_clump_coord_id      ! returns lon/lat coordinates based on id
   public get_clump_gcell_info    ! returns 1d gridcell index
   public get_clump_bounds        ! beg and end gridcell, landunit, column,
                                  ! pft indices for clump
   public get_proc_clumps         ! number of clumps for this processor
   public get_proc_bounds         ! beg and end gridcell, landunit, column,
                                  ! pft indices for this processor
   public get_proc_total          ! total number of gridcells, landunits,
                                  ! columns and pfts for any processor
   public get_proc_global         ! total gridcells, landunits, columns, pfts
                                  ! across all processors
   public get_sn_land1d           ! returns s->n gridcell indices for each
                                  ! s->n landunit
   public get_sn_cols1d           ! returns s->n gridcell or landunit indices
                                  ! for each s->n column
   public get_sn_pfts1d           ! returns s->n gridcell, landunit or column
                                  ! indiceces for s->n pft column
   public get_sn_index            ! returns s->n gridcell, landunit or column
                                  ! index given the corresponding dc index
   save

DESCRIPTION:

Module provides a descomposition into a clumped data structure which can be mapped back to atmosphere physics chunks.

REVISION HISTORY:

   2002.09.11  Forrest Hoffman  Creation.