subroutine, private urbanradiationmod::net_longwave |
( |
type(bounds_type), intent(in) |
bounds, |
|
|
integer, intent(in) |
num_urbanl, |
|
|
integer, dimension(:), intent(in) |
filter_urbanl, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
canyon_hwr, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
wtroad_perv, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
lwdown, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
em_roof, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
em_improad, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
em_perroad, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
em_wall, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
t_roof, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
t_improad, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
t_perroad, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
t_sunwall, |
|
|
real(r8), dimension( bounds%begl: ), intent(in) |
t_shadewall, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwnet_roof, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwnet_improad, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwnet_perroad, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwnet_sunwall, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwnet_shadewall, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwnet_canyon, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwup_roof, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwup_improad, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwup_perroad, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwup_sunwall, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwup_shadewall, |
|
|
real(r8), dimension( bounds%begl: ), intent(out) |
lwup_canyon, |
|
|
type(urbanparams_type), intent(in) |
urbanparams_vars |
|
) |
| |
|
private |