34 |
C |
C |
35 |
INTEGER KNU |
INTEGER KNU |
36 |
c-OB |
c-OB |
37 |
real*8 flag_aer |
double precision flag_aer |
38 |
real*8 tauae(kdlon,kflev,2) |
double precision tauae(kdlon,kflev,2) |
39 |
real*8 pizae(kdlon,kflev,2) |
double precision pizae(kdlon,kflev,2) |
40 |
real*8 cgae(kdlon,kflev,2) |
double precision cgae(kdlon,kflev,2) |
41 |
REAL*8 PAER(KDLON,KFLEV,5) |
DOUBLE PRECISION PAER(KDLON,KFLEV,5) |
42 |
REAL*8 PALBP(KDLON,2) |
DOUBLE PRECISION PALBP(KDLON,2) |
43 |
REAL*8 PDSIG(KDLON,KFLEV) |
DOUBLE PRECISION PDSIG(KDLON,KFLEV) |
44 |
REAL*8 PRAYL(KDLON) |
DOUBLE PRECISION PRAYL(KDLON) |
45 |
REAL*8 PSEC(KDLON) |
DOUBLE PRECISION PSEC(KDLON) |
46 |
C |
C |
47 |
REAL*8 PCGAZ(KDLON,KFLEV) |
DOUBLE PRECISION PCGAZ(KDLON,KFLEV) |
48 |
REAL*8 PPIZAZ(KDLON,KFLEV) |
DOUBLE PRECISION PPIZAZ(KDLON,KFLEV) |
49 |
REAL*8 PRAY1(KDLON,KFLEV+1) |
DOUBLE PRECISION PRAY1(KDLON,KFLEV+1) |
50 |
REAL*8 PRAY2(KDLON,KFLEV+1) |
DOUBLE PRECISION PRAY2(KDLON,KFLEV+1) |
51 |
REAL*8 PREFZ(KDLON,2,KFLEV+1) |
DOUBLE PRECISION PREFZ(KDLON,2,KFLEV+1) |
52 |
REAL*8 PRJ(KDLON,6,KFLEV+1) |
DOUBLE PRECISION PRJ(KDLON,6,KFLEV+1) |
53 |
REAL*8 PRK(KDLON,6,KFLEV+1) |
DOUBLE PRECISION PRK(KDLON,6,KFLEV+1) |
54 |
REAL*8 PRMU0(KDLON,KFLEV+1) |
DOUBLE PRECISION PRMU0(KDLON,KFLEV+1) |
55 |
REAL*8 PTAUAZ(KDLON,KFLEV) |
DOUBLE PRECISION PTAUAZ(KDLON,KFLEV) |
56 |
REAL*8 PTRA1(KDLON,KFLEV+1) |
DOUBLE PRECISION PTRA1(KDLON,KFLEV+1) |
57 |
REAL*8 PTRA2(KDLON,KFLEV+1) |
DOUBLE PRECISION PTRA2(KDLON,KFLEV+1) |
58 |
C |
C |
59 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
60 |
C |
C |
61 |
REAL*8 ZC0I(KDLON,KFLEV+1) |
DOUBLE PRECISION ZC0I(KDLON,KFLEV+1) |
62 |
REAL*8 ZCLE0(KDLON,KFLEV) |
DOUBLE PRECISION ZCLE0(KDLON,KFLEV) |
63 |
REAL*8 ZCLEAR(KDLON) |
DOUBLE PRECISION ZCLEAR(KDLON) |
64 |
REAL*8 ZR21(KDLON) |
DOUBLE PRECISION ZR21(KDLON) |
65 |
REAL*8 ZR23(KDLON) |
DOUBLE PRECISION ZR23(KDLON) |
66 |
REAL*8 ZSS0(KDLON) |
DOUBLE PRECISION ZSS0(KDLON) |
67 |
REAL*8 ZSCAT(KDLON) |
DOUBLE PRECISION ZSCAT(KDLON) |
68 |
REAL*8 ZTR(KDLON,2,KFLEV+1) |
DOUBLE PRECISION ZTR(KDLON,2,KFLEV+1) |
69 |
C |
C |
70 |
INTEGER jl, jk, ja, jae, jkl, jklp1, jaj, jkm1, in |
INTEGER jl, jk, ja, jae, jkl, jklp1, jaj, jkm1, in |
71 |
REAL*8 ZTRAY, ZGAR, ZRATIO, ZFF, ZFACOA, ZCORAE |
DOUBLE PRECISION ZTRAY, ZGAR, ZRATIO, ZFF, ZFACOA, ZCORAE |
72 |
REAL*8 ZMUE, ZGAP, ZWW, ZTO, ZDEN, ZMU1, ZDEN1 |
DOUBLE PRECISION ZMUE, ZGAP, ZWW, ZTO, ZDEN, ZMU1, ZDEN1 |
73 |
REAL*8 ZBMU0, ZBMU1, ZRE11 |
DOUBLE PRECISION ZBMU0, ZBMU1, ZRE11 |
74 |
C |
C |
75 |
C* Prescribed Data for Aerosols: |
C* Prescribed Data for Aerosols: |
76 |
C |
C |
77 |
REAL*8 TAUA(2,5), RPIZA(2,5), RCGA(2,5) |
DOUBLE PRECISION TAUA(2,5), RPIZA(2,5), RCGA(2,5) |
78 |
SAVE TAUA, RPIZA, RCGA |
SAVE TAUA, RPIZA, RCGA |
79 |
DATA ((TAUA(IN,JA),JA=1,5),IN=1,2) / |
DATA ((TAUA(IN,JA),JA=1,5),IN=1,2) / |
80 |
S .730719, .912819, .725059, .745405, .682188 , |
S .730719, .912819, .725059, .745405, .682188 , |