37 |
C |
C |
38 |
INTEGER KUAER,KTRAER |
INTEGER KUAER,KTRAER |
39 |
C |
C |
40 |
REAL*8 PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS |
DOUBLE PRECISION PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS |
41 |
REAL*8 PDBDT(KDLON,Ninter,KFLEV) ! LAYER PLANCK FUNCTION GRADIENT |
DOUBLE PRECISION PDBDT(KDLON,Ninter,KFLEV) ! LAYER PLANCK FUNCTION GRADIENT |
42 |
REAL*8 PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
43 |
REAL*8 PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
44 |
C |
C |
45 |
REAL*8 PCNTRB(KDLON,KFLEV+1,KFLEV+1) ! ENERGY EXCHANGE MATRIX |
DOUBLE PRECISION PCNTRB(KDLON,KFLEV+1,KFLEV+1) ! ENERGY EXCHANGE MATRIX |
46 |
REAL*8 PDISD(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS |
DOUBLE PRECISION PDISD(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS |
47 |
REAL*8 PDISU(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS |
DOUBLE PRECISION PDISU(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS |
48 |
C |
C |
49 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
50 |
C |
C |
51 |
REAL*8 ZGLAYD(KDLON) |
DOUBLE PRECISION ZGLAYD(KDLON) |
52 |
REAL*8 ZGLAYU(KDLON) |
DOUBLE PRECISION ZGLAYU(KDLON) |
53 |
REAL*8 ZTT(KDLON,NTRA) |
DOUBLE PRECISION ZTT(KDLON,NTRA) |
54 |
REAL*8 ZTT1(KDLON,NTRA) |
DOUBLE PRECISION ZTT1(KDLON,NTRA) |
55 |
REAL*8 ZTT2(KDLON,NTRA) |
DOUBLE PRECISION ZTT2(KDLON,NTRA) |
56 |
C |
C |
57 |
INTEGER jl, jk, ja, ikp1, ikn, ikd1, jkj, ikd2 |
INTEGER jl, jk, ja, ikp1, ikn, ikd1, jkj, ikd2 |
58 |
INTEGER ikjp1, ikm1, ikj, jlk, iku1, ijkl, iku2 |
INTEGER ikjp1, ikm1, ikj, jlk, iku1, ijkl, iku2 |
59 |
INTEGER ind1, ind2, ind3, ind4, itt |
INTEGER ind1, ind2, ind3, ind4, itt |
60 |
REAL*8 zww, zdzxdg, zdzxmg |
DOUBLE PRECISION zww, zdzxdg, zdzxmg |
61 |
C |
C |
62 |
C* 1. INITIALIZATION |
C* 1. INITIALIZATION |
63 |
C -------------- |
C -------------- |