Albedo Subroutine

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	Intent	Optional	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)