INTERFACE:
subroutine set_landunit_wet_ice_lake (ltype, wtxy, vegxy, & subroutine set_landunit_wet_ice_lake (ltype, & nw, gi, li, ci, pi, setdata, glcmask)DESCRIPTION:
Initialize wet_ice_lake landunits that are non-urban (lake, wetland, glacier, glacier_mec)
!USES use clmtype , only : clm3, model_type, gridcell_type, landunit_type, & column_type,pft_type use subgridMod, only : subgrid_get_gcellinfo use clm_varcon, only : istice, istwet, istdlak, istice_mec use clm_varpar, only : npatch_lake, npatch_glacier, npatch_wet use clm_varpar, only : npatch_glacier_mec use clm_varctl, only : glc_nec
ARGUMENTS:
implicit none integer , intent(in) :: ltype ! landunit type real(r8), intent(in) :: wtxy(:,:) ! subgrid patch weights integer , intent(in) :: vegxy(:,:) ! PFT types integer , intent(in) :: nw ! cell index integer , intent(in) :: gi ! gridcell index integer , intent(inout) :: li ! landunit index integer , intent(inout) :: ci ! column index integer , intent(inout) :: pi ! pft index logical , intent(in) :: setdata ! set info or just compute integer , intent(in), optional :: glcmask ! = 1 where glc requires sfc mass balance ! = 0 otherwiseREVISION HISTORY:
Created by Sam Levis 2005.11.25 Updated by T CraigLOCAL VARIABLES: