#include "YOMCST.h"
#include "iniprint.h"
#include "clesphys.h"
#include "raddimlw.h"
#include "radopt.h"

Include dependency graph for radiation_AR4.F:

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 2323 of file radiation_AR4.F.

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 3402 of file radiation_AR4.F.

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 2904 of file radiation_AR4.F.

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 2995 of file radiation_AR4.F.

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 5727 of file radiation_AR4.F.

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 5904 of file radiation_AR4.F.

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 2516 of file radiation_AR4.F.

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 4819 of file radiation_AR4.F.

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 4932 of file radiation_AR4.F.

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 5266 of file radiation_AR4.F.

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 5520 of file radiation_AR4.F.

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 519 of file radiation_AR4.F.

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 764 of file radiation_AR4.F.

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 2 of file radiation_AR4.F.

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 1317 of file radiation_AR4.F.

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 2028 of file radiation_AR4.F.

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 1668 of file radiation_AR4.F.

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 2239 of file radiation_AR4.F.

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 2160 of file radiation_AR4.F.

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 342 of file radiation_AR4.F.

Here is the call graph for this function:

Here is the caller graph for this function:

Functions/Subroutines

Function/Subroutine Documentation