SnowAlbedo

INTERFACE:

   subroutine SnowAlbedo (coszen, snowage, ind, alb)

DESCRIPTION:

   Determine snow albedos

USES:

     use shr_kind_mod, only: r8 => shr_kind_r8

ARGUMENTS:

     implicit none
     real(r8), intent(in) :: coszen  ! cosine solar zenith angle for next time step
     real(r8), intent(in) :: snowage ! non dimensional snow age [-]
     integer , intent(in) :: ind     ! 0=direct beam, 1=diffuse radiation
     real(r8), intent(out):: alb(2)  ! snow albedo by waveband (assume 2 wavebands)

CALLED FROM:

   subroutine SurfaceAlbedo in this module

REVISION HISTORY:

   Author: Gordon Bonan
   2/5/02, Peter Thornton: Migrated to new data structures. Eliminated
   reference to derived types in this subroutine, and made consistent use
   of the assumption that numrad = 2, with index values: 1=visible,2=NIR