14 |
C |
C |
15 |
C* ARGUMENTS: |
C* ARGUMENTS: |
16 |
C |
C |
17 |
REAL*8 PSCT |
DOUBLE PRECISION PSCT |
18 |
cIM ctes ds clesphys.h REAL*8 RCO2 |
cIM ctes ds clesphys.h DOUBLE PRECISION RCO2 |
19 |
REAL*8 PCLDSW(KDLON,KFLEV) |
DOUBLE PRECISION PCLDSW(KDLON,KFLEV) |
20 |
REAL*8 PPMB(KDLON,KFLEV+1) |
DOUBLE PRECISION PPMB(KDLON,KFLEV+1) |
21 |
REAL*8 PPSOL(KDLON) |
DOUBLE PRECISION PPSOL(KDLON) |
22 |
REAL*8 PRMU0(KDLON) |
DOUBLE PRECISION PRMU0(KDLON) |
23 |
REAL*8 PFRAC(KDLON) |
DOUBLE PRECISION PFRAC(KDLON) |
24 |
REAL*8 PTAVE(KDLON,KFLEV) |
DOUBLE PRECISION PTAVE(KDLON,KFLEV) |
25 |
REAL*8 PWV(KDLON,KFLEV) |
DOUBLE PRECISION PWV(KDLON,KFLEV) |
26 |
C |
C |
27 |
REAL*8 PAKI(KDLON,2) |
DOUBLE PRECISION PAKI(KDLON,2) |
28 |
REAL*8 PCLD(KDLON,KFLEV) |
DOUBLE PRECISION PCLD(KDLON,KFLEV) |
29 |
REAL*8 PCLEAR(KDLON) |
DOUBLE PRECISION PCLEAR(KDLON) |
30 |
REAL*8 PDSIG(KDLON,KFLEV) |
DOUBLE PRECISION PDSIG(KDLON,KFLEV) |
31 |
REAL*8 PFACT(KDLON) |
DOUBLE PRECISION PFACT(KDLON) |
32 |
REAL*8 PRMU(KDLON) |
DOUBLE PRECISION PRMU(KDLON) |
33 |
REAL*8 PSEC(KDLON) |
DOUBLE PRECISION PSEC(KDLON) |
34 |
REAL*8 PUD(KDLON,5,KFLEV+1) |
DOUBLE PRECISION PUD(KDLON,5,KFLEV+1) |
35 |
C |
C |
36 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
37 |
C |
C |
38 |
INTEGER IIND(2) |
INTEGER IIND(2) |
39 |
REAL*8 ZC1J(KDLON,KFLEV+1) |
DOUBLE PRECISION ZC1J(KDLON,KFLEV+1) |
40 |
REAL*8 ZCLEAR(KDLON) |
DOUBLE PRECISION ZCLEAR(KDLON) |
41 |
REAL*8 ZCLOUD(KDLON) |
DOUBLE PRECISION ZCLOUD(KDLON) |
42 |
REAL*8 ZN175(KDLON) |
DOUBLE PRECISION ZN175(KDLON) |
43 |
REAL*8 ZN190(KDLON) |
DOUBLE PRECISION ZN190(KDLON) |
44 |
REAL*8 ZO175(KDLON) |
DOUBLE PRECISION ZO175(KDLON) |
45 |
REAL*8 ZO190(KDLON) |
DOUBLE PRECISION ZO190(KDLON) |
46 |
REAL*8 ZSIGN(KDLON) |
DOUBLE PRECISION ZSIGN(KDLON) |
47 |
REAL*8 ZR(KDLON,2) |
DOUBLE PRECISION ZR(KDLON,2) |
48 |
REAL*8 ZSIGO(KDLON) |
DOUBLE PRECISION ZSIGO(KDLON) |
49 |
REAL*8 ZUD(KDLON,2) |
DOUBLE PRECISION ZUD(KDLON,2) |
50 |
REAL*8 ZRTH, ZRTU, ZWH2O, ZDSCO2, ZDSH2O, ZFPPW |
DOUBLE PRECISION ZRTH, ZRTU, ZWH2O, ZDSCO2, ZDSH2O, ZFPPW |
51 |
INTEGER jl, jk, jkp1, jkl, jklp1, ja |
INTEGER jl, jk, jkp1, jkl, jklp1, ja |
52 |
C |
C |
53 |
C* Prescribed Data: |
C* Prescribed Data: |
54 |
c |
c |
55 |
REAL*8 ZPDH2O,ZPDUMG |
DOUBLE PRECISION ZPDH2O,ZPDUMG |
56 |
SAVE ZPDH2O,ZPDUMG |
SAVE ZPDH2O,ZPDUMG |
57 |
REAL*8 ZPRH2O,ZPRUMG |
DOUBLE PRECISION ZPRH2O,ZPRUMG |
58 |
SAVE ZPRH2O,ZPRUMG |
SAVE ZPRH2O,ZPRUMG |
59 |
REAL*8 RTDH2O,RTDUMG |
DOUBLE PRECISION RTDH2O,RTDUMG |
60 |
SAVE RTDH2O,RTDUMG |
SAVE RTDH2O,RTDUMG |
61 |
REAL*8 RTH2O ,RTUMG |
DOUBLE PRECISION RTH2O ,RTUMG |
62 |
SAVE RTH2O ,RTUMG |
SAVE RTH2O ,RTUMG |
63 |
DATA ZPDH2O,ZPDUMG / 0.8 , 0.75 / |
DATA ZPDH2O,ZPDUMG / 0.8 , 0.75 / |
64 |
DATA ZPRH2O,ZPRUMG / 30000., 30000. / |
DATA ZPRH2O,ZPRUMG / 30000., 30000. / |