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, initGridCellsREVISION HISTORY:
2002.09.11 Mariana Vertenstein Creation.LOCAL VARIABLES: