radiation_AR4.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	sw_lmdar4 (psct, prmu0, pfrac, ppmb, pdp, ppsol, palbd, palbp, ptave, pwv, pqs, pozon, paer, pcldsw, ptau, pomega, pcg, pheat, pheat0, palbpla, ptopsw, psolsw, ptopsw0, psolsw0, zfsup, zfsdn, zfsup0, zfsdn0, tauae, pizae, cgae, ptaua, pomegaa, ptopswad, psolswad, ptopswai, psolswai, ok_ade, ok_aie)
subroutine	swu_lmdar4 (psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, paki, pcld, pclear, pdsig, pfact, prmu, psec, pud)
subroutine	sw1s_lmdar4 (knu, paer, flag_aer, tauae, pizae, cgae, palbd, palbp, pcg, pcld, pclear, pcldsw, pdsig, pomega, poz, prmu, psec, ptau, pud, pfd, pfu)
subroutine	sw2s_lmdar4 (knu, paer, flag_aer, tauae, pizae, cgae, paki, palbd, palbp, pcg, pcld, pclear, pcldsw, pdsig, pomega, poz, prmu, psec, ptau, pud, pwv, pqs, pfdown, pfup)
subroutine	swclr_lmdar4 (knu, paer, flag_aer, tauae, pizae, cgae, palbp, pdsig, prayl, psec, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmu0, ptauaz, ptra1, ptra2)
subroutine	swr_lmdar4 (knu, palbd, pcg, pcld, pdsig, pomega, prayl, psec, ptau, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmue, ptauaz, ptra1, ptra2)
subroutine	swde_lmdar4 (pgg, pref, prmuz, pto1, pw, pre1, pre2, ptr1, ptr2)
subroutine	swtt_lmdar4 (knu, ka, pu, ptr)
subroutine	swtt1_lmdar4 (knu, kabs, kind, pu, ptr)
subroutine	lw_lmdar4 (ppmb, pdp, ppsol, pdt0, pemis, ptl, ptave, pwv, pozon,paer, pcldld, pcldlu, pview, pcolr, pcolr0, ptoplw, psollw, ptoplw0,psollw0, psollwdown,
subroutine	lwu_lmdar4 (paer, pdp, ppmb, ppsol, poz, ptave, pview, pwv, pabcu)
subroutine	lwbv_lmdar4 (klim, pdp, pdt0, pemis, ppmb, ptl, ptave, pabcu, pfluc, pbint, pbsui, pcts, pcntrb)
subroutine	lwc_lmdar4 (klim, pcldld, pcldlu, pemis, pfluc, pbint, pbsuin, pcts, pcntrb, pflux)
subroutine	lwb_lmdar4 (pdt0, ptave, ptl, pb, pbint, pbsuin, pbsur, pbtop, pdbsl, pga, pgb, pgasur, pgbsur, pgatop, pgbtop)
subroutine	lwv_lmdar4 (kuaer, ktraer, klim, pabcu, pb, pbint, pbsuin, pbsur, pbtop, pdbsl, pemis, ppmb, ptave, pga, pgb, pgasur, pgbsur, pgatop, pgbtop, pcntrb, pcts, pfluc)
subroutine	lwvb_lmdar4 (kuaer, ktraer, klim, pabcu, padjd, padju, pb, pbint, pbsui, pbsur, pbtop, pdisd, pdisu, pemis, ppmb, pga, pgb, pgasur, pgbsur, pgatop, pgbtop, pcts, pfluc)
subroutine	lwvd_lmdar4 (kuaer, ktraer, pabcu, pdbdt, pga, pgb, pcntrb, pdisd, pdisu)
subroutine	lwvn_lmdar4 (kuaer, ktraer, pabcu, pdbsl, pga, pgb, padjd, padju, pcntrb, pdbdt)
subroutine	lwtt_lmdar4 (pga, pgb, puu, ptt)
subroutine	lwttm_lmdar4 (pga, pgb, puu1, puu2, ptt)

Function/Subroutine Documentation

subroutine lw_lmdar4	(	real (kind=8), dimension(kdlon, kflev+1)	ppmb,
		real (kind=8), dimension(kdlon, kflev)	pdp,
		real (kind=8), dimension(kdlon)	ppsol,
		real (kind=8), dimension(kdlon)	pdt0,
		real (kind=8), dimension(kdlon)	pemis,
		real (kind=8), dimension(kdlon, kflev+1)	ptl,
		real (kind=8), dimension(kdlon, kflev)	ptave,
		real (kind=8), dimension(kdlon, kflev)	pwv,
		real (kind=8), dimension(kdlon, kflev)	pozon,
		real (kind=8), dimension(kdlon, kflev, 5)	paer,
		real (kind=8), dimension(kdlon, kflev)	pcldld,
		real (kind=8), dimension(kdlon, kflev)	pcldlu,
		real (kind=8), dimension(kdlon)	pview,
		real (kind=8), dimension(kdlon, kflev)	pcolr,
		real (kind=8), dimension(kdlon, kflev)	pcolr0,
		real (kind=8), dimension(kdlon)	ptoplw,
		real (kind=8), dimension(kdlon)	psollw,
		real (kind=8), dimension(kdlon)	ptoplw0,
		real (kind=8), dimension(kdlon)	psollw0,
		real (kind=8), dimension(kdlon)	psollwdown
	)

Definition at line 2123 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lwb_lmdar4	(	real (kind=8), dimension(kdlon)	pdt0,
		real (kind=8), dimension(kdlon, kflev)	ptave,
		real (kind=8), dimension(kdlon, kflev+1)	ptl,
		real (kind=8), dimension(kdlon, ninter, kflev+1)	pb,
		real (kind=8), dimension(kdlon, kflev+1)	pbint,
		real (kind=8), dimension(kdlon)	pbsuin,
		real (kind=8), dimension(kdlon, ninter)	pbsur,
		real (kind=8), dimension(kdlon, ninter)	pbtop,
		real (kind=8), dimension(kdlon, ninter, kflev*2)	pdbsl,
		real (kind=8), dimension(kdlon, 8, 2, kflev)	pga,
		real (kind=8), dimension(kdlon, 8, 2, kflev)	pgb,
		real (kind=8), dimension(kdlon, 8, 2)	pgasur,
		real (kind=8), dimension(kdlon, 8, 2)	pgbsur,
		real (kind=8), dimension(kdlon, 8, 2)	pgatop,
		real (kind=8), dimension(kdlon, 8, 2)	pgbtop
	)

Definition at line 3143 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lwbv_lmdar4	(	integer	klim,
		real (kind=8), dimension(kdlon, kflev)	pdp,
		real (kind=8), dimension(kdlon)	pdt0,
		real (kind=8), dimension(kdlon)	pemis,
		real (kind=8), dimension(kdlon, kflev+1)	ppmb,
		real (kind=8), dimension(kdlon, kflev+1)	ptl,
		real (kind=8), dimension(kdlon, kflev)	ptave,
		real (kind=8), dimension(kdlon, nua, 3*kflev+1)	pabcu,
		real (kind=8), dimension(kdlon, 2, kflev+1)	pfluc,
		real (kind=8), dimension(kdlon, kflev+1)	pbint,
		real (kind=8), dimension(kdlon)	pbsui,
		real (kind=8), dimension(kdlon, kflev)	pcts,
		real (kind=8), dimension(kdlon, kflev+1, kflev+1)	pcntrb
	)

Definition at line 2681 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lwc_lmdar4	(	integer	klim,
		real (kind=8), dimension(kdlon, kflev)	pcldld,
		real (kind=8), dimension(kdlon, kflev)	pcldlu,
		real (kind=8), dimension(kdlon)	pemis,
		real (kind=8), dimension(kdlon, 2, kflev+1)	pfluc,
		real (kind=8), dimension(kdlon, kflev+1)	pbint,
		real (kind=8), dimension(kdlon)	pbsuin,
		real (kind=8), dimension(kdlon, kflev)	pcts,
		real (kind=8), dimension(kdlon, kflev+1, kflev+1)	pcntrb,
		real (kind=8), dimension(kdlon, 2, kflev+1)	pflux
	)

Definition at line 2767 of file radiation_AR4.F90.

Here is the caller graph for this function:

subroutine lwtt_lmdar4	(	real (kind=8), dimension(kdlon, 8, 2)	pga,
		real (kind=8), dimension(kdlon, 8, 2)	pgb,
		real (kind=8), dimension(kdlon, nua)	puu,
		real (kind=8), dimension(kdlon, ntra)	ptt
	)

Definition at line 5372 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lwttm_lmdar4	(	real (kind=8), dimension(kdlon, 8, 2)	pga,
		real (kind=8), dimension(kdlon, 8, 2)	pgb,
		real (kind=8), dimension(kdlon, nua)	puu1,
		real (kind=8), dimension(kdlon, nua)	puu2,
		real (kind=8), dimension(kdlon, ntra)	ptt
	)

Definition at line 5545 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lwu_lmdar4	(	real (kind=8), dimension(kdlon, kflev, 5)	paer,
		real (kind=8), dimension(kdlon, kflev)	pdp,
		real (kind=8), dimension(kdlon, kflev+1)	ppmb,
		real (kind=8), dimension(kdlon)	ppsol,
		real (kind=8), dimension(kdlon, kflev)	poz,
		real (kind=8), dimension(kdlon, kflev)	ptave,
		real (kind=8), dimension(kdlon)	pview,
		real (kind=8), dimension(kdlon, kflev)	pwv,
		real (kind=8), dimension(kdlon, nua, 3*kflev+1)	pabcu
	)

Definition at line 2312 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lwv_lmdar4	(	integer	kuaer,
		integer	ktraer,
		integer	klim,
		real (kind=8), dimension(kdlon, nua, 3*kflev+1)	pabcu,
		real (kind=8), dimension(kdlon, ninter, kflev+1)	pb,
		real (kind=8), dimension(kdlon, kflev+1)	pbint,
		real (kind=8), dimension(kdlon)	pbsuin,
		real (kind=8), dimension(kdlon, ninter)	pbsur,
		real (kind=8), dimension(kdlon, ninter)	pbtop,
		real (kind=8), dimension(kdlon, ninter, kflev*2)	pdbsl,
		real (kind=8), dimension(kdlon)	pemis,
		real (kind=8), dimension(kdlon, kflev+1)	ppmb,
		real (kind=8), dimension(kdlon, kflev)	ptave,
		real (kind=8), dimension(kdlon, 8, 2, kflev)	pga,
		real (kind=8), dimension(kdlon, 8, 2, kflev)	pgb,
		real (kind=8), dimension(kdlon, 8, 2)	pgasur,
		real (kind=8), dimension(kdlon, 8, 2)	pgbsur,
		real (kind=8), dimension(kdlon, 8, 2)	pgatop,
		real (kind=8), dimension(kdlon, 8, 2)	pgbtop,
		real (kind=8), dimension(kdlon, kflev+1, kflev+1)	pcntrb,
		real (kind=8), dimension(kdlon, kflev)	pcts,
		real (kind=8), dimension(kdlon, 2, kflev+1)	pfluc
	)

Definition at line 4543 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lwvb_lmdar4	(	integer	kuaer,
		integer	ktraer,
		integer	klim,
		real (kind=8), dimension(kdlon, nua, 3*kflev+1)	pabcu,
		real (kind=8), dimension(kdlon, kflev+1)	padjd,
		real (kind=8), dimension(kdlon, kflev+1)	padju,
		real (kind=8), dimension(kdlon, ninter, kflev+1)	pb,
		real (kind=8), dimension(kdlon, kflev+1)	pbint,
		real (kind=8), dimension(kdlon)	pbsui,
		real (kind=8), dimension(kdlon, ninter)	pbsur,
		real (kind=8), dimension(kdlon, ninter)	pbtop,
		real (kind=8), dimension(kdlon, kflev+1)	pdisd,
		real (kind=8), dimension(kdlon, kflev+1)	pdisu,
		real (kind=8), dimension(kdlon)	pemis,
		real (kind=8), dimension(kdlon, kflev+1)	ppmb,
		real (kind=8), dimension(kdlon, 8, 2, kflev)	pga,
		real (kind=8), dimension(kdlon, 8, 2, kflev)	pgb,
		real (kind=8), dimension(kdlon, 8, 2)	pgasur,
		real (kind=8), dimension(kdlon, 8, 2)	pgbsur,
		real (kind=8), dimension(kdlon, 8, 2)	pgatop,
		real (kind=8), dimension(kdlon, 8, 2)	pgbtop,
		real (kind=8), dimension(kdlon, kflev)	pcts,
		real (kind=8), dimension(kdlon, 2, kflev+1)	pfluc
	)

Definition at line 4648 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lwvd_lmdar4	(	integer	kuaer,
		integer	ktraer,
		real (kind=8), dimension(kdlon, nua, 3*kflev+1)	pabcu,
		real (kind=8), dimension(kdlon, ninter, kflev)	pdbdt,
		real (kind=8), dimension(kdlon, 8, 2, kflev)	pga,
		real (kind=8), dimension(kdlon, 8, 2, kflev)	pgb,
		real (kind=8), dimension(kdlon, kflev+1, kflev+1)	pcntrb,
		real (kind=8), dimension(kdlon, kflev+1)	pdisd,
		real (kind=8), dimension(kdlon, kflev+1)	pdisu
	)

Definition at line 4947 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine lwvn_lmdar4	(	integer	kuaer,
		integer	ktraer,
		real (kind=8), dimension(kdlon, nua, 3*kflev+1)	pabcu,
		real (kind=8), dimension(kdlon, ninter, kflev*2)	pdbsl,
		real (kind=8), dimension(kdlon, 8, 2, kflev)	pga,
		real (kind=8), dimension(kdlon, 8, 2, kflev)	pgb,
		real (kind=8), dimension(kdlon, kflev+1)	padjd,
		real (kind=8), dimension(kdlon, kflev+1)	padju,
		real (kind=8), dimension(kdlon, kflev+1, kflev+1)	pcntrb,
		real (kind=8), dimension(kdlon, ninter, kflev)	pdbdt
	)

Definition at line 5179 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine sw1s_lmdar4	(	integer	knu,
		real (kind=8), dimension(kdlon, kflev, 5)	paer,
		real (kind=8)	flag_aer,
		real (kind=8), dimension(kdlon, kflev, 2)	tauae,
		real (kind=8), dimension(kdlon, kflev, 2)	pizae,
		real (kind=8), dimension(kdlon, kflev, 2)	cgae,
		real (kind=8), dimension(kdlon, 2)	palbd,
		real (kind=8), dimension(kdlon, 2)	palbp,
		real (kind=8), dimension(kdlon, 2, kflev)	pcg,
		real (kind=8), dimension(kdlon, kflev)	pcld,
		real (kind=8), dimension(kdlon)	pclear,
		real (kind=8), dimension(kdlon, kflev)	pcldsw,
		real (kind=8), dimension(kdlon, kflev)	pdsig,
		real (kind=8), dimension(kdlon, 2, kflev)	pomega,
		real (kind=8), dimension(kdlon, kflev)	poz,
		real (kind=8), dimension(kdlon)	prmu,
		real (kind=8), dimension(kdlon)	psec,
		real (kind=8), dimension(kdlon, 2, kflev)	ptau,
		real (kind=8), dimension(kdlon, 5, kflev+1)	pud,
		real (kind=8), dimension(kdlon, kflev+1)	pfd,
		real (kind=8), dimension(kdlon, kflev+1)	pfu
	)

Definition at line 479 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine sw2s_lmdar4	(	integer	knu,
		real (kind=8), dimension(kdlon, kflev, 5)	paer,
		real (kind=8)	flag_aer,
		real (kind=8), dimension(kdlon, kflev, 2)	tauae,
		real (kind=8), dimension(kdlon, kflev, 2)	pizae,
		real (kind=8), dimension(kdlon, kflev, 2)	cgae,
		real (kind=8), dimension(kdlon, 2)	paki,
		real (kind=8), dimension(kdlon, 2)	palbd,
		real (kind=8), dimension(kdlon, 2)	palbp,
		real (kind=8), dimension(kdlon, 2, kflev)	pcg,
		real (kind=8), dimension(kdlon, kflev)	pcld,
		real (kind=8), dimension(kdlon)	pclear,
		real (kind=8), dimension(kdlon, kflev)	pcldsw,
		real (kind=8), dimension(kdlon, kflev)	pdsig,
		real (kind=8), dimension(kdlon, 2, kflev)	pomega,
		real (kind=8), dimension(kdlon, kflev)	poz,
		real (kind=8), dimension(kdlon)	prmu,
		real (kind=8), dimension(kdlon)	psec,
		real (kind=8), dimension(kdlon, 2, kflev)	ptau,
		real (kind=8), dimension(kdlon, 5, kflev+1)	pud,
		real (kind=8), dimension(kdlon, kflev)	pwv,
		real (kind=8), dimension(kdlon, kflev)	pqs,
		real (kind=8), dimension(kdlon, kflev+1)	pfdown,
		real (kind=8), dimension(kdlon, kflev+1)	pfup
	)

Definition at line 700 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine sw_lmdar4	(	real (kind=8)	psct,
		real (kind=8), dimension(kdlon)	prmu0,
		real (kind=8), dimension(kdlon)	pfrac,
		real (kind=8), dimension(kdlon, kflev+1)	ppmb,
		real (kind=8), dimension(kdlon, kflev)	pdp,
		real (kind=8), dimension(kdlon)	ppsol,
		real (kind=8), dimension(kdlon, 2)	palbd,
		real (kind=8), dimension(kdlon, 2)	palbp,
		real (kind=8), dimension(kdlon, kflev)	ptave,
		real (kind=8), dimension(kdlon, kflev)	pwv,
		real (kind=8), dimension(kdlon, kflev)	pqs,
		real (kind=8), dimension(kdlon, kflev)	pozon,
		real (kind=8), dimension(kdlon, kflev, 5)	paer,
		real (kind=8), dimension(kdlon, kflev)	pcldsw,
		real (kind=8), dimension(kdlon, 2, kflev)	ptau,
		real (kind=8), dimension(kdlon, 2, kflev)	pomega,
		real (kind=8), dimension(kdlon, 2, kflev)	pcg,
		real (kind=8), dimension(kdlon, kflev)	pheat,
		real (kind=8), dimension(kdlon, kflev)	pheat0,
		real (kind=8), dimension(kdlon)	palbpla,
		real (kind=8), dimension(kdlon)	ptopsw,
		real (kind=8), dimension(kdlon)	psolsw,
		real (kind=8), dimension(kdlon)	ptopsw0,
		real (kind=8), dimension(kdlon)	psolsw0,
		real (kind=8), dimension(kdlon, kflev+1)	zfsup,
		real (kind=8), dimension(kdlon, kflev+1)	zfsdn,
		real (kind=8), dimension(kdlon, kflev+1)	zfsup0,
		real (kind=8), dimension(kdlon, kflev+1)	zfsdn0,
		real (kind=8), dimension(kdlon, kflev, 2)	tauae,
		real (kind=8), dimension(kdlon, kflev, 2)	pizae,
		real (kind=8), dimension(kdlon, kflev, 2)	cgae,
		real (kind=8), dimension(kdlon, 2, kflev)	ptaua,
		real (kind=8), dimension(kdlon, 2, kflev)	pomegaa,
		real (kind=8), dimension(kdlon)	ptopswad,
		real (kind=8), dimension(kdlon)	psolswad,
		real (kind=8), dimension(kdlon)	ptopswai,
		real (kind=8), dimension(kdlon)	psolswai,
		logical	ok_ade,
		logical	ok_aie
	)

Definition at line 7 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine swclr_lmdar4	(	integer	knu,
		real (kind=8), dimension(kdlon, kflev, 5)	paer,
		real (kind=8)	flag_aer,
		real (kind=8), dimension(kdlon, kflev, 2)	tauae,
		real (kind=8), dimension(kdlon, kflev, 2)	pizae,
		real (kind=8), dimension(kdlon, kflev, 2)	cgae,
		real (kind=8), dimension(kdlon, 2)	palbp,
		real (kind=8), dimension(kdlon, kflev)	pdsig,
		real (kind=8), dimension(kdlon)	prayl,
		real (kind=8), dimension(kdlon)	psec,
		real (kind=8), dimension(kdlon, kflev)	pcgaz,
		real (kind=8), dimension(kdlon, kflev)	ppizaz,
		real (kind=8), dimension(kdlon, kflev+1)	pray1,
		real (kind=8), dimension(kdlon, kflev+1)	pray2,
		real (kind=8), dimension(kdlon, 2, kflev+1)	prefz,
		real (kind=8), dimension(kdlon, 6, kflev+1)	prj,
		real (kind=8), dimension(kdlon, 6, kflev+1)	prk,
		real (kind=8), dimension(kdlon, kflev+1)	prmu0,
		real (kind=8), dimension(kdlon, kflev)	ptauaz,
		real (kind=8), dimension(kdlon, kflev+1)	ptra1,
		real (kind=8), dimension(kdlon, kflev+1)	ptra2
	)

Definition at line 1197 of file radiation_AR4.F90.

Here is the caller graph for this function:

subroutine swde_lmdar4	(	real (kind=8), dimension(kdlon)	pgg,
		real (kind=8), dimension(kdlon)	pref,
		real (kind=8), dimension(kdlon)	prmuz,
		real (kind=8), dimension(kdlon)	pto1,
		real (kind=8), dimension(kdlon)	pw,
		real (kind=8), dimension(kdlon)	pre1,
		real (kind=8), dimension(kdlon)	pre2,
		real (kind=8), dimension(kdlon)	ptr1,
		real (kind=8), dimension(kdlon)	ptr2
	)

Definition at line 1853 of file radiation_AR4.F90.

Here is the caller graph for this function:

subroutine swr_lmdar4	(	integer	knu,
		real (kind=8), dimension(kdlon, 2)	palbd,
		real (kind=8), dimension(kdlon, 2, kflev)	pcg,
		real (kind=8), dimension(kdlon, kflev)	pcld,
		real (kind=8), dimension(kdlon, kflev)	pdsig,
		real (kind=8), dimension(kdlon, 2, kflev)	pomega,
		real (kind=8), dimension(kdlon)	prayl,
		real (kind=8), dimension(kdlon)	psec,
		real (kind=8), dimension(kdlon, 2, kflev)	ptau,
		real (kind=8), dimension(kdlon, kflev)	pcgaz,
		real (kind=8), dimension(kdlon, kflev)	ppizaz,
		real (kind=8), dimension(kdlon, kflev+1)	pray1,
		real (kind=8), dimension(kdlon, kflev+1)	pray2,
		real (kind=8), dimension(kdlon, 2, kflev+1)	prefz,
		real (kind=8), dimension(kdlon, 6, kflev+1)	prj,
		real (kind=8), dimension(kdlon, 6, kflev+1)	prk,
		real (kind=8), dimension(kdlon, kflev+1)	prmue,
		real (kind=8), dimension(kdlon, kflev)	ptauaz,
		real (kind=8), dimension(kdlon, kflev+1)	ptra1,
		real (kind=8), dimension(kdlon, kflev+1)	ptra2
	)

Definition at line 1526 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine swtt1_lmdar4	(	integer	knu,
		integer	kabs,
		integer, dimension(kabs)	kind,
		real (kind=8), dimension(kdlon, kabs)	pu,
		real (kind=8), dimension(kdlon, kabs)	ptr
	)

Definition at line 2045 of file radiation_AR4.F90.

Here is the caller graph for this function:

subroutine swtt_lmdar4	(	integer	knu,
		integer	ka,
		real (kind=8), dimension(kdlon)	pu,
		real (kind=8), dimension(kdlon)	ptr
	)

Definition at line 1976 of file radiation_AR4.F90.

Here is the caller graph for this function:

subroutine swu_lmdar4	(	real (kind=8)	psct,
		real (kind=8), dimension(kdlon, kflev)	pcldsw,
		real (kind=8), dimension(kdlon, kflev+1)	ppmb,
		real (kind=8), dimension(kdlon)	ppsol,
		real (kind=8), dimension(kdlon)	prmu0,
		real (kind=8), dimension(kdlon)	pfrac,
		real (kind=8), dimension(kdlon, kflev)	ptave,
		real (kind=8), dimension(kdlon, kflev)	pwv,
		real (kind=8), dimension(kdlon, 2)	paki,
		real (kind=8), dimension(kdlon, kflev)	pcld,
		real (kind=8), dimension(kdlon)	pclear,
		real (kind=8), dimension(kdlon, kflev)	pdsig,
		real (kind=8), dimension(kdlon)	pfact,
		real (kind=8), dimension(kdlon)	prmu,
		real (kind=8), dimension(kdlon)	psec,
		real (kind=8), dimension(kdlon, 5, kflev+1)	pud
	)

Definition at line 312 of file radiation_AR4.F90.

Here is the call graph for this function:

Here is the caller graph for this function: