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_typeARGUMENTS:
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 initCALLED FROM:
subroutine initializeREVISION 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