| 39 |
C* ARGUMENTS: |
C* ARGUMENTS: |
| 40 |
C |
C |
| 41 |
INTEGER KNU |
INTEGER KNU |
| 42 |
REAL*8 PALBD(KDLON,2) |
DOUBLE PRECISION PALBD(KDLON,2) |
| 43 |
REAL*8 PCG(KDLON,2,KFLEV) |
DOUBLE PRECISION PCG(KDLON,2,KFLEV) |
| 44 |
REAL*8 PCLD(KDLON,KFLEV) |
DOUBLE PRECISION PCLD(KDLON,KFLEV) |
| 45 |
REAL*8 PDSIG(KDLON,KFLEV) |
DOUBLE PRECISION PDSIG(KDLON,KFLEV) |
| 46 |
REAL*8 POMEGA(KDLON,2,KFLEV) |
DOUBLE PRECISION POMEGA(KDLON,2,KFLEV) |
| 47 |
REAL*8 PRAYL(KDLON) |
DOUBLE PRECISION PRAYL(KDLON) |
| 48 |
REAL*8 PSEC(KDLON) |
DOUBLE PRECISION PSEC(KDLON) |
| 49 |
REAL*8 PTAU(KDLON,2,KFLEV) |
DOUBLE PRECISION PTAU(KDLON,2,KFLEV) |
| 50 |
C |
C |
| 51 |
REAL*8 PRAY1(KDLON,KFLEV+1) |
DOUBLE PRECISION PRAY1(KDLON,KFLEV+1) |
| 52 |
REAL*8 PRAY2(KDLON,KFLEV+1) |
DOUBLE PRECISION PRAY2(KDLON,KFLEV+1) |
| 53 |
REAL*8 PREFZ(KDLON,2,KFLEV+1) |
DOUBLE PRECISION PREFZ(KDLON,2,KFLEV+1) |
| 54 |
REAL*8 PRJ(KDLON,6,KFLEV+1) |
DOUBLE PRECISION PRJ(KDLON,6,KFLEV+1) |
| 55 |
REAL*8 PRK(KDLON,6,KFLEV+1) |
DOUBLE PRECISION PRK(KDLON,6,KFLEV+1) |
| 56 |
REAL*8 PRMUE(KDLON,KFLEV+1) |
DOUBLE PRECISION PRMUE(KDLON,KFLEV+1) |
| 57 |
REAL*8 PCGAZ(KDLON,KFLEV) |
DOUBLE PRECISION PCGAZ(KDLON,KFLEV) |
| 58 |
REAL*8 PPIZAZ(KDLON,KFLEV) |
DOUBLE PRECISION PPIZAZ(KDLON,KFLEV) |
| 59 |
REAL*8 PTAUAZ(KDLON,KFLEV) |
DOUBLE PRECISION PTAUAZ(KDLON,KFLEV) |
| 60 |
REAL*8 PTRA1(KDLON,KFLEV+1) |
DOUBLE PRECISION PTRA1(KDLON,KFLEV+1) |
| 61 |
REAL*8 PTRA2(KDLON,KFLEV+1) |
DOUBLE PRECISION PTRA2(KDLON,KFLEV+1) |
| 62 |
C |
C |
| 63 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
| 64 |
C |
C |
| 65 |
REAL*8 ZC1I(KDLON,KFLEV+1) |
DOUBLE PRECISION ZC1I(KDLON,KFLEV+1) |
| 66 |
REAL*8 ZCLEQ(KDLON,KFLEV) |
DOUBLE PRECISION ZCLEQ(KDLON,KFLEV) |
| 67 |
REAL*8 ZCLEAR(KDLON) |
DOUBLE PRECISION ZCLEAR(KDLON) |
| 68 |
REAL*8 ZCLOUD(KDLON) |
DOUBLE PRECISION ZCLOUD(KDLON) |
| 69 |
REAL*8 ZGG(KDLON) |
DOUBLE PRECISION ZGG(KDLON) |
| 70 |
REAL*8 ZREF(KDLON) |
DOUBLE PRECISION ZREF(KDLON) |
| 71 |
REAL*8 ZRE1(KDLON) |
DOUBLE PRECISION ZRE1(KDLON) |
| 72 |
REAL*8 ZRE2(KDLON) |
DOUBLE PRECISION ZRE2(KDLON) |
| 73 |
REAL*8 ZRMUZ(KDLON) |
DOUBLE PRECISION ZRMUZ(KDLON) |
| 74 |
REAL*8 ZRNEB(KDLON) |
DOUBLE PRECISION ZRNEB(KDLON) |
| 75 |
REAL*8 ZR21(KDLON) |
DOUBLE PRECISION ZR21(KDLON) |
| 76 |
REAL*8 ZR22(KDLON) |
DOUBLE PRECISION ZR22(KDLON) |
| 77 |
REAL*8 ZR23(KDLON) |
DOUBLE PRECISION ZR23(KDLON) |
| 78 |
REAL*8 ZSS1(KDLON) |
DOUBLE PRECISION ZSS1(KDLON) |
| 79 |
REAL*8 ZTO1(KDLON) |
DOUBLE PRECISION ZTO1(KDLON) |
| 80 |
REAL*8 ZTR(KDLON,2,KFLEV+1) |
DOUBLE PRECISION ZTR(KDLON,2,KFLEV+1) |
| 81 |
REAL*8 ZTR1(KDLON) |
DOUBLE PRECISION ZTR1(KDLON) |
| 82 |
REAL*8 ZTR2(KDLON) |
DOUBLE PRECISION ZTR2(KDLON) |
| 83 |
REAL*8 ZW(KDLON) |
DOUBLE PRECISION ZW(KDLON) |
| 84 |
C |
C |
| 85 |
INTEGER jk, jl, ja, jkl, jklp1, jkm1, jaj |
INTEGER jk, jl, ja, jkl, jklp1, jkm1, jaj |
| 86 |
REAL*8 ZFACOA, ZFACOC, ZCORAE, ZCORCD |
DOUBLE PRECISION ZFACOA, ZFACOC, ZCORAE, ZCORCD |
| 87 |
REAL*8 ZMUE, ZGAP, ZWW, ZTO, ZDEN, ZDEN1 |
DOUBLE PRECISION ZMUE, ZGAP, ZWW, ZTO, ZDEN, ZDEN1 |
| 88 |
REAL*8 ZMU1, ZRE11, ZBMU0, ZBMU1 |
DOUBLE PRECISION ZMU1, ZRE11, ZBMU0, ZBMU1 |
| 89 |
C |
C |
| 90 |
C ------------------------------------------------------------------ |
C ------------------------------------------------------------------ |
| 91 |
C |
C |
Parent Directory
| 
Revision Log
| 
Patch