set_landunit_wet_ice_lake

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 otherwise

REVISION HISTORY:

   Created by Sam Levis
   2005.11.25 Updated by T Craig

LOCAL VARIABLES: