--- trunk/libf/phylmd/Radlwsw/swu.f	2013/06/24 15:39:52	70
+++ trunk/libf/phylmd/Radlwsw/swu.f	2013/07/08 18:12:18	71
@@ -14,51 +14,51 @@
 C
 C* ARGUMENTS:
 C
-      REAL*8 PSCT
-cIM ctes ds clesphys.h   REAL*8 RCO2
-      REAL*8 PCLDSW(KDLON,KFLEV)
-      REAL*8 PPMB(KDLON,KFLEV+1)
-      REAL*8 PPSOL(KDLON)
-      REAL*8 PRMU0(KDLON)
-      REAL*8 PFRAC(KDLON)
-      REAL*8 PTAVE(KDLON,KFLEV)
-      REAL*8 PWV(KDLON,KFLEV)
-C
-      REAL*8 PAKI(KDLON,2)
-      REAL*8 PCLD(KDLON,KFLEV)
-      REAL*8 PCLEAR(KDLON)
-      REAL*8 PDSIG(KDLON,KFLEV)
-      REAL*8 PFACT(KDLON)
-      REAL*8 PRMU(KDLON)
-      REAL*8 PSEC(KDLON)
-      REAL*8 PUD(KDLON,5,KFLEV+1)
+      DOUBLE PRECISION PSCT
+cIM ctes ds clesphys.h   DOUBLE PRECISION RCO2
+      DOUBLE PRECISION PCLDSW(KDLON,KFLEV)
+      DOUBLE PRECISION PPMB(KDLON,KFLEV+1)
+      DOUBLE PRECISION PPSOL(KDLON)
+      DOUBLE PRECISION PRMU0(KDLON)
+      DOUBLE PRECISION PFRAC(KDLON)
+      DOUBLE PRECISION PTAVE(KDLON,KFLEV)
+      DOUBLE PRECISION PWV(KDLON,KFLEV)
+C
+      DOUBLE PRECISION PAKI(KDLON,2)
+      DOUBLE PRECISION PCLD(KDLON,KFLEV)
+      DOUBLE PRECISION PCLEAR(KDLON)
+      DOUBLE PRECISION PDSIG(KDLON,KFLEV)
+      DOUBLE PRECISION PFACT(KDLON)
+      DOUBLE PRECISION PRMU(KDLON)
+      DOUBLE PRECISION PSEC(KDLON)
+      DOUBLE PRECISION PUD(KDLON,5,KFLEV+1)
 C
 C* LOCAL VARIABLES:
 C
       INTEGER IIND(2)
-      REAL*8 ZC1J(KDLON,KFLEV+1)
-      REAL*8 ZCLEAR(KDLON)
-      REAL*8 ZCLOUD(KDLON)
-      REAL*8 ZN175(KDLON)
-      REAL*8 ZN190(KDLON)
-      REAL*8 ZO175(KDLON)
-      REAL*8 ZO190(KDLON)
-      REAL*8 ZSIGN(KDLON)
-      REAL*8 ZR(KDLON,2) 
-      REAL*8 ZSIGO(KDLON)
-      REAL*8 ZUD(KDLON,2)
-      REAL*8 ZRTH, ZRTU, ZWH2O, ZDSCO2, ZDSH2O, ZFPPW
+      DOUBLE PRECISION ZC1J(KDLON,KFLEV+1)
+      DOUBLE PRECISION ZCLEAR(KDLON)
+      DOUBLE PRECISION ZCLOUD(KDLON)
+      DOUBLE PRECISION ZN175(KDLON)
+      DOUBLE PRECISION ZN190(KDLON)
+      DOUBLE PRECISION ZO175(KDLON)
+      DOUBLE PRECISION ZO190(KDLON)
+      DOUBLE PRECISION ZSIGN(KDLON)
+      DOUBLE PRECISION ZR(KDLON,2) 
+      DOUBLE PRECISION ZSIGO(KDLON)
+      DOUBLE PRECISION ZUD(KDLON,2)
+      DOUBLE PRECISION ZRTH, ZRTU, ZWH2O, ZDSCO2, ZDSH2O, ZFPPW
       INTEGER jl, jk, jkp1, jkl, jklp1, ja
 C
 C* Prescribed Data:
 c
-      REAL*8 ZPDH2O,ZPDUMG
+      DOUBLE PRECISION ZPDH2O,ZPDUMG
       SAVE ZPDH2O,ZPDUMG
-      REAL*8 ZPRH2O,ZPRUMG
+      DOUBLE PRECISION ZPRH2O,ZPRUMG
       SAVE ZPRH2O,ZPRUMG
-      REAL*8 RTDH2O,RTDUMG
+      DOUBLE PRECISION RTDH2O,RTDUMG
       SAVE RTDH2O,RTDUMG
-      REAL*8 RTH2O ,RTUMG
+      DOUBLE PRECISION RTH2O ,RTUMG
       SAVE RTH2O ,RTUMG
       DATA ZPDH2O,ZPDUMG / 0.8   , 0.75 /
       DATA ZPRH2O,ZPRUMG / 30000., 30000. /