EffectiveSurfaceReflectance Subroutine

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

Arguments

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