UrbanInitAero

INTERFACE:

   subroutine UrbanInitAero( )

DESCRIPTION:

Calculate urban land unit aerodynamic constants using Macdonald (1998) as used in Grimmond and Oke (1999)

USES:

     use clmtype   , only : clm3
     use clm_varcon, only : isturb, vkc
     use decompMod , only : get_proc_bounds

ARGUMENTS:

     implicit none
   local pointers to original implicit in arguments (urban clump)
     real(r8), pointer :: ht_roof(:)    ! height of urban roof (m)
     real(r8), pointer :: canyon_hwr(:) ! ratio of building height to street width (-)
     integer , pointer :: ltype(:)      ! landunit type
   local pointers to original implicit out arguments
     real(r8), pointer :: z_0_town(:)   ! urban landunit momentum roughness length (m)
     real(r8), pointer :: z_d_town(:)   ! urban landunit displacement height (m)

CALLED FROM:

   subroutine initialize

REVISION HISTORY:

   Created by Keith Oleson January 2005

LOCAL VARIABLES: