net_longwave

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 clmtype

ARGUMENTS:

     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 wall

CALLED FROM:

   subroutine UrbanRadiation in this module

REVISION HISTORY:

   Author: Gordon Bonan

LOCAL VARIABLES: