Fortran: Module Interface UrbanInputMod (Source File: UrbanInputMod.F90)

Read in input urban data - fill in data structure urbinp

USES:

   use shr_kind_mod, only : r8 => shr_kind_r8
   use abortutils  , only : endrun  
   use shr_sys_mod , only : shr_sys_flush

PUBLIC TYPES:

   implicit none
   save
 
   private

PUBLIC MEMBER FUNCTIONS:

   public :: UrbanInput         ! Read in urban input data
 
   type urbinp_t
      real(r8), pointer :: canyon_hwr(:)  
      real(r8), pointer :: wtlunit_roof(:)  
      real(r8), pointer :: wtroad_perv(:)  
      real(r8), pointer :: em_roof(:)   
      real(r8), pointer :: em_improad(:)  
      real(r8), pointer :: em_perroad(:)  
      real(r8), pointer :: em_wall(:)  
      real(r8), pointer :: alb_roof_dir(:,:)  
      real(r8), pointer :: alb_roof_dif(:,:)  
      real(r8), pointer :: alb_improad_dir(:,:)  
      real(r8), pointer :: alb_improad_dif(:,:)  
      real(r8), pointer :: alb_perroad_dir(:,:)  
      real(r8), pointer :: alb_perroad_dif(:,:)  
      real(r8), pointer :: alb_wall_dir(:,:)  
      real(r8), pointer :: alb_wall_dif(:,:)  
      real(r8), pointer :: ht_roof(:)
      real(r8), pointer :: wind_hgt_canyon(:)
      real(r8), pointer :: tk_wall(:,:)
      real(r8), pointer :: tk_roof(:,:)
      real(r8), pointer :: tk_improad(:,:)
      real(r8), pointer :: cv_wall(:,:)
      real(r8), pointer :: cv_roof(:,:)
      real(r8), pointer :: cv_improad(:,:)
      real(r8), pointer :: thick_wall(:)
      real(r8), pointer :: thick_roof(:)
      integer,  pointer :: nlev_improad(:)
      real(r8), pointer :: t_building_min(:)
      real(r8), pointer :: t_building_max(:)
   end type urbinp_t
   public urbinp_t
 
   type (urbinp_t)   , public :: urbinp        ! urban input derived type