subroutine, private urbanalbedomod::net_solar |
( |
type (bounds_type), intent(in) |
bounds, |
|
|
integer, intent(in) |
num_urbanl, |
|
|
integer, dimension(:), intent(in) |
filter_urbanl, |
|
|
real(r8), dimension ( bounds%begl: ), intent(in) |
coszen, |
|
|
real(r8), dimension ( bounds%begl: ), intent(in) |
canyon_hwr, |
|
|
real(r8), dimension ( bounds%begl: ), intent(in) |
wtroad_perv, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
sdir, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
sdif, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
alb_improad_dir, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
alb_perroad_dir, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
alb_wall_dir, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
alb_roof_dir, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
alb_improad_dif, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
alb_perroad_dif, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
alb_wall_dif, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
alb_roof_dif, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
sdir_road, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
sdir_sunwall, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
sdir_shadewall, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
sdif_road, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
sdif_sunwall, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(in) |
sdif_shadewall, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(inout) |
sref_improad_dir, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(inout) |
sref_perroad_dir, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(inout) |
sref_sunwall_dir, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(inout) |
sref_shadewall_dir, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(inout) |
sref_roof_dir, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(inout) |
sref_improad_dif, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(inout) |
sref_perroad_dif, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(inout) |
sref_sunwall_dif, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(inout) |
sref_shadewall_dif, |
|
|
real(r8), dimension ( bounds%begl: , 1: ), intent(inout) |
sref_roof_dif, |
|
|
type(urbanparams_type), intent(in) |
urbanparams_vars, |
|
|
type(solarabs_type), intent(inout) |
solarabs_vars |
|
) |
| |
|
private |