init_radiation Subroutine

public subroutine init_radiation(ExtCoeff_beam, ExtCoeff_dif, EffExtCoeff_beam, EffExtCoeff_dif, RadFbeam, c1, rhoch, xk, mp, nrb, Clai_thresh, Ccoszen_tols, Cgauss_w, Cpi, Cpi180, cbl_standalone, jls_standalone, jls_radiation, subr_name, veg_mask, VegXfang, VegTaul, VegRefl, coszen, metDoY, SW_down, reducedLAIdue2snow)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(out)			::	ExtCoeff_beam(mp)
real,	intent(out)			::	ExtCoeff_dif(mp)
real,	intent(out)			::	EffExtCoeff_beam(mp,nrb)
real,	intent(out)			::	EffExtCoeff_dif(mp,nrb)
real,	intent(out)			::	RadFbeam(mp,nrb)
real,	intent(out)			::	c1(mp,nrb)
real,	intent(out)			::	rhoch(mp,nrb)
real,	intent(out)			::	xk(mp,nrb)
integer,	intent(in)			::	mp
integer,	intent(in)			::	nrb
real,	intent(in)			::	Clai_thresh
real,	intent(in)			::	Ccoszen_tols
real,	intent(in)			::	Cgauss_w(nrb)
real,	intent(in)			::	Cpi
real,	intent(in)			::	Cpi180
logical,	intent(in)			::	cbl_standalone
logical,	intent(in)			::	jls_standalone
logical,	intent(in)			::	jls_radiation
character(len=*),	intent(in)			::	subr_name
logical,	intent(in)			::	veg_mask(mp)
real,	intent(in)			::	VegXfang(mp)
real,	intent(in)			::	VegTaul(mp,nrb)
real,	intent(in)			::	VegRefl(mp,nrb)
real,	intent(in)			::	coszen(mp)
integer,	intent(in)			::	metDoY(mp)
real,	intent(in)			::	SW_down(mp,nrb)
real,	intent(in)			::	reducedLAIdue2snow(mp)