decompInit_atm

INTERFACE:

   subroutine decompInit_atm(alatlon,amask)

DESCRIPTION:

This subroutine initializes the land surface decomposition into a clump data structure. This assumes each pe has the same number of clumps set by clump_pproc

USES:

     use clm_varctl, only : nsegspc
     use domainMod , only : latlon_type

ARGUMENTS:

     implicit none
     type(latlon_type),intent(in) :: alatlon
     integer          ,intent(in) :: amask(:)

LOCAL VARIABLES:

     integer :: ani,anj                ! atm domain global size
     integer :: ans,ag,an,ai,aj        ! indices
     integer :: anumg                  ! atm num gridcells
     integer :: anumg_tot              ! precompute of anumg
     logical :: seglen1                ! is segment length one
     real(r8):: seglen                 ! average segment length
     real(r8):: rcid                   ! real value of cid
     integer :: cid,pid                ! indices
     integer :: n,m,np                 ! indices
     integer :: ier                    ! error code
     integer, parameter :: dbug=1      ! 0 = min, 1=normal, 2=much, 3=max
     integer :: npmin,npmax,npint      ! do loop values for printing
     integer :: clmin,clmax,clint      ! do loop values for printing
     integer :: beg,end,lsize,gsize    ! used for gsmap init
     integer, pointer :: gindex(:)     ! global index for gsmap init

CALLED FROM:

   subroutine initialize

REVISION HISTORY:

   2002.09.11  Forrest Hoffman  Creation.
   2005.12.15  T Craig  Updated for finemesh
   2006.08.18  P Worley Performance optimizations
   2007.01.24  T Craig  Created decompInit_atm from decomp_init