UrbanInitTimeVar

INTERFACE:

   subroutine UrbanInitTimeVar( )

DESCRIPTION:

Initialize urban time-varying variables

USES:

     use clmtype   , only : clm3
     use clm_varcon, only : isturb, spval, icol_road_perv
     use decompMod , only : get_proc_bounds

ARGUMENTS:

     implicit none
   local pointers to original implicit in arguments (urban clump)
     integer , pointer :: ltype(:)      ! landunit type
     integer , pointer :: lgridcell(:)  ! gridcell of corresponding landunit
     integer , pointer :: clandunit(:)  ! landunit index of corresponding column
     integer , pointer :: plandunit(:)  ! landunit index of corresponding pft
     integer , pointer :: ctype(:)      ! column type
   local pointers to original implicit out arguments
     real(r8), pointer :: taf(:)                ! urban canopy air temperature (K)
     real(r8), pointer :: qaf(:)                ! urban canopy air specific humidity (kg/kg)
     real(r8), pointer :: eflx_building_heat(:) ! heat flux from urban building interior to walls, roof (W/m**2)
     real(r8), pointer :: eflx_urban_ac(:)      ! urban air conditioning flux (W/m**2)
     real(r8), pointer :: eflx_urban_heat(:)    ! urban heating flux (W/m**2)
     real(r8), pointer :: fcov(:)               ! fractional impermeable area
     real(r8), pointer :: fsat(:)               ! fractional area with water table at surface
     real(r8), pointer :: qcharge(:)            ! aquifer recharge rate (mm/s)
     real(r8), pointer :: t_building(:)         ! internal building temperature (K)
     real(r8), pointer :: eflx_traffic(:)       ! traffic sensible heat flux (W/m**2)
     real(r8), pointer :: eflx_wasteheat(:)     ! sensible heat flux from urban heating/cooling sources of waste heat (W/m**2)
     real(r8), pointer :: eflx_wasteheat_pft(:) ! sensible heat flux from urban heating/cooling sources of waste heat at pft level (W/m**2)
     real(r8), pointer :: eflx_heat_from_ac_pft(:) ! sensible heat flux put back into canyon due to removal by AC (W/m**2)
     real(r8), pointer :: eflx_traffic_pft(:)   ! sensible heat flux from traffic (W/m**2)
     real(r8), pointer :: eflx_anthro(:)        ! total anthropogenic heat flux (W/m**2)
     real(r8), pointer :: t_ref2m_u(:)          ! Urban 2 m height surface air temperature (Kelvin)
     real(r8), pointer :: t_ref2m_min_u(:)      ! Urban daily minimum of average 2 m height surface air temperature (K)
     real(r8), pointer :: t_ref2m_max_u(:)      ! Urban daily maximum of average 2 m height surface air temperature (K)
     real(r8), pointer :: rh_ref2m_u(:)         ! Urban 2 m height surface relative humidity (%)
     real(r8), pointer :: t_grnd_u(:)           ! Urban ground temperature (Kelvin)
     real(r8), pointer :: qflx_runoff_u(:)      ! Urban total runoff (qflx_drain+qflx_surf) (mm H2O /s)
     real(r8), pointer :: fsa_u(:)              ! Urban absorbed solar radiation (W/m**2)
     real(r8), pointer :: eflx_lwrad_net_u(:)   ! Urban net longwave radiation (W/m**2)
     real(r8), pointer :: eflx_lh_tot_u(:)      ! Urban latent heat flux (W/m**2)
     real(r8), pointer :: eflx_sh_tot_u(:)      ! Urban sensible heat flux (W/m**2)
     real(r8), pointer :: eflx_soil_grnd_u(:)   ! Urban ground heat flux (W/m**2)
     real(r8), pointer :: eflx_snomelt_u(:)     ! Urban snow melt heat flux (W/m**2)

CALLED FROM:

   subroutine initialize

REVISION HISTORY:

   Created by Keith Oleson February 2005

LOCAL VARIABLES: