/[lmdze]/trunk/libf/phylmd/Radlwsw/swu.f
ViewVC logotype

Diff of /trunk/libf/phylmd/Radlwsw/swu.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 70 by guez, Thu Jan 6 17:52:19 2011 UTC revision 71 by guez, Mon Jul 8 18:12:18 2013 UTC
# Line 14  cIM ctes ds clesphys.h   SUBROUTINE SWU Line 14  cIM ctes ds clesphys.h   SUBROUTINE SWU
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. /
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21