UrbanParamsType Module


Uses


Variables

Type Visibility Attributes Name Initial
type(urbinp_type), public :: urbinp
character(len=*), public, parameter :: urban_hac_off = 'OFF'
character(len=*), public, parameter :: urban_hac_on = 'ON'
character(len=*), public, parameter :: urban_wasteheat_on = 'ON_WASTEHEAT'
character(len=16), public :: urban_hac = urban_hac_off
logical, public :: urban_traffic = .false.

Derived Types

type, public ::  urbanparams_type

Components

Type Visibility Attributes Name Initial
real(kind=r8), public, allocatable :: wind_hgt_canyon(:)
real(kind=r8), public, allocatable :: em_roof(:)
real(kind=r8), public, allocatable :: em_improad(:)
real(kind=r8), public, allocatable :: em_perroad(:)
real(kind=r8), public, allocatable :: em_wall(:)
real(kind=r8), public, allocatable :: alb_roof_dir(:,:)
real(kind=r8), public, allocatable :: alb_roof_dif(:,:)
real(kind=r8), public, allocatable :: alb_improad_dir(:,:)
real(kind=r8), public, allocatable :: alb_improad_dif(:,:)
real(kind=r8), public, allocatable :: alb_perroad_dir(:,:)
real(kind=r8), public, allocatable :: alb_perroad_dif(:,:)
real(kind=r8), public, allocatable :: alb_wall_dir(:,:)
real(kind=r8), public, allocatable :: alb_wall_dif(:,:)
integer, public, pointer :: nlev_improad(:)
real(kind=r8), public, pointer :: tk_wall(:,:)
real(kind=r8), public, pointer :: tk_roof(:,:)
real(kind=r8), public, pointer :: tk_improad(:,:)
real(kind=r8), public, pointer :: cv_wall(:,:)
real(kind=r8), public, pointer :: cv_roof(:,:)
real(kind=r8), public, pointer :: cv_improad(:,:)
real(kind=r8), public, pointer :: thick_wall(:)
real(kind=r8), public, pointer :: thick_roof(:)
real(kind=r8), public, pointer :: vf_sr(:)
real(kind=r8), public, pointer :: vf_wr(:)
real(kind=r8), public, pointer :: vf_sw(:)
real(kind=r8), public, pointer :: vf_rw(:)
real(kind=r8), public, pointer :: vf_ww(:)
real(kind=r8), public, pointer :: t_building_min(:)
real(kind=r8), public, pointer :: eflx_traffic_factor(:)

Type-Bound Procedures

procedure, public :: Init

Functions

public function IsSimpleBuildTemp()

Arguments

None

Return Value logical

public function IsProgBuildTemp()

Arguments

None

Return Value logical


Subroutines

public subroutine UrbanInput(begg, endg, mode)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: begg
integer, intent(in) :: endg
character(len=*), intent(in) :: mode

public subroutine CheckUrban(begg, endg, pcturb, caller)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: begg
integer, intent(in) :: endg
real(kind=r8), intent(in) :: pcturb(begg:,:)
character(len=*), intent(in) :: caller

public subroutine UrbanReadNML(NLFilename)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: NLFilename