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 computeREVISION HISTORY:
Created by Mariana VertensteinLOCAL VARIABLES: