set_landunit_urban

INTERFACE:

    subroutine set_landunit_urban (ltype, wtxy, vegxy, &
   subroutine set_landunit_urban (ltype, &
                                  nw, gi, li, ci, pi, setdata)

DESCRIPTION:

Initialize urban landunits

!USES use clm_varcon , only : isturb, icol_roof, icol_sunwall, icol_shadewall, & icol_road_perv, icol_road_imperv use clm_varpar , only : npatch_urban, maxpatch_urb use clmtype , only : clm3, model_type, gridcell_type, landunit_type, & column_type, pft_type use subgridMod , only : subgrid_get_gcellinfo use UrbanInputMod, only : urbinp use decompMod , only : ldecomp

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

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES: