42 |
C |
C |
43 |
INTEGER KNU |
INTEGER KNU |
44 |
c-OB |
c-OB |
45 |
real*8 flag_aer |
double precision flag_aer |
46 |
real*8 tauae(kdlon,kflev,2) |
double precision tauae(kdlon,kflev,2) |
47 |
real*8 pizae(kdlon,kflev,2) |
double precision pizae(kdlon,kflev,2) |
48 |
real*8 cgae(kdlon,kflev,2) |
double precision cgae(kdlon,kflev,2) |
49 |
REAL*8 PAER(KDLON,KFLEV,5) |
DOUBLE PRECISION PAER(KDLON,KFLEV,5) |
50 |
REAL*8 PALBD(KDLON,2) |
DOUBLE PRECISION PALBD(KDLON,2) |
51 |
REAL*8 PALBP(KDLON,2) |
DOUBLE PRECISION PALBP(KDLON,2) |
52 |
REAL*8 PCG(KDLON,2,KFLEV) |
DOUBLE PRECISION PCG(KDLON,2,KFLEV) |
53 |
REAL*8 PCLD(KDLON,KFLEV) |
DOUBLE PRECISION PCLD(KDLON,KFLEV) |
54 |
REAL*8 PCLDSW(KDLON,KFLEV) |
DOUBLE PRECISION PCLDSW(KDLON,KFLEV) |
55 |
REAL*8 PCLEAR(KDLON) |
DOUBLE PRECISION PCLEAR(KDLON) |
56 |
REAL*8 PDSIG(KDLON,KFLEV) |
DOUBLE PRECISION PDSIG(KDLON,KFLEV) |
57 |
REAL*8 POMEGA(KDLON,2,KFLEV) |
DOUBLE PRECISION POMEGA(KDLON,2,KFLEV) |
58 |
REAL*8 POZ(KDLON,KFLEV) |
DOUBLE PRECISION POZ(KDLON,KFLEV) |
59 |
REAL*8 PRMU(KDLON) |
DOUBLE PRECISION PRMU(KDLON) |
60 |
REAL*8 PSEC(KDLON) |
DOUBLE PRECISION PSEC(KDLON) |
61 |
REAL*8 PTAU(KDLON,2,KFLEV) |
DOUBLE PRECISION PTAU(KDLON,2,KFLEV) |
62 |
REAL*8 PUD(KDLON,5,KFLEV+1) |
DOUBLE PRECISION PUD(KDLON,5,KFLEV+1) |
63 |
C |
C |
64 |
REAL*8 PFD(KDLON,KFLEV+1) |
DOUBLE PRECISION PFD(KDLON,KFLEV+1) |
65 |
REAL*8 PFU(KDLON,KFLEV+1) |
DOUBLE PRECISION PFU(KDLON,KFLEV+1) |
66 |
C |
C |
67 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
68 |
C |
C |
69 |
INTEGER IIND(4) |
INTEGER IIND(4) |
70 |
C |
C |
71 |
REAL*8 ZCGAZ(KDLON,KFLEV) |
DOUBLE PRECISION ZCGAZ(KDLON,KFLEV) |
72 |
REAL*8 ZDIFF(KDLON) |
DOUBLE PRECISION ZDIFF(KDLON) |
73 |
REAL*8 ZDIRF(KDLON) |
DOUBLE PRECISION ZDIRF(KDLON) |
74 |
REAL*8 ZPIZAZ(KDLON,KFLEV) |
DOUBLE PRECISION ZPIZAZ(KDLON,KFLEV) |
75 |
REAL*8 ZRAYL(KDLON) |
DOUBLE PRECISION ZRAYL(KDLON) |
76 |
REAL*8 ZRAY1(KDLON,KFLEV+1) |
DOUBLE PRECISION ZRAY1(KDLON,KFLEV+1) |
77 |
REAL*8 ZRAY2(KDLON,KFLEV+1) |
DOUBLE PRECISION ZRAY2(KDLON,KFLEV+1) |
78 |
REAL*8 ZREFZ(KDLON,2,KFLEV+1) |
DOUBLE PRECISION ZREFZ(KDLON,2,KFLEV+1) |
79 |
REAL*8 ZRJ(KDLON,6,KFLEV+1) |
DOUBLE PRECISION ZRJ(KDLON,6,KFLEV+1) |
80 |
REAL*8 ZRJ0(KDLON,6,KFLEV+1) |
DOUBLE PRECISION ZRJ0(KDLON,6,KFLEV+1) |
81 |
REAL*8 ZRK(KDLON,6,KFLEV+1) |
DOUBLE PRECISION ZRK(KDLON,6,KFLEV+1) |
82 |
REAL*8 ZRK0(KDLON,6,KFLEV+1) |
DOUBLE PRECISION ZRK0(KDLON,6,KFLEV+1) |
83 |
REAL*8 ZRMUE(KDLON,KFLEV+1) |
DOUBLE PRECISION ZRMUE(KDLON,KFLEV+1) |
84 |
REAL*8 ZRMU0(KDLON,KFLEV+1) |
DOUBLE PRECISION ZRMU0(KDLON,KFLEV+1) |
85 |
REAL*8 ZR(KDLON,4) |
DOUBLE PRECISION ZR(KDLON,4) |
86 |
REAL*8 ZTAUAZ(KDLON,KFLEV) |
DOUBLE PRECISION ZTAUAZ(KDLON,KFLEV) |
87 |
REAL*8 ZTRA1(KDLON,KFLEV+1) |
DOUBLE PRECISION ZTRA1(KDLON,KFLEV+1) |
88 |
REAL*8 ZTRA2(KDLON,KFLEV+1) |
DOUBLE PRECISION ZTRA2(KDLON,KFLEV+1) |
89 |
REAL*8 ZW(KDLON,4) |
DOUBLE PRECISION ZW(KDLON,4) |
90 |
C |
C |
91 |
INTEGER jl, jk, k, jaj, ikm1, ikl |
INTEGER jl, jk, k, jaj, ikm1, ikl |
92 |
c |
c |
93 |
c Prescribed Data: |
c Prescribed Data: |
94 |
c |
c |
95 |
REAL*8 RSUN(2) |
DOUBLE PRECISION RSUN(2) |
96 |
SAVE RSUN |
SAVE RSUN |
97 |
REAL*8 RRAY(2,6) |
DOUBLE PRECISION RRAY(2,6) |
98 |
SAVE RRAY |
SAVE RRAY |
99 |
DATA RSUN(1) / 0.441676 / |
DATA RSUN(1) / 0.441676 / |
100 |
DATA RSUN(2) / 0.558324 / |
DATA RSUN(2) / 0.558324 / |