UrbanSnowAlbedo

INTERFACE:

   subroutine UrbanSnowAlbedo (lbl, ubl, num_urbanl, filter_urbanl, coszen, ind, &
                               albsn_roof, albsn_improad, albsn_perroad)

DESCRIPTION:

Determine urban snow albedos

USES:

     use shr_kind_mod, only: r8 => shr_kind_r8
     use clmtype
     use clm_varcon   , only : icol_roof, icol_road_perv, icol_road_imperv

ARGUMENTS:

     implicit none
     integer,  intent(in) :: lbl, ubl                    ! landunit-index bounds
     integer , intent(in) :: num_urbanl                  ! number of urban landunits in clump
     integer , intent(in) :: filter_urbanl(ubl-lbl+1)    ! urban landunit filter
     integer , intent(in) :: ind                         ! 0=direct beam, 1=diffuse radiation
     real(r8), intent(in) :: coszen(num_urbanl)          ! cosine solar zenith angle
     real(r8), intent(out):: albsn_roof(num_urbanl,2)    ! roof snow albedo by waveband (assume 2 wavebands)
     real(r8), intent(out):: albsn_improad(num_urbanl,2) ! impervious road snow albedo by waveband (assume 2 wavebands)
     real(r8), intent(out):: albsn_perroad(num_urbanl,2) ! pervious road snow albedo by waveband (assume 2 wavebands)

CALLED FROM:

   subroutine UrbanAlbedo in this module

REVISION HISTORY:

   Author: Keith Oleson 9/2005

LOCAL VARIABLES:

   local pointers to implicit in arguments
     integer , pointer :: coli(:)      ! beginning column index for landunit
     integer , pointer :: colf(:)      ! ending column index for landunit
     real(r8), pointer :: h2osno(:)    ! snow water (mm H2O)
     integer , pointer :: ctype(:)     ! column type
   !OTHER LOCAL VARIABLES: