subgrid_get_gcellinfo

INTERFACE:

   subroutine subgrid_get_gcellinfo (nw, &
                              nlunits, ncols, npfts, &
                              nveg, wtveg, &
                              ncrop, wtcrop, &
                              nurban, wturban, &
                              nlake, wtlake, &
                              nwetland, wtwetland, &
                              nglacier, wtglacier, &
                              nglacier_mec, wtglacier_mec,  &
                              glcmask)

DESCRIPTION:

Obtain gridcell properties

!USES use clm_varpar , only : numpft, maxpatch_pft, numcft, & npatch_lake, npatch_glacier, npatch_wet, npatch_urban use clm_varpar , only : npatch_glacier_mec use clm_varctl , only : allocate_all_vegpfts, create_crop_landunit use clm_varctl , only : create_glacier_mec_landunit, glc_topomax use clm_varsur , only : wtxy use clm_varsur , only : topoxy

!ARGUMENTS implicit none integer , intent(in) :: nw ! wtxy cell index integer , optional, intent(out) :: nlunits ! number of landunits integer , optional, intent(out) :: ncols ! number of columns integer , optional, intent(out) :: npfts ! number of pfts integer , optional, intent(out) :: nveg ! number of vegetated pfts in naturally vegetated landunit real(r8), optional, intent(out) :: wtveg ! weight (relative to gridcell) of naturally vegetated landunit integer , optional, intent(out) :: ncrop ! number of crop pfts in crop landunit real(r8), optional, intent(out) :: wtcrop ! weight (relative to gridcell) of crop landunit integer , optional, intent(out) :: nurban ! number of urban pfts (columns) in urban landunit real(r8), optional, intent(out) :: wturban ! weight (relative to gridcell) of urban pfts (columns) in urban la integer , optional, intent(out) :: nlake ! number of lake pfts (columns) in lake landunit real(r8), optional, intent(out) :: wtlake ! weight (relative to gridcell) of lake landunitof lake pfts (columns) in lake landunit integer , optional, intent(out) :: nwetland ! number of wetland pfts (columns) in wetland landunit real(r8), optional, intent(out) :: wtwetland ! weight (relative to gridcell) of wetland landunitof wetland pfts (columns) in wetland landunit integer , optional, intent(out) :: nglacier ! number of glacier pfts (columns) in glacier landunit real(r8), optional, intent(out) :: wtglacier ! weight (relative to gridcell) of glacier landunitof glacier pfts (columns) in glacier landunit integer , optional, intent(out) :: nglacier_mec ! number of glacier_mec pfts (columns) in glacier_mec landunit real(r8), optional, intent(out) :: wtglacier_mec ! weight (relative to gridcell) of glacier_mec landunitof glacier pfts (columns) in glacier_mec landunit integer , optional, intent(in) :: glcmask ! = 1 if glc requires surface mass balance in this gridcell

CALLED FROM:

   subroutines decomp_init, initGridCells

REVISION HISTORY:

   2002.09.11  Mariana Vertenstein  Creation.

LOCAL VARIABLES: