SoilAlbedo

INTERFACE:

   subroutine SoilAlbedo (c, coszen, albsnd, albsni)

DESCRIPTION:

   Determine ground surface albedo, accounting for snow

USES:

     use shr_kind_mod, only: r8 => shr_kind_r8
     use clmtype
     use clm_varpar, only : numrad
     use clm_varcon, only : albsat, albdry, alblak, albice, tfrz, istice, istsoil

ARGUMENTS:

     implicit none
     type (column_type), target, intent(inout) :: c  !column derived type
     real(r8), intent(in) :: coszen          !cos solar zenith angle next time step
     real(r8), intent(in) :: albsnd(numrad)  !snow albedo (direct)
     real(r8), intent(in) :: albsni(numrad)  !snow albedo (diffuse)

CALLED FROM:

   subroutine SurfaceAlbedo in this module

REVISION HISTORY:

   Author: Gordon Bonan
   2/5/02, Peter Thornton: Migrated to new data structures.

LOCAL VARIABLES:

   local pointers to original implicit in scalars
     integer , pointer :: itypwat    !water type
     integer , pointer :: isoicol   !soil color class
     real(r8), pointer :: t_grnd    !ground temperature (Kelvin)
     real(r8), pointer :: frac_sno  !fraction of ground covered by snow (0 to 1)
   local pointers to original implicit in arrays
     real(r8), dimension(:), pointer:: h2osoi_vol !volumetric soil water [m3/m3]
   local pointers to original implicit out arrays
     real(r8), dimension(:), pointer:: albgrd  !ground albedo (direct)
     real(r8), dimension(:), pointer:: albgri  !ground albedo (diffuse)