INTERFACE:
subroutine incident_diffuse (lbl, ubl, num_urbanl, filter_urbanl, canyon_hwr, sdif, sdif_road, sdif_sunwall, sdif_shadewall)DESCRIPTION:
Diffuse solar radiation incident on walls and road in urban canyon Conservation check: Total incoming diffuse (sdif) = sdif_road + (sdif_shadewall + sdif_sunwall)*canyon_hwr Multiplication by canyon_hwr scales wall fluxes (per unit wall area) to per unit ground area
USES:
use shr_kind_mod, only: r8 => shr_kind_r8 use clmtypeARGUMENTS:
implicit none integer, intent(in) :: lbl, ubl ! landunit-index bounds integer , intent(in) :: num_urbanl ! number of urban landunits integer , intent(in) :: filter_urbanl(ubl-lbl+1) ! urban landunit filter real(r8), intent(in) :: canyon_hwr(num_urbanl) ! ratio of building height to street width real(r8), intent(in) :: sdif(num_urbanl, numrad) ! diffuse solar radiation incident on horizontal surface real(r8), intent(out) :: sdif_road(num_urbanl, numrad) ! diffuse solar radiation incident on road real(r8), intent(out) :: sdif_sunwall(num_urbanl, numrad) ! diffuse solar radiation (per unit wall area) incident on sunlit wall real(r8), intent(out) :: sdif_shadewall(num_urbanl, numrad) ! diffuse solar radiation (per unit wall area) incident on shaded wall local pointers to original implicit in arguments (clmtype) real(r8), pointer :: vf_sr(:) ! view factor of sky for road real(r8), pointer :: vf_sw(:) ! view factor of sky for one wallCALLED FROM:
subroutine UrbanAlbedo in this moduleREVISION HISTORY:
Author: Gordon BonanLOCAL VARIABLES: