cbl_albedo_mod Module

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


Subroutines

public subroutine Albedo(AlbSnow, AlbSoil, mp, nrb, ICE_SoilType, lakes_cable, jls_radiation, veg_mask, Ccoszen_tols, Cgauss_w, SurfaceType, SoilType, VegRefl, VegTaul, coszen, reducedLAIdue2snow, SnowDepth, SnowDensity, SoilTemp, SnowAge, xk, c1, rhoch, RadFbeam, RadAlbedo, ExtCoeff_beam, ExtCoeff_dif, EffExtCoeff_beam, EffExtCoeff_dif, CanopyRefl_beam, CanopyRefl_dif, CanopyTransmit_beam, CanopyTransmit_dif, EffSurfRefl_beam, EffSurfRefl_dif)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: AlbSnow(mp,nrb)
real, intent(in) :: AlbSoil(mp,nrb)
integer, intent(in) :: mp
integer, intent(in) :: nrb
integer, intent(in) :: ICE_SoilType
integer, intent(in) :: lakes_cable
logical, intent(in) :: jls_radiation
logical, intent(in) :: veg_mask(mp)
real, intent(in) :: Ccoszen_tols
real, intent(in) :: Cgauss_w(nrb)
integer, intent(in) :: SurfaceType(mp)
integer, intent(in) :: SoilType(mp)
real, intent(in) :: VegRefl(mp,nrb)
real, intent(in) :: VegTaul(mp,nrb)
real, intent(in) :: coszen(mp)
real :: reducedLAIdue2snow(mp)
real, intent(in) :: SnowDepth(mp)
real, intent(in) :: SnowDensity(mp)
real, intent(in) :: SoilTemp(mp)
real, intent(in) :: SnowAge(mp)
real, intent(in) :: xk(mp,nrb)
real, intent(in) :: c1(mp,nrb)
real, intent(in) :: rhoch(mp,nrb)
real, intent(in) :: RadFbeam(mp,nrb)
real, intent(out) :: RadAlbedo(mp,nrb)
real, intent(in) :: ExtCoeff_beam(mp)
real, intent(in) :: ExtCoeff_dif(mp)
real, intent(in) :: EffExtCoeff_beam(mp,nrb)
real, intent(in) :: EffExtCoeff_dif(mp,nrb)
real, intent(out) :: CanopyRefl_beam(mp,nrb)
real, intent(out) :: CanopyRefl_dif(mp,nrb)
real, intent(out) :: CanopyTransmit_beam(mp,nrb)
real, intent(out) :: CanopyTransmit_dif(mp,nrb)
real, intent(out) :: EffSurfRefl_beam(mp,nrb)
real, intent(out) :: EffSurfRefl_dif(mp,nrb)

private subroutine CanopyReflectance(CanopyRefl_beam, CanopyRefl_dif, mp, nrb, Cgauss_w, veg_mask, AlbSnow, xk, rhoch, ExtCoeff_beam, ExtCoeff_dif)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: CanopyRefl_beam(mp,nrb)
real, intent(out) :: CanopyRefl_dif(mp,nrb)
integer, intent(in) :: mp
integer, intent(in) :: nrb
real, intent(in) :: Cgauss_w(nrb)
logical, intent(in) :: veg_mask(mp)
real, intent(in) :: AlbSnow(mp,nrb)
real, intent(in) :: xk(mp,nrb)
real, intent(in) :: rhoch(mp,nrb)
real, intent(in) :: ExtCoeff_beam(mp)
real, intent(in) :: ExtCoeff_dif(mp)

private subroutine CanopyTransmitance(CanopyTransmit_beam, CanopyTransmit_dif, mp, nrb, mask, reducedLAIdue2snow, EffExtCoeff_beam, EffExtCoeff_dif)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: CanopyTransmit_beam(mp,nrb)
real, intent(out) :: CanopyTransmit_dif(mp,nrb)
integer, intent(in) :: mp
integer, intent(in) :: nrb
logical, intent(in) :: mask(mp)
real, intent(in) :: reducedLAIdue2snow(mp)
real, intent(in) :: EffExtCoeff_beam(mp,nrb)
real, intent(in) :: EffExtCoeff_dif(mp,nrb)

private subroutine EffectiveSurfaceReflectance(EffSurfRefl_beam, EffSurfRefl_dif, mp, nrb, veg_mask, CanopyRefl_beam, CanopyRefl_dif, CanopyTransmit_beam, CanopyTransmit_dif, AlbSnow)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: EffSurfRefl_beam(mp,nrb)
real, intent(out) :: EffSurfRefl_dif(mp,nrb)
integer, intent(in) :: mp
integer, intent(in) :: nrb
logical, intent(in) :: veg_mask(mp)
real, intent(in) :: CanopyRefl_beam(mp,nrb)
real, intent(in) :: CanopyRefl_dif(mp,nrb)
real, intent(in) :: CanopyTransmit_beam(mp,nrb)
real, intent(in) :: CanopyTransmit_dif(mp,nrb)
real, intent(in) :: AlbSnow(mp,nrb)

private subroutine EffectiveReflectance(EffRefl, mp, nrb, CanopyRefl, AlbSnow, CanopyTransmit, mask)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: EffRefl(mp,nrb)
integer, intent(in) :: mp
integer, intent(in) :: nrb
real, intent(in) :: CanopyRefl(mp,nrb)
real, intent(in) :: AlbSnow(mp,nrb)
real, intent(in) :: CanopyTransmit(mp,nrb)
logical, intent(in) :: mask(mp)

private subroutine FbeamRadAlbedo(RadAlbedo, mp, nrb, veg_mask, RadFbeam, EffSurfRefl_beam, EffSurfRefl_dif, AlbSnow)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: RadAlbedo(mp,nrb)
integer, intent(in) :: mp
integer, intent(in) :: nrb
logical, intent(in) :: veg_mask(mp)
real, intent(in) :: RadFbeam(mp,nrb)
real, intent(in) :: EffSurfRefl_beam(mp,nrb)
real, intent(in) :: EffSurfRefl_dif(mp,nrb)
real, intent(in) :: AlbSnow(mp,nrb)