Functions/Subroutines
subroutine, public	irrad (np, ple_dev, ta_dev, wa_dev, oa_dev, tb_dev, co2, trace, n2o_dev, ch4_dev, cfc11_dev, cfc12_dev, cfc22_dev, cwc_dev, fcld_dev, ict, icb, reff_dev, ns, fs_dev, tg_dev, eg_dev, tv_dev, ev_dev, rv_dev, na, nb, taua_dev, ssaa_dev, asya_dev, flxu_dev, flxd_dev, dfdts_dev, aib_ir, awb_ir, aiw_ir, aww_ir, aig_ir, awg_ir, xkw, xke, mw, aw, bw, pm, fkw, gkw, cb, dcb, w11, w12, w13, p11, p12, p13, dwe, dpe, c1, c2, c3, oo1, oo2, oo3, h11, h12, h13, h21, h22, h23, h81, h82, h83)

subroutine, public	planck (ibn, cb, t, xlayer)

subroutine, public	plancd (ibn, dcb, t, dbdt)

subroutine, public	h2oexps (ib, np, dh2o, pa, dt, xkw, aw, bw, pm, mw, h2oexp)

subroutine, public	conexps (ib, np, dcont, xke, conexp)

subroutine, public	n2oexps (ib, np, dn2o, pa, dt, n2oexp)

subroutine, public	ch4exps (ib, np, dch4, pa, dt, ch4exp)

subroutine, public	comexps (ib, np, dcom, dt, comexp)

subroutine, public	cfcexps (ib, np, a1, b1, fk1, a2, b2, fk2, dcfc, dt, cfcexp)

subroutine, public	b10exps (np, dh2o, dcont, dco2, dn2o, pa, dt, h2oexp, conexp, co2exp, n2oexp)

subroutine, public	tablup (nx1, nh1, dw, p, dt, s1, s2, s3, w1, p1, dwe, dpe, coef1, coef2, coef3, tran)

subroutine, public	h2okdis (ib, np, k, fkw, gkw, ne, h2oexp, conexp, th2o, tcon, tran)

subroutine, public	n2okdis (ib, np, k, n2oexp, tn2o, tran)

subroutine, public	ch4kdis (ib, np, k, ch4exp, tch4, tran)

subroutine, public	comkdis (ib, np, k, comexp, tcom, tran)

subroutine, public	cfckdis (np, k, cfcexp, tcfc, tran)

subroutine, public	b10kdis (np, k, h2oexp, conexp, co2exp, n2oexp, th2o, tcon, tco2, tn2o, tran)

subroutine, public	cldovlp (np, k1, k2, ict, icb, icx, ncld, enn, ett, cldhi, cldmd, cldlw)

subroutine, public	sfcflux (ibn, cb, dcb, ns, fs, tg, eg, tv, ev, rv, bs, dbs, rflxs)

subroutine, public	mkicx (np, ict, icb, enn, icx, ncld)

subroutine, public	sortit (ENN, LST, NCL, ibg, iend)

subroutine, public	getirtau1 (ib, nlevs, dp, fcld, reff, hydromets, tcldlyr, enn, aib_ir1, awb_ir1, aiw_ir1, aww_ir1, aig_ir1, awg_ir1, CONS_GRAV)

Function/Subroutine Documentation

◆ b10exps()

subroutine, public irradmod::b10exps	(	integer	np,
		real(8), dimension(0:np)	dh2o,
		real(8), dimension(0:np)	dcont,
		real(8), dimension(0:np)	dco2,
		real(8), dimension(0:np)	dn2o,
		real(8), dimension(0:np)	pa,
		real(8), dimension(0:np)	dt,
		real(8), dimension(0:np,5)	h2oexp,
		real(8), dimension(0:np)	conexp,
		real(8), dimension(0:np,6)	co2exp,
		real(8), dimension(0:np,2)	n2oexp
	)

Definition at line 1246 of file irrad.F90.

Here is the caller graph for this function:

◆ b10kdis()

subroutine, public irradmod::b10kdis	(	integer	np,
		integer	k,
		real(8), dimension(0:np,5)	h2oexp,
		real(8), dimension(0:np)	conexp,
		real(8), dimension(0:np,6)	co2exp,
		real(8), dimension(0:np,2)	n2oexp,
		real(8), dimension(6)	th2o,
		real(8), dimension(3)	tcon,
		real(8), dimension(6)	tco2,
		real(8), dimension(4)	tn2o,
		real(8)	tran
	)

Definition at line 1864 of file irrad.F90.

Here is the caller graph for this function:

◆ cfcexps()

subroutine, public irradmod::cfcexps	(	integer	ib,
		integer	np,
		real(8)	a1,
		real(8)	b1,
		real(8)	fk1,
		real(8)	a2,
		real(8)	b2,
		real(8)	fk2,
		real(8), dimension(0:np)	dcfc,
		real(8), dimension(0:np)	dt,
		real(8), dimension(0:np)	cfcexp
	)

Definition at line 1188 of file irrad.F90.

Here is the caller graph for this function:

◆ cfckdis()

subroutine, public irradmod::cfckdis	(	integer	np,
		integer	k,
		real(8), dimension(0:np)	cfcexp,
		real(8)	tcfc,
		real(8)	tran
	)

Definition at line 1827 of file irrad.F90.

Here is the caller graph for this function:

◆ ch4exps()

subroutine, public irradmod::ch4exps	(	integer	ib,
		integer	np,
		real(8), dimension(0:np)	dch4,
		real(8), dimension(0:np)	pa,
		real(8), dimension(0:np)	dt,
		real(8), dimension(0:np,4)	ch4exp
	)

Definition at line 1063 of file irrad.F90.

Here is the caller graph for this function:

◆ ch4kdis()

subroutine, public irradmod::ch4kdis	(	integer	ib,
		integer	np,
		integer	k,
		real(8), dimension(0:np,4)	ch4exp,
		real(8), dimension(4)	tch4,
		real(8)	tran
	)

Definition at line 1682 of file irrad.F90.

Here is the caller graph for this function:

◆ cldovlp()

subroutine, public irradmod::cldovlp	(	integer, intent(in)	np,
		integer, intent(in)	k1,
		integer, intent(in)	k2,
		integer, intent(in)	ict,
		integer, intent(in)	icb,
		integer, dimension(0:np), intent(in)	icx,
		integer, dimension(3), intent(in)	ncld,
		real(8), dimension(0:np), intent(in)	enn,
		real(8), dimension(0:np), intent(in)	ett,
		real(8), intent(inout)	cldhi,
		real(8), intent(inout)	cldmd,
		real(8), intent(inout)	cldlw
	)

Definition at line 1973 of file irrad.F90.

Here is the caller graph for this function:

◆ comexps()

subroutine, public irradmod::comexps	(	integer	ib,
		integer	np,
		real(8), dimension(0:np)	dcom,
		real(8), dimension(0:np)	dt,
		real(8), dimension(0:np,6)	comexp
	)

Definition at line 1132 of file irrad.F90.

Here is the caller graph for this function:

◆ comkdis()

subroutine, public irradmod::comkdis	(	integer	ib,
		integer	np,
		integer	k,
		real(8), dimension(0:np,6)	comexp,
		real(8), dimension(6)	tcom,
		real(8)	tran
	)

Definition at line 1749 of file irrad.F90.

Here is the caller graph for this function:

◆ conexps()

subroutine, public irradmod::conexps	(	integer	ib,
		integer	np,
		real(8), dimension(0:np)	dcont,
		real(8), dimension(9)	xke,
		real(8), dimension(0:np,3)	conexp
	)

Definition at line 940 of file irrad.F90.

Here is the caller graph for this function:

◆ getirtau1()

subroutine, public irradmod::getirtau1	(	integer, intent(in)	ib,
		integer, intent(in)	nlevs,
		real(8), dimension(nlevs), intent(in)	dp,
		real(8), dimension(nlevs), intent(in)	fcld,
		real(8), dimension(nlevs,4), intent(in)	reff,
		real(8), dimension(nlevs,4), intent(in)	hydromets,
		real(8), dimension(0:nlevs ), intent(out)	tcldlyr,
		real(8), dimension(0:nlevs ), intent(out)	enn,
		real(8), dimension(3,10), intent(in)	aib_ir1,
		real(8), dimension(4,10), intent(in)	awb_ir1,
		real(8), dimension(4,10), intent(in)	aiw_ir1,
		real(8), dimension(4,10), intent(in)	aww_ir1,
		real(8), dimension(4,10), intent(in)	aig_ir1,
		real(8), dimension(4,10), intent(in)	awg_ir1,
		real(8), intent(in)	CONS_GRAV
	)

Definition at line 2243 of file irrad.F90.

Here is the caller graph for this function:

◆ h2oexps()

subroutine, public irradmod::h2oexps	(	integer	ib,
		integer	np,
		real(8), dimension(0:np)	dh2o,
		real(8), dimension(0:np)	pa,
		real(8), dimension(0:np)	dt,
		real(8), dimension(9)	xkw,
		real(8), dimension(9)	aw,
		real(8), dimension(9)	bw,
		real(8), dimension(9)	pm,
		integer, dimension(9)	mw,
		real(8), dimension(0:np,6)	h2oexp
	)

Definition at line 855 of file irrad.F90.

Here is the caller graph for this function:

◆ h2okdis()

subroutine, public irradmod::h2okdis	(	integer	ib,
		integer	np,
		integer	k,
		real(8), dimension(6,9)	fkw,
		real(8), dimension(6,3)	gkw,
		integer	ne,
		real(8), dimension(0:np,6)	h2oexp,
		real(8), dimension(0:np,3)	conexp,
		real(8), dimension(6)	th2o,
		real(8), dimension(3)	tcon,
		real(8)	tran
	)

Definition at line 1484 of file irrad.F90.

Here is the caller graph for this function:

◆ irrad()

subroutine, public irradmod::irrad	(	integer, intent(in)	np,
		real(8), dimension(np+1), intent(in)	ple_dev,
		real(8), dimension(np), intent(in)	ta_dev,
		real(8), dimension(np), intent(in)	wa_dev,
		real(8), dimension(np), intent(in)	oa_dev,
		real(8), intent(in)	tb_dev,
		real(8), intent(in)	co2,
		logical, intent(in)	trace,
		real(8), dimension(np), intent(in)	n2o_dev,
		real(8), dimension(np), intent(in)	ch4_dev,
		real(8), dimension(np), intent(in)	cfc11_dev,
		real(8), dimension(np), intent(in)	cfc12_dev,
		real(8), dimension(np), intent(in)	cfc22_dev,
		real(8), dimension(np,4), intent(in)	cwc_dev,
		real(8), dimension(np), intent(in)	fcld_dev,
		integer, intent(in)	ict,
		integer, intent(in)	icb,
		real(8), dimension(np,4), intent(in)	reff_dev,
		integer, intent(in)	ns,
		real(8), dimension(ns), intent(in)	fs_dev,
		real(8), dimension(ns), intent(in)	tg_dev,
		real(8), dimension(ns,10), intent(in)	eg_dev,
		real(8), dimension(ns), intent(in)	tv_dev,
		real(8), dimension(ns,10), intent(in)	ev_dev,
		real(8), dimension(ns,10), intent(in)	rv_dev,
		integer, intent(in)	na,
		integer, intent(in)	nb,
		real(8), dimension(np,nb), intent(inout)	taua_dev,
		real(8), dimension(np,nb), intent(inout)	ssaa_dev,
		real(8), dimension(np,nb), intent(inout)	asya_dev,
		real(8), dimension(np+1), intent(out)	flxu_dev,
		real(8), dimension(np+1), intent(out)	flxd_dev,
		real(8), dimension(np+1), intent(out)	dfdts_dev,
		real(8), dimension(3,10), intent(in)	aib_ir,
		real(8), dimension(4,10), intent(in)	awb_ir,
		real(8), dimension(4,10), intent(in)	aiw_ir,
		real(8), dimension(4,10), intent(in)	aww_ir,
		real(8), dimension(4,10), intent(in)	aig_ir,
		real(8), dimension(4,10), intent(in)	awg_ir,
		real(8), dimension(9), intent(in)	xkw,
		real(8), dimension(9), intent(in)	xke,
		integer, dimension(9), intent(in)	mw,
		real(8), dimension(9), intent(in)	aw,
		real(8), dimension(9), intent(in)	bw,
		real(8), dimension(9), intent(in)	pm,
		real(8), dimension(6,9), intent(in)	fkw,
		real(8), dimension(6,3), intent(in)	gkw,
		real(8), dimension(6,10), intent(in)	cb,
		real(8), dimension(5,10), intent(in)	dcb,
		real(8), intent(in)	w11,
		real(8), intent(in)	w12,
		real(8), intent(in)	w13,
		real(8), intent(in)	p11,
		real(8), intent(in)	p12,
		real(8), intent(in)	p13,
		real(8), intent(in)	dwe,
		real(8), intent(in)	dpe,
		real(8), dimension(26,30), intent(in)	c1,
		real(8), dimension(26,30), intent(in)	c2,
		real(8), dimension(26,30), intent(in)	c3,
		real(8), dimension(26,21), intent(in)	oo1,
		real(8), dimension(26,21), intent(in)	oo2,
		real(8), dimension(26,21), intent(in)	oo3,
		real(8), dimension(26,31), intent(in)	h11,
		real(8), dimension(26,31), intent(in)	h12,
		real(8), dimension(26,31), intent(in)	h13,
		real(8), dimension(26,31), intent(in)	h21,
		real(8), dimension(26,31), intent(in)	h22,
		real(8), dimension(26,31), intent(in)	h23,
		real(8), dimension(26,31), intent(in)	h81,
		real(8), dimension(26,31), intent(in)	h82,
		real(8), dimension(26,31), intent(in)	h83
	)

Definition at line 55 of file irrad.F90.

Here is the call graph for this function:

◆ mkicx()

subroutine, public irradmod::mkicx	(	integer, intent(in)	np,
		integer, intent(in)	ict,
		integer, intent(in)	icb,
		real(8), dimension(0:np), intent(in)	enn,
		integer, dimension(0:np), intent(inout)	icx,
		integer, dimension(3), intent(out)	ncld
	)

Definition at line 2185 of file irrad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ n2oexps()

subroutine, public irradmod::n2oexps	(	integer	ib,
		integer	np,
		real(8), dimension(0:np)	dn2o,
		real(8), dimension(0:np)	pa,
		real(8), dimension(0:np)	dt,
		real(8), dimension(0:np,4)	n2oexp
	)

Definition at line 991 of file irrad.F90.

Here is the caller graph for this function:

◆ n2okdis()

subroutine, public irradmod::n2okdis	(	integer	ib,
		integer	np,
		integer	k,
		real(8), dimension(0:np,4)	n2oexp,
		real(8), dimension(4)	tn2o,
		real(8)	tran
	)

Definition at line 1612 of file irrad.F90.

Here is the caller graph for this function:

◆ plancd()

subroutine, public irradmod::plancd	(	integer, intent(in)	ibn,
		real(8), dimension(5,10), intent(in)	dcb,
		real(8), intent(in)	t,
		real(8), intent(out)	dbdt
	)

Definition at line 837 of file irrad.F90.

Here is the caller graph for this function:

◆ planck()

subroutine, public irradmod::planck	(	integer, intent(in)	ibn,
		real(8), dimension(6,10), intent(in)	cb,
		real(8), intent(in)	t,
		real(8), intent(out)	xlayer
	)

Definition at line 819 of file irrad.F90.

Here is the caller graph for this function:

◆ sfcflux()

subroutine, public irradmod::sfcflux	(	integer	ibn,
		real(8), dimension(6,10)	cb,
		real(8), dimension(5,10)	dcb,
		integer	ns,
		real(8), dimension(ns)	fs,
		real(8), dimension(ns)	tg,
		real(8), dimension(ns,10)	eg,
		real(8), dimension(ns)	tv,
		real(8), dimension(ns,10)	ev,
		real(8), dimension(ns,10)	rv,
		real(8)	bs,
		real(8)	dbs,
		real(8)	rflxs
	)

Definition at line 2067 of file irrad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ sortit()

subroutine, public irradmod::sortit	(	real(8), dimension(ibg:iend), intent(in)	ENN,
		integer, dimension(ibg:iend), intent(inout)	LST,
		integer, intent(out)	NCL,
		integer, intent(in)	ibg,
		integer, intent(in)	iend
	)

Definition at line 2202 of file irrad.F90.

Here is the caller graph for this function:

◆ tablup()

subroutine, public irradmod::tablup	(	integer	nx1,
		integer	nh1,
		real(8)	dw,
		real(8)	p,
		real(8)	dt,
		real(8)	s1,
		real(8)	s2,
		real(8)	s3,
		real(8)	w1,
		real(8)	p1,
		real(8)	dwe,
		real(8)	dpe,
		real(8), dimension(nx1,nh1)	coef1,
		real(8), dimension(nx1,nh1)	coef2,
		real(8), dimension(nx1,nh1)	coef3,
		real(8)	tran
	)

Definition at line 1364 of file irrad.F90.

Here is the caller graph for this function:

Functions/Subroutines

Function/Subroutine Documentation

◆ b10exps()

◆ b10kdis()

◆ cfcexps()

◆ cfckdis()

◆ ch4exps()

◆ ch4kdis()

◆ cldovlp()

◆ comexps()

◆ comkdis()

◆ conexps()

◆ getirtau1()

◆ h2oexps()

◆ h2okdis()

◆ irrad()

◆ mkicx()

◆ n2oexps()

◆ n2okdis()

◆ plancd()

◆ planck()

◆ sfcflux()

◆ sortit()

◆ tablup()