afrt_rt1.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	af_rt1_read (infile, phsdir, outdir, ozone_lut, atm_lut, coeff_lut, nsd, iair, iprin, ipsudo, ioptn, idus iaprof, iblyr, icld, nch, nt55, nrh, kset, ilam1, ilam2, isd1, isd2, itau1, itau2, kznum, krhum, deltau, psrfc, ht_dust, sigma_dust, pcldtop, pcldbtm, taum55, xlamb, c0, c1, c2, beta, rho, ppo, x101, temp101, htdd, ppodd, dxdd, znpdd, nortau, ioznab, nrmww, oqst, oqtt, oqst5, oqtt5)
subroutine	af_rt1_process (outdir, ailam, aisd, airh, aitau, iair, iprin, ipsudo, ioptn, idust, iaprof, iblyr, icld, nch, nt55, nsd nrh, kset, kznum, krhum, adeltau, psrfc, ht_dust, sigma_dust, pcldtop, pcldbtm, taum55, xlamb, c0, c1, c2, beta, rho, ppo, x101, temp101, htdd, ppodd, dxdd, znpdd, nortau, ioznab, nrmww, aqst, aqtt, aqst5, aqtt5, ohtlvl, opplvl, ofr, ofn, ofa, oftot, odtrr, odtmm, odtaa, odtot, otrp, otmp, otap, osalb, oturbhl, odx, ox, otozn101, ohtdv, opdv, otaur, otaum, otaua, otau, owvlth, opsrfc, orho, oozamtp, otautot, odtau1, onolyr, otcar, otwat, otoznp, oifc, onmodl)
subroutine	tauint (itau, isd, ih, il, ifc, iair, iprin, ipsudo, ioptn, idust iblyr, icld, nd, nm, ndvsrf, psrfc, deltau, qst, qtt, tmt, znp, zpp, pdv, fr, fn, fa, ftot, tau, taum, taua, taur, tauw, tauc, tauozn, ppod, lgppod, lgpdv, x, dx, xd, dxd, htlvl, pplvl, htd, dtrr, dtmm, dtaa, dtot, htdv, tr, tcar, wvlth, rrho, ohtlvl, opplvl, ofr, ofn, ofa, oftot, odtrr, odtmm, odtaa, odtot, osalb, oturbhl, otrp, otmp, otap, o temp101, x101, ppo, otozn101, ohtdv, opdv, otaur, otaum, otaua, otau, opsrfc, orho, oozamtp, otautot, odtau1, onolyr, otcar, otwat, otoznp, oifc, onmodl, aqst, aqtt, aqst5, aqtt5)
subroutine	part2 (nm, pdv, ppod, htd, znp, zpp, qtt, tmt, taum)
subroutine	water (twat, pdv, watr, ppod, ht, nm, ndv, tauw)
subroutine	ozn3
subroutine	co2 (tcar, pdv, tauc, ndv)
subroutine	linear (xp, x, y, n, yp)
subroutine	part1 (nm, pdv, ppod, htd, znp, zpp, qtt, tmt, taum)
subroutine	dust_prof (znpdd, htdd)
subroutine	ozn3_abs (temp101, ppo)
subroutine	cloud_prof (pcldtop, pcldbtm, ppodd, htdd, znpdd)

Function/Subroutine Documentation

af_rt1_process()

subroutine af_rt1_process	(	character*255	outdir,
		integer*4	ailam,
		integer*4	aisd,
		integer*4	airh,
		integer*4	aitau,
		integer*4, dimension(3)	iair,
		integer*4	iprin,
		integer*4	ipsudo,
		integer*4	ioptn,
		integer*4	idust,
		integer*4	iaprof,
		integer*4	iblyr,
		integer*4	icld,
		integer*4	nch,
		integer*4	nt55,
		integer*4	nsd,
		integer*4	nrh,
		integer*4	kset,
		integer*4	kznum,
		integer*4, dimension(ksd)	krhum,
		real*8	adeltau,
		real*8	psrfc,
		real*8	ht_dust,
		real*8	sigma_dust,
		real*8	pcldtop,
		real*8	pcldbtm,
		real*8, dimension(ktau)	taum55,
		real*8, dimension(klam)	xlamb,
		real*8, dimension(klam)	c0,
		real*8, dimension(klam)	c1,
		real*8, dimension(kl rho(klam),ppo(koznp),x101(koznp),temp101(koznp), htdd(kmac),ppodd(kmac),dxdd(kmac),znpdd(kmac),watrdd(kmac)	c2,
		real*8, dimension(klam)	beta,
			rho,
			ppo,
			x101,
			temp101,
			htdd,
			ppodd,
			dxdd,
			znpdd,
		integer*4	nortau,
		integer*4	ioznab,
		integer*4	nrmww,
		real*8	aqst,
		real*8	aqtt,
		real*8	aqst5,
		real*8	aqtt5,
		real*8, dimension(klyr)	ohtlvl,
		real*8, dimension(klyr)	opplvl,
		real*8, dimension(klyr)	ofr,
		real*8, dimension(klyr)	ofn,
		real*8, dimension(klyr)	ofa,
		real*8, dimension(klyr)	oftot,
		real*8, dimension(klyr)	odtrr,
		real*8, dimension(klyr)	odtmm,
		real*8, dimension(klyr)	odtaa,
		real*8, dimension(klyr)	odtot,
		real*8	otrp,
		real*8	otmp,
		real*8	otap,
		real*8, dimension(klyr)	osalb,
		real*8, dimension(klyr)	oturbhl,
		real*8, dimension(koznp)	odx,
		real*8, dimension(koznp)	ox,
		real*8, dimension(koznp)	otozn101,
		real*8, dimension(kdlvl)	ohtdv,
		real*8, dimension(kdlvl)	opdv,
		real*8, dimension(klyr)	otaur,
		real*8, dimension(klyr)	otaum,
		real*8, dimension(klyr)	otaua,
		real*8, dimension(klyr)	otau,
		real*8	owvlth,
		real*8	opsrfc,
		real*8	orho,
		real*8	oozamtp,
		real*8	otautot,
		real*8	odtau1,
		integer*4	onolyr,
		real*8	otcar,
		real*8	otwat,
		real*8	otoznp,
		integer*4	oifc,
		integer*4	onmodl
	)

Definition at line 275 of file afrt_rt1.f.

af_rt1_read()

subroutine af_rt1_read	(	character*255	infile,
		character*255	phsdir,
		character*255	outdir,
		character*255	ozone_lut,
		character*255	atm_lut,
		character*255	coeff_lut,
		integer*4	nsd,
		integer*4, dimension(3)	iair,
		integer*4	iprin,
		integer*4	ipsudo,
		integer*4	ioptn,
			idus,
		integer*4	iaprof,
		integer*4	iblyr,
		integer*4	icld,
		integer*4	nch,
		integer*4	nt55,
		integer*4	nrh,
		integer*4	kset,
		integer*4	ilam1,
		integer*4	ilam2,
			isd1,
			isd2,
		integer*4	itau1,
		integer*4	itau2,
		integer*4	kznum,
		integer*4, dimension(ksd)	krhum,
		real*8	deltau,
		real*8	psrfc,
		real*8	ht_dust,
		real*8	sigma_dust,
		real*8	pcldtop,
		real*8	pcldbtm,
		real*8, dimension(ktau)	taum55,
		real*8, dimension(klam)	xlamb,
		real*8, dimension(klam)	c0,
		real*8, dimension(klam)	c1,
		real*8, dimension(kl rho(klam),ppo(koznp),x101(koznp),temp101(koznp), htdd(kmac),ppodd(kmac),dxdd(kmac),znpdd(kmac),watrdd(kmac)	c2,
		real*8, dimension(klam)	beta,
			rho,
			ppo,
			x101,
			temp101,
			htdd,
			ppodd,
			dxdd,
			znpdd,
		integer*4	nortau,
		integer*4	ioznab,
		integer*4	nrmww,
		real*8, dimension(ktau,ksd,klam)	oqst,
		real*8, dimension(ktau,ksd,klam)	oqtt,
		real*8, dimension(ktau,ksd,klam)	oqst5,
		real*8, dimension(ktau,ksd,klam)	oqtt5
	)

Definition at line 19 of file afrt_rt1.f.

cloud_prof()

subroutine cloud_prof	(	real*8	pcldtop,
		real*8	pcldbtm,
		real*8, dimension(kmac)	ppodd,
		real*8, dimension(kmac)	htdd,
		real*8, dimension(kmac)	znpdd
	)

Definition at line 1411 of file afrt_rt1.f.

co2()

subroutine co2	(		tcar,
		real*8, dimension(kdlvl)	pdv,
		real*8, dimension(kdlvl)	tauc,
			ndv
	)

Definition at line 1237 of file afrt_rt1.f.

dust_prof()

subroutine dust_prof	(	real*8, dimension(kmac)	znpdd,
		real*8, dimension(kmac)	htdd
	)

Definition at line 1340 of file afrt_rt1.f.

linear()

subroutine linear	(		xp,
		real*8, dimension(n)	x,
		real*8, dimension(n)	y,
			n,
			yp
	)

Definition at line 1255 of file afrt_rt1.f.

ozn3()

subroutine ozn3

Definition at line 1217 of file afrt_rt1.f.

ozn3_abs()

subroutine ozn3_abs	(	real*8, dimension(koznp)	temp101,
		real*8, dimension(koznp)	ppo
	)

Definition at line 1368 of file afrt_rt1.f.

part1()

subroutine part1	(	integer*4	nm,
		real*8, dimension(kdlvl)	pdv,
		real*8, dimension(kmac)	ppod,
		real*8, dimension(kmac)	htd,
		real*8, dimension(kmac)	znp,
		real*8, dimension(kdlvl)	zpp,
		real*8	qtt,
		real*8	tmt,
		real*8, dimension(klyr)	taum
	)

Definition at line 1285 of file afrt_rt1.f.

part2()

subroutine part2	(	integer*4	nm,
			pdv,
		real*8, dimension(kmac)	ppod,
		real*8, dimension(kmac)	htd,
		real*8, dimension( dxd(kmac),watr(kmac),dx(kozn),x(koznp),pdv(kdlvl),htdv(kdlv dtrr(klyr),dtmm(klyr),abozn(klam), dtaa(klyr),dtot(klyr), temp1(klyr),xxd(kmacp),tozn101(koznp),xd(kmac),temp2(klyr)	znp,
		real*8, dimension(kdlvl)	zpp,
		real*8	qtt,
		real*8	tmt,
		real*8, dimension(klyr)	taum
	)

Definition at line 1011 of file afrt_rt1.f.

tauint()

subroutine tauint	(	integer*4	itau,
		integer*4	isd,
		integer*4	ih,
		integer*4	il,
		integer*4	ifc,
		integer*4, dimension(3)	iair,
		integer*4	iprin,
		integer*4	ipsudo,
		integer*4	ioptn,
		integer*4	idust,
		integer*4	iblyr,
			icld,
		integer*4	nd,
		integer*4	nm,
		integer*4	ndvsrf,
		real*8	psrfc,
		real*8	deltau,
		real*8	qst,
		real*8	qtt,
		real*8	tmt,
		real*8, dimension(kmac)	znp,
		real*8, dimension(kdlvl)	zpp,
		real*8, dimension(kdlvl)	pdv,
		real*8, dimension(klyr)	fr,
		real*8, dimension(klyr)	fn,
		real*8, dimension(klyr)	fa,
		real*8, dimension(klyr)	ftot,
		real*8, dimension(klyr)	tau,
		real*8, dimension(klyr)	taum,
		real*8, dimension(klyr)	taua,
		real*8, dimension(klyr)	taur,
		real*8, dimension(klyr)	tauw,
		real*8, dimension(klyr)	tauc,
		real*8, dimension(klyr)	tauozn,
		real*8, dimension(kmac)	ppod,
		real*8, dimension(kmac)	lgppod,
		real*8, dimension(kdlvl)	lgpdv,
		real*8, dimension(koznp)	x,
		real*8, dimension(kozn)	dx,
		real*8, dimension(kmac)	xd,
		real*8, dimension(kmac)	dxd,
		real*8, dimension(klyr)	htlvl,
		real*8, dimension(klyr)	pplvl,
		real*8, dimension(kma dtrr(klyr),dtmm(klyr),dtaa(klyr),dtot(klyr),htdv(kdlvl)	htd,
			dtrr,
			dtmm,
			dtaa,
			dtot,
			htdv,
		real*8	tr,
			tcar,
		real*8	wvlth,
		real*8	rrho,
		real*8, dimension(klyr)	ohtlvl,
		real*8, dimension(klyr)	opplvl,
		real*8, dimension(klyr)	ofr,
		real*8, dimension(klyr)	ofn,
		real*8, dimension(kly oftot(klyr)	ofa,
			oftot,
		real*8, dimension(klyr)	odtrr,
		real*8, dimension(klyr)	odtmm,
		real*8, dimension(klyr)	odtaa,
		real*8, dimension(klyr)	odtot,
		real*8, dimension(klyr)	osalb,
		real*8, dimension(klyr)	oturbhl,
		real*8	otrp,
		real*8	otmp,
		real*8	otap,
			o,
		real*8, dimension(koznp)	temp101,
		real*8, dimension(koznp)	x101,
		real*8, dimension(koznp)	ppo,
		real*8, dimension(koznp)	otozn101,
		real*8, dimension(kdlvl)	ohtdv,
		real*8, dimension(kdlvl)	opdv,
		real*8, dimension(klyr)	otaur,
		real*8, dimension(klyr)	otaum,
		real*8, dimension(klyr)	otaua,
		real*8, dimension(klyr)	otau,
		real*8	opsrfc,
		real*8	orho,
		real*8	oozamtp,
		real*8	otautot,
		real*8	odtau1,
		integer*4	onolyr,
		real*8	otcar,
		real*8	otwat,
		real*8	otoznp,
		integer*4	oifc,
		integer*4	onmodl,
		real*8	aqst,
		real*8	aqtt,
		real*8	aqst5,
		real*8	aqtt5
	)

Definition at line 573 of file afrt_rt1.f.

water()

subroutine water	(		twat,
		real*8, dimension(1000)	pdv,
		real*8, dimension(1000)	watr,
		real*8, dimension(1000)	ppod,
		real*8, dimension(1000)	ht,
			nm,
			ndv,
		real*8, dimension(1000)	tauw
	)

Definition at line 1168 of file afrt_rt1.f.