CanopyTransmitance Subroutine

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

Arguments

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