ExtinctionCoeff Subroutine

private subroutine ExtinctionCoeff(ExtCoeff_beam, ExtCoeff_dif, mp, nrb, Cgauss_w, Ccoszen_tols_tiny, reducedLAIdue2snow, veg_mask, cLAI_thresh, coszen, xphi1, xphi2, xk, xvlai2)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(out)			::	ExtCoeff_beam(mp)
real,	intent(out)			::	ExtCoeff_dif(mp)
integer,	intent(in)			::	mp
integer,	intent(in)			::	nrb
real,	intent(in)			::	Cgauss_w(nrb)
real,	intent(in)			::	Ccoszen_tols_tiny
real,	intent(in)			::	reducedLAIdue2snow(mp)
logical,	intent(in)			::	veg_mask(mp)
real,	intent(in)			::	cLAI_thresh
real,	intent(in)			::	coszen(mp)
real,	intent(in)			::	xphi1(mp)
real,	intent(in)			::	xphi2(mp)
real,	intent(in)			::	xk(mp,nrb)
real,	intent(in)			::	xvlai2(mp,nrb)