38 |
C |
C |
39 |
INTEGER KUAER,KTRAER |
INTEGER KUAER,KTRAER |
40 |
C |
C |
41 |
REAL*8 PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS |
DOUBLE PRECISION PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS |
42 |
REAL*8 PDBSL(KDLON,Ninter,KFLEV*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT |
DOUBLE PRECISION PDBSL(KDLON,Ninter,KFLEV*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT |
43 |
REAL*8 PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
44 |
REAL*8 PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
DOUBLE PRECISION PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS |
45 |
C |
C |
46 |
REAL*8 PADJD(KDLON,KFLEV+1) ! CONTRIBUTION OF ADJACENT LAYERS |
DOUBLE PRECISION PADJD(KDLON,KFLEV+1) ! CONTRIBUTION OF ADJACENT LAYERS |
47 |
REAL*8 PADJU(KDLON,KFLEV+1) ! CONTRIBUTION OF ADJACENT LAYERS |
DOUBLE PRECISION PADJU(KDLON,KFLEV+1) ! CONTRIBUTION OF ADJACENT LAYERS |
48 |
REAL*8 PCNTRB(KDLON,KFLEV+1,KFLEV+1) ! CLEAR-SKY ENERGY EXCHANGE MATRIX |
DOUBLE PRECISION PCNTRB(KDLON,KFLEV+1,KFLEV+1) ! CLEAR-SKY ENERGY EXCHANGE MATRIX |
49 |
REAL*8 PDBDT(KDLON,Ninter,KFLEV) ! LAYER PLANCK FUNCTION GRADIENT |
DOUBLE PRECISION PDBDT(KDLON,Ninter,KFLEV) ! LAYER PLANCK FUNCTION GRADIENT |
50 |
C |
C |
51 |
C* LOCAL ARRAYS: |
C* LOCAL ARRAYS: |
52 |
C |
C |
53 |
REAL*8 ZGLAYD(KDLON) |
DOUBLE PRECISION ZGLAYD(KDLON) |
54 |
REAL*8 ZGLAYU(KDLON) |
DOUBLE PRECISION ZGLAYU(KDLON) |
55 |
REAL*8 ZTT(KDLON,NTRA) |
DOUBLE PRECISION ZTT(KDLON,NTRA) |
56 |
REAL*8 ZTT1(KDLON,NTRA) |
DOUBLE PRECISION ZTT1(KDLON,NTRA) |
57 |
REAL*8 ZTT2(KDLON,NTRA) |
DOUBLE PRECISION ZTT2(KDLON,NTRA) |
58 |
REAL*8 ZUU(KDLON,NUA) |
DOUBLE PRECISION ZUU(KDLON,NUA) |
59 |
C |
C |
60 |
INTEGER jk, jl, ja, im12, ind, inu, ixu, jg |
INTEGER jk, jl, ja, im12, ind, inu, ixu, jg |
61 |
INTEGER ixd, ibs, idd, imu, jk1, jk2, jnu |
INTEGER ixd, ibs, idd, imu, jk1, jk2, jnu |
62 |
REAL*8 zwtr |
DOUBLE PRECISION zwtr |
63 |
c |
c |
64 |
C* Data Block: |
C* Data Block: |
65 |
c |
c |
66 |
REAL*8 WG1(2) |
DOUBLE PRECISION WG1(2) |
67 |
SAVE WG1 |
SAVE WG1 |
68 |
DATA (WG1(jk),jk=1,2) /1.0, 1.0/ |
DATA (WG1(jk),jk=1,2) /1.0, 1.0/ |
69 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |