INTERFACE:
subroutine net_longwave (lbl, ubl, num_urbanl, filter_urbanl, canyon_hwr, wtroad_perv, & lwdown, em_roof, em_improad, em_perroad, em_wall, & t_roof, t_improad, t_perroad, t_sunwall, t_shadewall, & lwnet_roof, lwnet_improad, lwnet_perroad, lwnet_sunwall, lwnet_shadewall, lwnet_canyon, & lwup_roof, lwup_improad, lwup_perroad, lwup_sunwall, lwup_shadewall, lwup_canyon)DESCRIPTION:
Net longwave radiation for road and both walls in urban canyon allowing for multiple reflection. Also net longwave radiation for urban roof.
USES:
use shr_kind_mod , only : r8 => shr_kind_r8 use clm_varcon , only : sb use clmtypeARGUMENTS:
implicit none integer , intent(in) :: num_urbanl ! number of urban landunits integer, intent(in) :: lbl, ubl ! landunit-index bounds 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) :: wtroad_perv(num_urbanl) ! weight of pervious road wrt total road real(r8), intent(in) :: lwdown(num_urbanl) ! atmospheric longwave radiation (W/m**2) real(r8), intent(in) :: em_roof(num_urbanl) ! roof emissivity real(r8), intent(in) :: em_improad(num_urbanl) ! impervious road emissivity real(r8), intent(in) :: em_perroad(num_urbanl) ! pervious road emissivity real(r8), intent(in) :: em_wall(num_urbanl) ! wall emissivity real(r8), intent(in) :: t_roof(num_urbanl) ! roof temperature (K) real(r8), intent(in) :: t_improad(num_urbanl) ! impervious road temperature (K) real(r8), intent(in) :: t_perroad(num_urbanl) ! ervious road temperature (K) real(r8), intent(in) :: t_sunwall(num_urbanl) ! sunlit wall temperature (K) real(r8), intent(in) :: t_shadewall(num_urbanl) ! shaded wall temperature (K) real(r8), intent(out) :: lwnet_roof(num_urbanl) ! net (outgoing-incoming) longwave radiation, roof (W/m**2) real(r8), intent(out) :: lwnet_improad(num_urbanl) ! net (outgoing-incoming) longwave radiation, impervious road (W/m**2) real(r8), intent(out) :: lwnet_perroad(num_urbanl) ! net (outgoing-incoming) longwave radiation, pervious road (W/m**2) real(r8), intent(out) :: lwnet_sunwall(num_urbanl) ! net (outgoing-incoming) longwave radiation (per unit wall area), sunlit wall (W/m**2) real(r8), intent(out) :: lwnet_shadewall(num_urbanl) ! net (outgoing-incoming) longwave radiation (per unit wall area), shaded wall (W/m**2) real(r8), intent(out) :: lwnet_canyon(num_urbanl) ! net (outgoing-incoming) longwave radiation for canyon, per unit ground area (W/m**2) real(r8), intent(out) :: lwup_roof(num_urbanl) ! upward longwave radiation, roof (W/m**2) real(r8), intent(out) :: lwup_improad(num_urbanl) ! upward longwave radiation, impervious road (W/m**2) real(r8), intent(out) :: lwup_perroad(num_urbanl) ! upward longwave radiation, pervious road (W/m**2) real(r8), intent(out) :: lwup_sunwall(num_urbanl) ! upward longwave radiation (per unit wall area), sunlit wall (W/m**2) real(r8), intent(out) :: lwup_shadewall(num_urbanl) ! upward longwave radiation (per unit wall area), shaded wall (W/m**2) real(r8), intent(out) :: lwup_canyon(num_urbanl) ! upward longwave radiation for canyon, per unit ground area (W/m**2) local pointers to original implicit in arguments (clmtype) real(r8), pointer :: vf_sr(:) ! view factor of sky for road real(r8), pointer :: vf_wr(:) ! view factor of one wall for road real(r8), pointer :: vf_sw(:) ! view factor of sky for one wall real(r8), pointer :: vf_rw(:) ! view factor of road for one wall real(r8), pointer :: vf_ww(:) ! view factor of opposing wall for one wallCALLED FROM:
subroutine UrbanRadiation in this moduleREVISION HISTORY:
Author: Gordon BonanLOCAL VARIABLES: