UrbanInitTimeConst

INTERFACE:

   subroutine UrbanInitTimeConst()

DESCRIPTION:

Initialize urban time-constant variables

USES:

     use clmtype      , only : clm3
     use clm_varcon   , only : isturb, icol_roof, icol_sunwall, icol_shadewall, &
                               icol_road_perv, icol_road_imperv, spval
     use decompMod    , only : get_proc_bounds, ldecomp
     use UrbanInputMod, only : urbinp

ARGUMENTS:

     implicit none

LOCAL VARIABLES:

   local pointers to original implicit in arguments
     integer , pointer :: gdc(:)                 ! grid index for landunit 
     integer , pointer :: coli(:)                ! beginning column index for landunit 
     integer , pointer :: colf(:)                ! ending column index for landunit
     integer , pointer :: ctype(:)               ! column type
     integer , pointer :: ltype(:)               ! landunit type index
     integer , pointer :: lgridcell(:)           ! gridcell of corresponding landunit
   local pointers to original implicit out arguments
     real(r8), pointer :: canyon_hwr(:)          ! urban canyon height to width ratio
     real(r8), pointer :: emg(:)                 ! ground emissivity
     real(r8), pointer :: wtroad_perv(:)         ! weight of pervious column to total road
     real(r8), pointer :: ht_roof(:)             ! height of urban roof (m)
     real(r8), pointer :: wtlunit_roof(:)        ! weight of roof with respect to landunit
     real(r8), pointer :: wind_hgt_canyon(:)     ! height above road at which wind in canyon is to be computed (m)
     real(r8), pointer :: eflx_traffic_factor(:) ! multiplicative factor for sensible heat flux from urban traffic
     real(r8), pointer :: t_building_max(:)      ! maximum internal building temperature (K)
     real(r8), pointer :: t_building_min(:)      ! minimum internal building temperature (K)
     real(r8), pointer :: tk_wall(:,:)           ! thermal conductivity of urban wall (W/m/K)
     real(r8), pointer :: tk_roof(:,:)           ! thermal conductivity of urban roof (W/m/K)
     real(r8), pointer :: tk_improad(:,:)        ! thermal conductivity of urban impervious road (W/m/K)
     real(r8), pointer :: cv_wall(:,:)           ! thermal conductivity of urban wall (J/m^3/K)
     real(r8), pointer :: cv_roof(:,:)           ! thermal conductivity of urban roof (J/m^3/K)
     real(r8), pointer :: cv_improad(:,:)        ! thermal conductivity of urban impervious road (J/m^3/K)
     real(r8), pointer :: thick_wall(:)          ! thickness of urban wall (m)
     real(r8), pointer :: thick_roof(:)          ! thickness of urban roof (m)
     integer,  pointer :: nlev_improad(:)        ! number of impervious road layers (-)
   !OTHER LOCAL VARIABLES