Functions/Subroutines
subroutine, public	radabs (lchnk, ncol, pbr, pnm, co2em, co2eml, tplnka, s2c, tcg, w, h2otr, plco2, plh2o, co2t, tint, tlayr, plol, plos, pmln, piln, ucfc11, ucfc12, un2o0, un2o1, uch4, uco211, uco212, uco213, uco221, uco222, uco223, uptype, bn2o0, bn2o1, bch4, abplnk1, abplnk2, abstot, absnxt, plh2ob, wb, odap_aer, aer_trn_ttl, co2mmr)

subroutine, public	radems (lchnk, ncol, s2c, tcg, w, tplnke, plh2o, pnm, plco2, tint, tint4, tlayr, tlayr4, plol, plos, ucfc11, ucfc12, un2o0, un2o1, uch4, uco211, uco212, uco213, uco221, uco222, uco223, uptype, bn2o0, bn2o1, bch4, co2em, co2eml, co2t, h2otr, abplnk1, abplnk2, emstot, plh2ob, wb, aer_trn_ttl, co2mmr)

subroutine, public	radtpl (ncol, tnm, lwupcgs, qnm, pnm, plco2, plh2o, tplnka, s2c, tcg, w, tplnke, tint, tint4, tlayr, tlayr4, pmln, piln, plh2ob, wb, co2mmr)

subroutine, public	radae_init (gravx, epsilox, stebol, pstdx, mwdryx, mwco2x, mwo3x)

subroutine, public	initialize_radbuffer

subroutine, public	radoz2 (ncol, o3, pint, plol, plos)

subroutine, public	trcpth (ncol, tnm, pnm, cfc11, cfc12, n2o, ch4, qnm, ucfc11, ucfc12, un2o0, un2o1, uch4, uco211, uco212, uco213, uco221, uco222, uco223, bn2o0, bn2o1, bch4, uptype, co2mmr)

real(r8) function	fh2oself (temp)

real(r8) function	phi (tpx, iband)

real(r8) function	psi (tpx, iband)

subroutine	trcab (ncol, k1, k2, ucfc11, ucfc12, un2o0, un2o1, uch4, uco211, uco212, uco213, uco221, uco222, uco223, bn2o0, bn2o1, bch4, to3co2, pnm, dw, pnew, s2c, uptype, dplh2o, abplnk1, tco2, th2o, to3, abstrc, aer_trn_ttl)

subroutine	trcabn (ncol, k2, kn, ucfc11, ucfc12, un2o0, un2o1, uch4, uco211, uco212, uco213, uco221, uco222, uco223, tbar, bplnk, winpl, pinpl, tco2, th2o, to3, uptype, dw, s2c, up2, pnew, abstrc, uinpl, aer_trn_ngh)

subroutine	trcems (ncol, k, co2t, pnm, ucfc11, ucfc12, un2o0, un2o1, bn2o0, bn2o1, uch4, bch4, uco211, uco212, uco213, uco221, uco222, uco223, uptype, w, s2c, up2, emplnk, th2o, tco2, to3, emstrc, aer_trn_ttl)

subroutine	trcplk (ncol, tint, tlayr, tplnke, emplnk, abplnk1, abplnk2)

Variables
integer, parameter, public	nbands = 2

real(r8), dimension(:,:,:,:), allocatable, target, public	abstot_3d

real(r8), dimension(:,:,:,:), allocatable, target, public	absnxt_3d

real(r8), dimension(:,:,:), allocatable, target, public	emstot_3d

integer, public	ntoplw

real(r8)	p0

real(r8)	amd

real(r8)	amco2

real(r8)	mwo3

real(r8)	gravit

real(r8)	gravit_cgs

real(r8)	rga

real(r8)	epsilo

real(r8)	omeps

real(r8)	sslp

real(r8)	stebol_cgs

real(r8)	rgsslp

real(r8)	dpfo3

real(r8)	dpfco2

integer, parameter	n_u = 25

integer, parameter	n_p = 10

integer, parameter	n_tp = 10

integer, parameter	n_te = 21

integer, parameter	n_rh = 7

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh)	ah2onw

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh)	eh2onw

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh)	ah2ow

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh)	cn_ah2ow

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh)	cn_eh2ow

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh)	ln_ah2ow

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh)	ln_eh2ow

real(r8), dimension(2, 4)	coefh = reshape( (/ (/5.46557e+01_r8,-7.30387e-02_r8/), (/1.09311e+02_r8,-1.46077e-01_r8/), (/5.11479e+01_r8,-6.82615e-02_r8/), (/1.02296e+02_r8,-1.36523e-01_r8/) /), (/2,4/) )

real(r8), dimension(3, 2)	coefj = reshape( (/ (/2.82096e-02_r8,2.47836e-04_r8,1.16904e-06_r8/), (/9.27379e-02_r8,8.04454e-04_r8,6.88844e-06_r8/) /), (/3,2/) )

real(r8), dimension(3, 2)	coefk = reshape( (/ (/2.48852e-01_r8,2.09667e-03_r8,2.60377e-06_r8/) , (/1.03594e+00_r8,6.58620e-03_r8,4.04456e-06_r8/) /), (/3,2/) )

real(r8)	c16

real(r8)	c17

real(r8)	c26

real(r8)	c27

real(r8)	c28

real(r8)	c29

real(r8)	c30

real(r8)	c31

real(r8)	fwcoef

real(r8)	fwc1

real(r8)	fwc2

real(r8)	fc1

real(r8), parameter	min_tp_h2o = 160.0_r8

real(r8), parameter	max_tp_h2o = 349.999999_r8

integer, parameter	ntemp = 192

integer, parameter	o_fa = 6

integer, parameter	o_fe = 6

real(r8), dimension(o_fa, nbands), parameter	fat = reshape( (/ (/-1.06665373E-01_r8, 2.90617375E-02_r8, -2.70642049E-04_r8, 1.07595511E-06_r8, -1.97419681E-09_r8, 1.37763374E-12_r8/), (/ 1.10666537E+00_r8, -2.90617375E-02_r8, 2.70642049E-04_r8, -1.07595511E-06_r8, 1.97419681E-09_r8, -1.37763374E-12_r8/) /), (/o_fa,nbands/) )

real(r8), dimension(o_fe, nbands), parameter	fet = reshape( (/ (/3.46148163E-01_r8, 1.51240299E-02_r8, -1.21846479E-04_r8, 4.04970123E-07_r8, -6.15368936E-10_r8, 3.52415071E-13_r8/), (/6.53851837E-01_r8, -1.51240299E-02_r8, 1.21846479E-04_r8, -4.04970123E-07_r8, 6.15368936E-10_r8, -3.52415071E-13_r8/) /), (/o_fa,nbands/) )

real(r8), parameter	min_lp_h2o = -3.0_r8

real(r8), parameter	min_p_h2o = 1.0e-3_r8

real(r8), parameter	max_lp_h2o = -0.0000001_r8

real(r8), parameter	dlp_h2o = 0.3333333333333_r8

real(r8), parameter	dtp_h2o = 21.111111111111_r8

real(r8), parameter	min_rh_h2o = 0.0_r8

real(r8), parameter	max_rh_h2o = 1.19999999_r8

real(r8), parameter	drh_h2o = 0.2_r8

real(r8), parameter	min_te_h2o = -120.0_r8

real(r8), parameter	max_te_h2o = 79.999999_r8

real(r8), parameter	dte_h2o = 10.0_r8

real(r8), parameter	min_lu_h2o = -8.0_r8

real(r8), parameter	min_u_h2o = 1.0e-8_r8

real(r8), parameter	max_lu_h2o = 3.9999999_r8

real(r8), parameter	dlu_h2o = 0.5_r8

real(r8), dimension(6), parameter	g1 =(/0.0468556_r8,0.0397454_r8,0.0407664_r8,0.0304380_r8,0.0540398_r8,0.0321962_r8/)

real(r8), dimension(6), parameter	g2 =(/14.4832_r8,4.30242_r8,5.23523_r8,3.25342_r8,0.698935_r8,16.5599_r8/)

real(r8), dimension(6), parameter	g3 =(/26.1898_r8,18.4476_r8,15.3633_r8,12.1927_r8,9.14992_r8,8.07092_r8/)

real(r8), dimension(6), parameter	g4 =(/0.0261782_r8,0.0369516_r8,0.0307266_r8,0.0243854_r8,0.0182932_r8,0.0161418_r8/)

real(r8), dimension(6), parameter	ab =(/3.0857e-2_r8,2.3524e-2_r8,1.7310e-2_r8,2.6661e-2_r8,2.8074e-2_r8,2.2915e-2_r8/)

real(r8), dimension(6), parameter	bb =(/-1.3512e-4_r8,-6.8320e-5_r8,-3.2609e-5_r8,-1.0228e-5_r8,-9.5743e-5_r8,-1.0304e-4_r8/)

real(r8), dimension(6), parameter	abp =(/2.9129e-2_r8,2.4101e-2_r8,1.9821e-2_r8,2.6904e-2_r8,2.9458e-2_r8,1.9892e-2_r8/)

real(r8), dimension(6), parameter	bbp =(/-1.3139e-4_r8,-5.5688e-5_r8,-4.6380e-5_r8,-8.0362e-5_r8,-1.0115e-4_r8,-8.8061e-5_r8/)

Function/Subroutine Documentation

◆ fh2oself()

real(r8) function radae::fh2oself ( real(r8), intent(in) temp )

private

Here is the caller graph for this function:

◆ initialize_radbuffer()

subroutine, public radae::initialize_radbuffer ( )

Here is the call graph for this function:

Here is the caller graph for this function:

◆ phi()

real(r8) function radae::phi	(	real(r8), intent(in)	tpx,
		integer, intent(in)	iband
	)

private

Here is the caller graph for this function:

◆ psi()

real(r8) function radae::psi	(	real(r8), intent(in)	tpx,
		integer, intent(in)	iband
	)

private

Here is the caller graph for this function:

◆ radabs()

subroutine, public radae::radabs	(	integer, intent(in)	lchnk,
		integer, intent(in)	ncol,
		real(r8), dimension(pcols,pver), intent(in)	pbr,
		real(r8), dimension(pcols,pverp), intent(in)	pnm,
		real(r8), dimension(pcols,pverp), intent(in)	co2em,
		real(r8), dimension(pcols,pver), intent(in)	co2eml,
		real(r8), dimension(pcols,pverp), intent(in)	tplnka,
		real(r8), dimension(pcols,pverp), intent(in)	s2c,
		real(r8), dimension(pcols,pverp), intent(in)	tcg,
		real(r8), dimension(pcols,pverp), intent(in)	w,
		real(r8), dimension(pcols,pverp), intent(in)	h2otr,
		real(r8), dimension(pcols,pverp), intent(in)	plco2,
		real(r8), dimension(pcols,pverp), intent(in)	plh2o,
		real(r8), dimension(pcols,pverp), intent(in)	co2t,
		real(r8), dimension(pcols,pverp), intent(in)	tint,
		real(r8), dimension(pcols,pverp), intent(in)	tlayr,
		real(r8), dimension(pcols,pverp), intent(in)	plol,
		real(r8), dimension(pcols,pverp), intent(in)	plos,
		real(r8), dimension(pcols,pver), intent(in)	pmln,
		real(r8), dimension(pcols,pverp), intent(in)	piln,
		real(r8), dimension(pcols,pverp), intent(in)	ucfc11,
		real(r8), dimension(pcols,pverp), intent(in)	ucfc12,
		real(r8), dimension(pcols,pverp), intent(in)	un2o0,
		real(r8), dimension(pcols,pverp), intent(in)	un2o1,
		real(r8), dimension(pcols,pverp), intent(in)	uch4,
		real(r8), dimension(pcols,pverp), intent(in)	uco211,
		real(r8), dimension(pcols,pverp), intent(in)	uco212,
		real(r8), dimension(pcols,pverp), intent(in)	uco213,
		real(r8), dimension(pcols,pverp), intent(in)	uco221,
		real(r8), dimension(pcols,pverp), intent(in)	uco222,
		real(r8), dimension(pcols,pverp), intent(in)	uco223,
		real(r8), dimension(pcols,pverp), intent(in)	uptype,
		real(r8), dimension(pcols,pverp), intent(in)	bn2o0,
		real(r8), dimension(pcols,pverp), intent(in)	bn2o1,
		real(r8), dimension(pcols,pverp), intent(in)	bch4,
		real(r8), dimension(14,pcols,pverp), intent(in)	abplnk1,
		real(r8), dimension(14,pcols,pverp), intent(in)	abplnk2,
		real(r8), dimension(pcols,ntoplw:pverp,ntoplw:pverp), intent(out)	abstot,
		real(r8), dimension(pcols,pver,4), intent(out)	absnxt,
		real(r8), dimension(nbands,pcols,pverp), intent(in)	plh2ob,
		real(r8), dimension(nbands,pcols,pverp), intent(in)	wb,
		real(r8), dimension(pcols,pver,nlwbands), intent(in)	odap_aer,
		real(r8), dimension(pcols,pverp,pverp,nlwbands), intent(in)	aer_trn_ttl,
		real(r8), dimension(pcols), intent(in)	co2mmr
	)

Here is the call graph for this function:

Here is the caller graph for this function:

◆ radae_init()

subroutine, public radae::radae_init	(	real(r8), intent(in)	gravx,
		real(r8), intent(in)	epsilox,
		real(r8), intent(in)	stebol,
		real(r8), intent(in)	pstdx,
		real(r8), intent(in)	mwdryx,
		real(r8), intent(in)	mwco2x,
		real(r8), intent(in)	mwo3x
	)

Here is the call graph for this function:

Here is the caller graph for this function:

◆ radems()

subroutine, public radae::radems	(	integer, intent(in)	lchnk,
		integer, intent(in)	ncol,
		real(r8), dimension(pcols,pverp), intent(in)	s2c,
		real(r8), dimension(pcols,pverp), intent(in)	tcg,
		real(r8), dimension(pcols,pverp), intent(in)	w,
		real(r8), dimension(pcols), intent(in)	tplnke,
		real(r8), dimension(pcols,pverp), intent(in)	plh2o,
		real(r8), dimension(pcols,pverp), intent(in)	pnm,
		real(r8), dimension(pcols,pverp), intent(in)	plco2,
		real(r8), dimension(pcols,pverp), intent(in)	tint,
		real(r8), dimension(pcols,pverp), intent(in)	tint4,
		real(r8), dimension(pcols,pverp), intent(in)	tlayr,
		real(r8), dimension(pcols,pverp), intent(in)	tlayr4,
		real(r8), dimension(pcols,pverp), intent(in)	plol,
		real(r8), dimension(pcols,pverp), intent(in)	plos,
		real(r8), dimension(pcols,pverp), intent(in)	ucfc11,
		real(r8), dimension(pcols,pverp), intent(in)	ucfc12,
		real(r8), dimension(pcols,pverp), intent(in)	un2o0,
		real(r8), dimension(pcols,pverp), intent(in)	un2o1,
		real(r8), dimension(pcols,pverp), intent(in)	uch4,
		real(r8), dimension(pcols,pverp), intent(in)	uco211,
		real(r8), dimension(pcols,pverp), intent(in)	uco212,
		real(r8), dimension(pcols,pverp), intent(in)	uco213,
		real(r8), dimension(pcols,pverp), intent(in)	uco221,
		real(r8), dimension(pcols,pverp), intent(in)	uco222,
		real(r8), dimension(pcols,pverp), intent(in)	uco223,
		real(r8), dimension(pcols,pverp), intent(in)	uptype,
		real(r8), dimension(pcols,pverp), intent(in)	bn2o0,
		real(r8), dimension(pcols,pverp), intent(in)	bn2o1,
		real(r8), dimension(pcols,pverp), intent(in)	bch4,
		real(r8), dimension(pcols,pverp), intent(out)	co2em,
		real(r8), dimension(pcols,pver), intent(out)	co2eml,
		real(r8), dimension(pcols,pverp), intent(out)	co2t,
		real(r8), dimension(pcols,pverp), intent(out)	h2otr,
		real(r8), dimension(14,pcols,pverp), intent(out)	abplnk1,
		real(r8), dimension(14,pcols,pverp), intent(out)	abplnk2,
		real(r8), dimension(pcols,pverp), intent(out)	emstot,
		real(r8), dimension(nbands,pcols,pverp), intent(in)	plh2ob,
		real(r8), dimension(nbands,pcols,pverp), intent(in)	wb,
		real(r8), dimension(pcols,pverp,pverp,nlwbands), intent(in)	aer_trn_ttl,
		real(r8), dimension(pcols), intent(in)	co2mmr
	)

Here is the call graph for this function:

Here is the caller graph for this function:

◆ radoz2()

subroutine, public radae::radoz2	(	integer, intent(in)	ncol,
		real(r8), dimension(pcols,pver), intent(in)	o3,
		real(r8), dimension(pcols,pverp), intent(in)	pint,
		real(r8), dimension(pcols,pverp), intent(out)	plol,
		real(r8), dimension(pcols,pverp), intent(out)	plos
	)

Here is the caller graph for this function:

◆ radtpl()

subroutine, public radae::radtpl	(	integer, intent(in)	ncol,
		real(r8), dimension(pcols,pver), intent(in)	tnm,
		real(r8), dimension(pcols), intent(in)	lwupcgs,
		real(r8), dimension(pcols,pver), intent(in)	qnm,
		real(r8), dimension(pcols,pverp), intent(in)	pnm,
		real(r8), dimension(pcols,pverp), intent(out)	plco2,
		real(r8), dimension(pcols,pverp), intent(out)	plh2o,
		real(r8), dimension(pcols,pverp), intent(out)	tplnka,
		real(r8), dimension(pcols,pverp), intent(out)	s2c,
		real(r8), dimension(pcols,pverp), intent(out)	tcg,
		real(r8), dimension(pcols,pverp), intent(out)	w,
		real(r8), dimension(pcols), intent(out)	tplnke,
		real(r8), dimension(pcols,pverp), intent(out)	tint,
		real(r8), dimension(pcols,pverp), intent(out)	tint4,
		real(r8), dimension(pcols,pverp), intent(out)	tlayr,
		real(r8), dimension(pcols,pverp), intent(out)	tlayr4,
		real(r8), dimension(pcols,pver), intent(in)	pmln,
		real(r8), dimension(pcols,pverp), intent(in)	piln,
		real(r8), dimension(nbands,pcols,pverp), intent(out)	plh2ob,
		real(r8), dimension(nbands,pcols,pverp), intent(out)	wb,
		real(r8), dimension(pcols), intent(in)	co2mmr
	)

Here is the call graph for this function:

Here is the caller graph for this function:

◆ trcab()

subroutine radae::trcab	(	integer, intent(in)	ncol,
		integer, intent(in)	k1,
		integer, intent(in)	k2,
		real(r8), dimension(pcols,pverp), intent(in)	ucfc11,
		real(r8), dimension(pcols,pverp), intent(in)	ucfc12,
		real(r8), dimension(pcols,pverp), intent(in)	un2o0,
		real(r8), dimension(pcols,pverp), intent(in)	un2o1,
		real(r8), dimension(pcols,pverp), intent(in)	uch4,
		real(r8), dimension(pcols,pverp), intent(in)	uco211,
		real(r8), dimension(pcols,pverp), intent(in)	uco212,
		real(r8), dimension(pcols,pverp), intent(in)	uco213,
		real(r8), dimension(pcols,pverp), intent(in)	uco221,
		real(r8), dimension(pcols,pverp), intent(in)	uco222,
		real(r8), dimension(pcols,pverp), intent(in)	uco223,
		real(r8), dimension(pcols,pverp), intent(in)	bn2o0,
		real(r8), dimension(pcols,pverp), intent(in)	bn2o1,
		real(r8), dimension(pcols,pverp), intent(in)	bch4,
		real(r8), dimension(pcols), intent(in)	to3co2,
		real(r8), dimension(pcols,pverp), intent(in)	pnm,
		real(r8), dimension(pcols), intent(in)	dw,
		real(r8), dimension(pcols), intent(in)	pnew,
		real(r8), dimension(pcols,pverp), intent(in)	s2c,
		real(r8), dimension(pcols,pverp), intent(in)	uptype,
		real(r8), dimension(pcols), intent(in)	dplh2o,
		real(r8), dimension(14,pcols,pverp), intent(in)	abplnk1,
		real(r8), dimension(pcols), intent(in)	tco2,
		real(r8), dimension(pcols), intent(in)	th2o,
		real(r8), dimension(pcols), intent(in)	to3,
		real(r8), dimension(pcols), intent(out)	abstrc,
		real(r8), dimension(pcols,pverp,pverp,nlwbands), intent(in)	aer_trn_ttl
	)

private

Here is the caller graph for this function:

◆ trcabn()

subroutine radae::trcabn	(	integer, intent(in)	ncol,
		integer, intent(in)	k2,
		integer, intent(in)	kn,
		real(r8), dimension(pcols,pverp), intent(in)	ucfc11,
		real(r8), dimension(pcols,pverp), intent(in)	ucfc12,
		real(r8), dimension(pcols,pverp), intent(in)	un2o0,
		real(r8), dimension(pcols,pverp), intent(in)	un2o1,
		real(r8), dimension(pcols,pverp), intent(in)	uch4,
		real(r8), dimension(pcols,pverp), intent(in)	uco211,
		real(r8), dimension(pcols,pverp), intent(in)	uco212,
		real(r8), dimension(pcols,pverp), intent(in)	uco213,
		real(r8), dimension(pcols,pverp), intent(in)	uco221,
		real(r8), dimension(pcols,pverp), intent(in)	uco222,
		real(r8), dimension(pcols,pverp), intent(in)	uco223,
		real(r8), dimension(pcols,4), intent(in)	tbar,
		real(r8), dimension(14,pcols,4), intent(in)	bplnk,
		real(r8), dimension(pcols,4), intent(in)	winpl,
		real(r8), dimension(pcols,4), intent(in)	pinpl,
		real(r8), dimension(pcols), intent(in)	tco2,
		real(r8), dimension(pcols), intent(in)	th2o,
		real(r8), dimension(pcols), intent(in)	to3,
		real(r8), dimension(pcols,pverp), intent(in)	uptype,
		real(r8), dimension(pcols), intent(in)	dw,
		real(r8), dimension(pcols,pverp), intent(in)	s2c,
		real(r8), dimension(pcols), intent(in)	up2,
		real(r8), dimension(pcols), intent(in)	pnew,
		real(r8), dimension(pcols), intent(out)	abstrc,
		real(r8), dimension(pcols,4), intent(in)	uinpl,
		real(r8), dimension(pcols,nlwbands), intent(in)	aer_trn_ngh
	)

private

Here is the caller graph for this function:

◆ trcems()

subroutine radae::trcems	(	integer, intent(in)	ncol,
		integer, intent(in)	k,
		real(r8), dimension(pcols,pverp), intent(in)	co2t,
		real(r8), dimension(pcols,pverp), intent(in)	pnm,
		real(r8), dimension(pcols,pverp), intent(in)	ucfc11,
		real(r8), dimension(pcols,pverp), intent(in)	ucfc12,
		real(r8), dimension(pcols,pverp), intent(in)	un2o0,
		real(r8), dimension(pcols,pverp), intent(in)	un2o1,
		real(r8), dimension(pcols,pverp), intent(in)	bn2o0,
		real(r8), dimension(pcols,pverp), intent(in)	bn2o1,
		real(r8), dimension(pcols,pverp), intent(in)	uch4,
		real(r8), dimension(pcols,pverp), intent(in)	bch4,
		real(r8), dimension(pcols,pverp), intent(in)	uco211,
		real(r8), dimension(pcols,pverp), intent(in)	uco212,
		real(r8), dimension(pcols,pverp), intent(in)	uco213,
		real(r8), dimension(pcols,pverp), intent(in)	uco221,
		real(r8), dimension(pcols,pverp), intent(in)	uco222,
		real(r8), dimension(pcols,pverp), intent(in)	uco223,
		real(r8), dimension(pcols,pverp), intent(in)	uptype,
		real(r8), dimension(pcols,pverp), intent(in)	w,
		real(r8), dimension(pcols,pverp), intent(in)	s2c,
		real(r8), dimension(pcols), intent(in)	up2,
		real(r8), dimension(14,pcols), intent(in)	emplnk,
		real(r8), dimension(pcols), intent(in)	th2o,
		real(r8), dimension(pcols), intent(in)	tco2,
		real(r8), dimension(pcols), intent(in)	to3,
		real(r8), dimension(pcols,pverp), intent(out)	emstrc,
		real(r8), dimension(pcols,pverp,pverp,nlwbands), intent(in)	aer_trn_ttl
	)

private

Here is the caller graph for this function:

◆ trcplk()

subroutine radae::trcplk	(	integer, intent(in)	ncol,
		real(r8), dimension(pcols,pverp), intent(in)	tint,
		real(r8), dimension(pcols,pverp), intent(in)	tlayr,
		real(r8), dimension(pcols), intent(in)	tplnke,
		real(r8), dimension(14,pcols), intent(out)	emplnk,
		real(r8), dimension(14,pcols,pverp), intent(out)	abplnk1,
		real(r8), dimension(14,pcols,pverp), intent(out)	abplnk2
	)

private

Here is the caller graph for this function:

◆ trcpth()

subroutine, public radae::trcpth	(	integer, intent(in)	ncol,
		real(r8), dimension(pcols,pver), intent(in)	tnm,
		real(r8), dimension(pcols,pverp), intent(in)	pnm,
		real(r8), dimension(pcols,pver), intent(in)	cfc11,
		real(r8), dimension(pcols,pver), intent(in)	cfc12,
		real(r8), dimension(pcols,pver), intent(in)	n2o,
		real(r8), dimension(pcols,pver), intent(in)	ch4,
		real(r8), dimension(pcols,pver), intent(in)	qnm,
		real(r8), dimension(pcols,pverp), intent(out)	ucfc11,
		real(r8), dimension(pcols,pverp), intent(out)	ucfc12,
		real(r8), dimension(pcols,pverp), intent(out)	un2o0,
		real(r8), dimension(pcols,pverp), intent(out)	un2o1,
		real(r8), dimension(pcols,pverp), intent(out)	uch4,
		real(r8), dimension(pcols,pverp), intent(out)	uco211,
		real(r8), dimension(pcols,pverp), intent(out)	uco212,
		real(r8), dimension(pcols,pverp), intent(out)	uco213,
		real(r8), dimension(pcols,pverp), intent(out)	uco221,
		real(r8), dimension(pcols,pverp), intent(out)	uco222,
		real(r8), dimension(pcols,pverp), intent(out)	uco223,
		real(r8), dimension(pcols,pverp), intent(out)	bn2o0,
		real(r8), dimension(pcols,pverp), intent(out)	bn2o1,
		real(r8), dimension(pcols,pverp), intent(out)	bch4,
		real(r8), dimension(pcols,pverp), intent(out)	uptype,
		real(r8), dimension(pcols), intent(in)	co2mmr
	)

Here is the caller graph for this function:

Variable Documentation

◆ ab

real(r8), dimension(6), parameter radae::ab =(/3.0857e-2_r8,2.3524e-2_r8,1.7310e-2_r8,2.6661e-2_r8,2.8074e-2_r8,2.2915e-2_r8/)

private

◆ abp

real(r8), dimension(6), parameter radae::abp =(/2.9129e-2_r8,2.4101e-2_r8,1.9821e-2_r8,2.6904e-2_r8,2.9458e-2_r8,1.9892e-2_r8/)

private

◆ absnxt_3d

real(r8), dimension(:,:,:,:), allocatable, target, public radae::absnxt_3d

◆ abstot_3d

real(r8), dimension(:,:,:,:), allocatable, target, public radae::abstot_3d

◆ ah2onw

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) radae::ah2onw

private

◆ ah2ow

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) radae::ah2ow

private

◆ amco2

real(r8) radae::amco2

private

◆ amd

real(r8) radae::amd

private

◆ bb

real(r8), dimension(6), parameter radae::bb =(/-1.3512e-4_r8,-6.8320e-5_r8,-3.2609e-5_r8,-1.0228e-5_r8,-9.5743e-5_r8,-1.0304e-4_r8/)

private

◆ bbp

real(r8), dimension(6), parameter radae::bbp =(/-1.3139e-4_r8,-5.5688e-5_r8,-4.6380e-5_r8,-8.0362e-5_r8,-1.0115e-4_r8,-8.8061e-5_r8/)

private

◆ c16

real(r8) radae::c16

private

◆ c17

real(r8) radae::c17

private

◆ c26

real(r8) radae::c26

private

◆ c27

real(r8) radae::c27

private

◆ c28

real(r8) radae::c28

private

◆ c29

real(r8) radae::c29

private

◆ c30

real(r8) radae::c30

private

◆ c31

real(r8) radae::c31

private

◆ cn_ah2ow

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) radae::cn_ah2ow

private

◆ cn_eh2ow

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) radae::cn_eh2ow

private

◆ coefh

real(r8), dimension(2,4) radae::coefh = reshape( (/ (/5.46557e+01_r8,-7.30387e-02_r8/), (/1.09311e+02_r8,-1.46077e-01_r8/), (/5.11479e+01_r8,-6.82615e-02_r8/), (/1.02296e+02_r8,-1.36523e-01_r8/) /), (/2,4/) )

private

◆ coefj

real(r8), dimension(3,2) radae::coefj = reshape( (/ (/2.82096e-02_r8,2.47836e-04_r8,1.16904e-06_r8/), (/9.27379e-02_r8,8.04454e-04_r8,6.88844e-06_r8/) /), (/3,2/) )

private

◆ coefk

real(r8), dimension(3,2) radae::coefk = reshape( (/ (/2.48852e-01_r8,2.09667e-03_r8,2.60377e-06_r8/) , (/1.03594e+00_r8,6.58620e-03_r8,4.04456e-06_r8/) /), (/3,2/) )

private

◆ dlp_h2o

real(r8), parameter radae::dlp_h2o = 0.3333333333333_r8

private

◆ dlu_h2o

real(r8), parameter radae::dlu_h2o = 0.5_r8

private

◆ dpfco2

real(r8) radae::dpfco2

private

◆ dpfo3

real(r8) radae::dpfo3

private

◆ drh_h2o

real(r8), parameter radae::drh_h2o = 0.2_r8

private

◆ dte_h2o

real(r8), parameter radae::dte_h2o = 10.0_r8

private

◆ dtp_h2o

real(r8), parameter radae::dtp_h2o = 21.111111111111_r8

private

◆ eh2onw

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) radae::eh2onw

private

◆ emstot_3d

real(r8), dimension(:,:,:), allocatable, target, public radae::emstot_3d

◆ epsilo

real(r8) radae::epsilo

private

◆ fat

real(r8), dimension(o_fa,nbands), parameter radae::fat = reshape( (/ (/-1.06665373E-01_r8, 2.90617375E-02_r8, -2.70642049E-04_r8, 1.07595511E-06_r8, -1.97419681E-09_r8, 1.37763374E-12_r8/), (/ 1.10666537E+00_r8, -2.90617375E-02_r8, 2.70642049E-04_r8, -1.07595511E-06_r8, 1.97419681E-09_r8, -1.37763374E-12_r8/) /), (/o_fa,nbands/) )

private

◆ fc1

real(r8) radae::fc1

private

◆ fet

real(r8), dimension(o_fe,nbands), parameter radae::fet = reshape( (/ (/3.46148163E-01_r8, 1.51240299E-02_r8, -1.21846479E-04_r8, 4.04970123E-07_r8, -6.15368936E-10_r8, 3.52415071E-13_r8/), (/6.53851837E-01_r8, -1.51240299E-02_r8, 1.21846479E-04_r8, -4.04970123E-07_r8, 6.15368936E-10_r8, -3.52415071E-13_r8/) /), (/o_fa,nbands/) )

private

◆ fwc1

real(r8) radae::fwc1

private

◆ fwc2

real(r8) radae::fwc2

private

◆ fwcoef

real(r8) radae::fwcoef

private

◆ g1

real(r8), dimension(6), parameter radae::g1 =(/0.0468556_r8,0.0397454_r8,0.0407664_r8,0.0304380_r8,0.0540398_r8,0.0321962_r8/)

private

◆ g2

real(r8), dimension(6), parameter radae::g2 =(/14.4832_r8,4.30242_r8,5.23523_r8,3.25342_r8,0.698935_r8,16.5599_r8/)

private

◆ g3

real(r8), dimension(6), parameter radae::g3 =(/26.1898_r8,18.4476_r8,15.3633_r8,12.1927_r8,9.14992_r8,8.07092_r8/)

private

◆ g4

real(r8), dimension(6), parameter radae::g4 =(/0.0261782_r8,0.0369516_r8,0.0307266_r8,0.0243854_r8,0.0182932_r8,0.0161418_r8/)

private

◆ gravit

real(r8) radae::gravit

private

◆ gravit_cgs

real(r8) radae::gravit_cgs

private

◆ ln_ah2ow

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) radae::ln_ah2ow

private

◆ ln_eh2ow

real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) radae::ln_eh2ow

private

◆ max_lp_h2o

real(r8), parameter radae::max_lp_h2o = -0.0000001_r8

private

◆ max_lu_h2o

real(r8), parameter radae::max_lu_h2o = 3.9999999_r8

private

◆ max_rh_h2o

real(r8), parameter radae::max_rh_h2o = 1.19999999_r8

private

◆ max_te_h2o

real(r8), parameter radae::max_te_h2o = 79.999999_r8

private

◆ max_tp_h2o

real(r8), parameter radae::max_tp_h2o = 349.999999_r8

private

◆ min_lp_h2o

real(r8), parameter radae::min_lp_h2o = -3.0_r8

private

◆ min_lu_h2o

real(r8), parameter radae::min_lu_h2o = -8.0_r8

private

◆ min_p_h2o

real(r8), parameter radae::min_p_h2o = 1.0e-3_r8

private

◆ min_rh_h2o

real(r8), parameter radae::min_rh_h2o = 0.0_r8

private

◆ min_te_h2o

real(r8), parameter radae::min_te_h2o = -120.0_r8

private

◆ min_tp_h2o

real(r8), parameter radae::min_tp_h2o = 160.0_r8

private

◆ min_u_h2o

real(r8), parameter radae::min_u_h2o = 1.0e-8_r8

private

◆ mwo3

real(r8) radae::mwo3

private

◆ n_p

integer, parameter radae::n_p = 10

private

◆ n_rh

integer, parameter radae::n_rh = 7

private

◆ n_te

integer, parameter radae::n_te = 21

private

◆ n_tp

integer, parameter radae::n_tp = 10

private

◆ n_u

integer, parameter radae::n_u = 25

private

◆ nbands

integer, parameter, public radae::nbands = 2

◆ ntemp

integer, parameter radae::ntemp = 192

private

◆ ntoplw

integer, public radae::ntoplw

◆ o_fa

integer, parameter radae::o_fa = 6

private

◆ o_fe

integer, parameter radae::o_fe = 6

private

◆ omeps

real(r8) radae::omeps

private

◆ p0

real(r8) radae::p0

private

◆ rga

real(r8) radae::rga

private

◆ rgsslp

real(r8) radae::rgsslp

private

◆ sslp

real(r8) radae::sslp

private

◆ stebol_cgs

real(r8) radae::stebol_cgs

private

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ fh2oself()

◆ initialize_radbuffer()

◆ phi()

◆ psi()

◆ radabs()

◆ radae_init()

◆ radems()

◆ radoz2()

◆ radtpl()

◆ trcab()

◆ trcabn()

◆ trcems()

◆ trcplk()

◆ trcpth()

Variable Documentation

◆ ab

◆ abp

◆ absnxt_3d

◆ abstot_3d

◆ ah2onw

◆ ah2ow

◆ amco2

◆ amd

◆ bb

◆ bbp

◆ c16

◆ c17

◆ c26

◆ c27

◆ c28

◆ c29

◆ c30

◆ c31

◆ cn_ah2ow

◆ cn_eh2ow

◆ coefh

◆ coefj

◆ coefk

◆ dlp_h2o

◆ dlu_h2o

◆ dpfco2

◆ dpfo3

◆ drh_h2o

◆ dte_h2o

◆ dtp_h2o

◆ eh2onw

◆ emstot_3d

◆ epsilo

◆ fat

◆ fc1

◆ fet

◆ fwc1

◆ fwc2

◆ fwcoef

◆ g1

◆ g2

◆ g3

◆ g4

◆ gravit

◆ gravit_cgs

◆ ln_ah2ow

◆ ln_eh2ow

◆ max_lp_h2o

◆ max_lu_h2o

◆ max_rh_h2o

◆ max_te_h2o

◆ max_tp_h2o

◆ min_lp_h2o

◆ min_lu_h2o

◆ min_p_h2o

◆ min_rh_h2o

◆ min_te_h2o

◆ min_tp_h2o

◆ min_u_h2o

◆ mwo3

◆ n_p

◆ n_rh