| 48 |
C |
C |
| 49 |
INTEGER KNU |
INTEGER KNU |
| 50 |
c-OB |
c-OB |
| 51 |
real*8 flag_aer |
double precision flag_aer |
| 52 |
real*8 tauae(kdlon,kflev,2) |
double precision tauae(kdlon,kflev,2) |
| 53 |
real*8 pizae(kdlon,kflev,2) |
double precision pizae(kdlon,kflev,2) |
| 54 |
real*8 cgae(kdlon,kflev,2) |
double precision cgae(kdlon,kflev,2) |
| 55 |
REAL*8 PAER(KDLON,KFLEV,5) |
DOUBLE PRECISION PAER(KDLON,KFLEV,5) |
| 56 |
REAL*8 PAKI(KDLON,2) |
DOUBLE PRECISION PAKI(KDLON,2) |
| 57 |
REAL*8 PALBD(KDLON,2) |
DOUBLE PRECISION PALBD(KDLON,2) |
| 58 |
REAL*8 PALBP(KDLON,2) |
DOUBLE PRECISION PALBP(KDLON,2) |
| 59 |
REAL*8 PCG(KDLON,2,KFLEV) |
DOUBLE PRECISION PCG(KDLON,2,KFLEV) |
| 60 |
REAL*8 PCLD(KDLON,KFLEV) |
DOUBLE PRECISION PCLD(KDLON,KFLEV) |
| 61 |
REAL*8 PCLDSW(KDLON,KFLEV) |
DOUBLE PRECISION PCLDSW(KDLON,KFLEV) |
| 62 |
REAL*8 PCLEAR(KDLON) |
DOUBLE PRECISION PCLEAR(KDLON) |
| 63 |
REAL*8 PDSIG(KDLON,KFLEV) |
DOUBLE PRECISION PDSIG(KDLON,KFLEV) |
| 64 |
REAL*8 POMEGA(KDLON,2,KFLEV) |
DOUBLE PRECISION POMEGA(KDLON,2,KFLEV) |
| 65 |
REAL*8 POZ(KDLON,KFLEV) |
DOUBLE PRECISION POZ(KDLON,KFLEV) |
| 66 |
REAL*8 PQS(KDLON,KFLEV) |
DOUBLE PRECISION PQS(KDLON,KFLEV) |
| 67 |
REAL*8 PRMU(KDLON) |
DOUBLE PRECISION PRMU(KDLON) |
| 68 |
REAL*8 PSEC(KDLON) |
DOUBLE PRECISION PSEC(KDLON) |
| 69 |
REAL*8 PTAU(KDLON,2,KFLEV) |
DOUBLE PRECISION PTAU(KDLON,2,KFLEV) |
| 70 |
REAL*8 PUD(KDLON,5,KFLEV+1) |
DOUBLE PRECISION PUD(KDLON,5,KFLEV+1) |
| 71 |
REAL*8 PWV(KDLON,KFLEV) |
DOUBLE PRECISION PWV(KDLON,KFLEV) |
| 72 |
C |
C |
| 73 |
REAL*8 PFDOWN(KDLON,KFLEV+1) |
DOUBLE PRECISION PFDOWN(KDLON,KFLEV+1) |
| 74 |
REAL*8 PFUP(KDLON,KFLEV+1) |
DOUBLE PRECISION PFUP(KDLON,KFLEV+1) |
| 75 |
C |
C |
| 76 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
| 77 |
C |
C |
| 78 |
INTEGER IIND2(2), IIND3(3) |
INTEGER IIND2(2), IIND3(3) |
| 79 |
REAL*8 ZCGAZ(KDLON,KFLEV) |
DOUBLE PRECISION ZCGAZ(KDLON,KFLEV) |
| 80 |
REAL*8 ZFD(KDLON,KFLEV+1) |
DOUBLE PRECISION ZFD(KDLON,KFLEV+1) |
| 81 |
REAL*8 ZFU(KDLON,KFLEV+1) |
DOUBLE PRECISION ZFU(KDLON,KFLEV+1) |
| 82 |
REAL*8 ZG(KDLON) |
DOUBLE PRECISION ZG(KDLON) |
| 83 |
REAL*8 ZGG(KDLON) |
DOUBLE PRECISION ZGG(KDLON) |
| 84 |
REAL*8 ZPIZAZ(KDLON,KFLEV) |
DOUBLE PRECISION ZPIZAZ(KDLON,KFLEV) |
| 85 |
REAL*8 ZRAYL(KDLON) |
DOUBLE PRECISION ZRAYL(KDLON) |
| 86 |
REAL*8 ZRAY1(KDLON,KFLEV+1) |
DOUBLE PRECISION ZRAY1(KDLON,KFLEV+1) |
| 87 |
REAL*8 ZRAY2(KDLON,KFLEV+1) |
DOUBLE PRECISION ZRAY2(KDLON,KFLEV+1) |
| 88 |
REAL*8 ZREF(KDLON) |
DOUBLE PRECISION ZREF(KDLON) |
| 89 |
REAL*8 ZREFZ(KDLON,2,KFLEV+1) |
DOUBLE PRECISION ZREFZ(KDLON,2,KFLEV+1) |
| 90 |
REAL*8 ZRE1(KDLON) |
DOUBLE PRECISION ZRE1(KDLON) |
| 91 |
REAL*8 ZRE2(KDLON) |
DOUBLE PRECISION ZRE2(KDLON) |
| 92 |
REAL*8 ZRJ(KDLON,6,KFLEV+1) |
DOUBLE PRECISION ZRJ(KDLON,6,KFLEV+1) |
| 93 |
REAL*8 ZRJ0(KDLON,6,KFLEV+1) |
DOUBLE PRECISION ZRJ0(KDLON,6,KFLEV+1) |
| 94 |
REAL*8 ZRK(KDLON,6,KFLEV+1) |
DOUBLE PRECISION ZRK(KDLON,6,KFLEV+1) |
| 95 |
REAL*8 ZRK0(KDLON,6,KFLEV+1) |
DOUBLE PRECISION ZRK0(KDLON,6,KFLEV+1) |
| 96 |
REAL*8 ZRL(KDLON,8) |
DOUBLE PRECISION ZRL(KDLON,8) |
| 97 |
REAL*8 ZRMUE(KDLON,KFLEV+1) |
DOUBLE PRECISION ZRMUE(KDLON,KFLEV+1) |
| 98 |
REAL*8 ZRMU0(KDLON,KFLEV+1) |
DOUBLE PRECISION ZRMU0(KDLON,KFLEV+1) |
| 99 |
REAL*8 ZRMUZ(KDLON) |
DOUBLE PRECISION ZRMUZ(KDLON) |
| 100 |
REAL*8 ZRNEB(KDLON) |
DOUBLE PRECISION ZRNEB(KDLON) |
| 101 |
REAL*8 ZRUEF(KDLON,8) |
DOUBLE PRECISION ZRUEF(KDLON,8) |
| 102 |
REAL*8 ZR1(KDLON) |
DOUBLE PRECISION ZR1(KDLON) |
| 103 |
REAL*8 ZR2(KDLON,2) |
DOUBLE PRECISION ZR2(KDLON,2) |
| 104 |
REAL*8 ZR3(KDLON,3) |
DOUBLE PRECISION ZR3(KDLON,3) |
| 105 |
REAL*8 ZR4(KDLON) |
DOUBLE PRECISION ZR4(KDLON) |
| 106 |
REAL*8 ZR21(KDLON) |
DOUBLE PRECISION ZR21(KDLON) |
| 107 |
REAL*8 ZR22(KDLON) |
DOUBLE PRECISION ZR22(KDLON) |
| 108 |
REAL*8 ZS(KDLON) |
DOUBLE PRECISION ZS(KDLON) |
| 109 |
REAL*8 ZTAUAZ(KDLON,KFLEV) |
DOUBLE PRECISION ZTAUAZ(KDLON,KFLEV) |
| 110 |
REAL*8 ZTO1(KDLON) |
DOUBLE PRECISION ZTO1(KDLON) |
| 111 |
REAL*8 ZTR(KDLON,2,KFLEV+1) |
DOUBLE PRECISION ZTR(KDLON,2,KFLEV+1) |
| 112 |
REAL*8 ZTRA1(KDLON,KFLEV+1) |
DOUBLE PRECISION ZTRA1(KDLON,KFLEV+1) |
| 113 |
REAL*8 ZTRA2(KDLON,KFLEV+1) |
DOUBLE PRECISION ZTRA2(KDLON,KFLEV+1) |
| 114 |
REAL*8 ZTR1(KDLON) |
DOUBLE PRECISION ZTR1(KDLON) |
| 115 |
REAL*8 ZTR2(KDLON) |
DOUBLE PRECISION ZTR2(KDLON) |
| 116 |
REAL*8 ZW(KDLON) |
DOUBLE PRECISION ZW(KDLON) |
| 117 |
REAL*8 ZW1(KDLON) |
DOUBLE PRECISION ZW1(KDLON) |
| 118 |
REAL*8 ZW2(KDLON,2) |
DOUBLE PRECISION ZW2(KDLON,2) |
| 119 |
REAL*8 ZW3(KDLON,3) |
DOUBLE PRECISION ZW3(KDLON,3) |
| 120 |
REAL*8 ZW4(KDLON) |
DOUBLE PRECISION ZW4(KDLON) |
| 121 |
REAL*8 ZW5(KDLON) |
DOUBLE PRECISION ZW5(KDLON) |
| 122 |
C |
C |
| 123 |
INTEGER jl, jk, k, jaj, ikm1, ikl, jn, jabs, jkm1 |
INTEGER jl, jk, k, jaj, ikm1, ikl, jn, jabs, jkm1 |
| 124 |
INTEGER jref, jkl, jklp1, jajp, jkki, jkkp4, jn2j, iabs |
INTEGER jref, jkl, jklp1, jajp, jkki, jkkp4, jn2j, iabs |
| 125 |
REAL*8 ZRMUM1, ZWH2O, ZCNEB, ZAA, ZBB, ZRKI, ZRE11 |
DOUBLE PRECISION ZRMUM1, ZWH2O, ZCNEB, ZAA, ZBB, ZRKI, ZRE11 |
| 126 |
C |
C |
| 127 |
C* Prescribed Data: |
C* Prescribed Data: |
| 128 |
C |
C |
| 129 |
REAL*8 RSUN(2) |
DOUBLE PRECISION RSUN(2) |
| 130 |
SAVE RSUN |
SAVE RSUN |
| 131 |
REAL*8 RRAY(2,6) |
DOUBLE PRECISION RRAY(2,6) |
| 132 |
SAVE RRAY |
SAVE RRAY |
| 133 |
DATA RSUN(1) / 0.441676 / |
DATA RSUN(1) / 0.441676 / |
| 134 |
DATA RSUN(2) / 0.558324 / |
DATA RSUN(2) / 0.558324 / |
Parent Directory
| 
Revision Log
| 
Patch