--- trunk/libf/phylmd/Radlwsw/swr.f	2010/03/03 13:23:49	24
+++ trunk/libf/phylmd/Radlwsw/swr.f	2013/07/08 18:12:18	71
@@ -39,53 +39,53 @@
 C* ARGUMENTS:
 C
       INTEGER KNU
-      REAL*8 PALBD(KDLON,2)
-      REAL*8 PCG(KDLON,2,KFLEV)
-      REAL*8 PCLD(KDLON,KFLEV)
-      REAL*8 PDSIG(KDLON,KFLEV)
-      REAL*8 POMEGA(KDLON,2,KFLEV)
-      REAL*8 PRAYL(KDLON)
-      REAL*8 PSEC(KDLON)
-      REAL*8 PTAU(KDLON,2,KFLEV)
-C
-      REAL*8 PRAY1(KDLON,KFLEV+1)
-      REAL*8 PRAY2(KDLON,KFLEV+1)
-      REAL*8 PREFZ(KDLON,2,KFLEV+1)
-      REAL*8 PRJ(KDLON,6,KFLEV+1)
-      REAL*8 PRK(KDLON,6,KFLEV+1)
-      REAL*8 PRMUE(KDLON,KFLEV+1)
-      REAL*8 PCGAZ(KDLON,KFLEV)
-      REAL*8 PPIZAZ(KDLON,KFLEV)
-      REAL*8 PTAUAZ(KDLON,KFLEV)
-      REAL*8 PTRA1(KDLON,KFLEV+1)
-      REAL*8 PTRA2(KDLON,KFLEV+1)
+      DOUBLE PRECISION PALBD(KDLON,2)
+      DOUBLE PRECISION PCG(KDLON,2,KFLEV)
+      DOUBLE PRECISION PCLD(KDLON,KFLEV)
+      DOUBLE PRECISION PDSIG(KDLON,KFLEV)
+      DOUBLE PRECISION POMEGA(KDLON,2,KFLEV)
+      DOUBLE PRECISION PRAYL(KDLON)
+      DOUBLE PRECISION PSEC(KDLON)
+      DOUBLE PRECISION PTAU(KDLON,2,KFLEV)
+C
+      DOUBLE PRECISION PRAY1(KDLON,KFLEV+1)
+      DOUBLE PRECISION PRAY2(KDLON,KFLEV+1)
+      DOUBLE PRECISION PREFZ(KDLON,2,KFLEV+1)
+      DOUBLE PRECISION PRJ(KDLON,6,KFLEV+1)
+      DOUBLE PRECISION PRK(KDLON,6,KFLEV+1)
+      DOUBLE PRECISION PRMUE(KDLON,KFLEV+1)
+      DOUBLE PRECISION PCGAZ(KDLON,KFLEV)
+      DOUBLE PRECISION PPIZAZ(KDLON,KFLEV)
+      DOUBLE PRECISION PTAUAZ(KDLON,KFLEV)
+      DOUBLE PRECISION PTRA1(KDLON,KFLEV+1)
+      DOUBLE PRECISION PTRA2(KDLON,KFLEV+1)
 C
 C* LOCAL VARIABLES:
 C
-      REAL*8 ZC1I(KDLON,KFLEV+1)
-      REAL*8 ZCLEQ(KDLON,KFLEV)
-      REAL*8 ZCLEAR(KDLON)
-      REAL*8 ZCLOUD(KDLON)
-      REAL*8 ZGG(KDLON)
-      REAL*8 ZREF(KDLON)
-      REAL*8 ZRE1(KDLON)
-      REAL*8 ZRE2(KDLON)
-      REAL*8 ZRMUZ(KDLON)
-      REAL*8 ZRNEB(KDLON)
-      REAL*8 ZR21(KDLON)
-      REAL*8 ZR22(KDLON)
-      REAL*8 ZR23(KDLON)
-      REAL*8 ZSS1(KDLON)
-      REAL*8 ZTO1(KDLON)
-      REAL*8 ZTR(KDLON,2,KFLEV+1)
-      REAL*8 ZTR1(KDLON)
-      REAL*8 ZTR2(KDLON)
-      REAL*8 ZW(KDLON)
+      DOUBLE PRECISION ZC1I(KDLON,KFLEV+1)
+      DOUBLE PRECISION ZCLEQ(KDLON,KFLEV)
+      DOUBLE PRECISION ZCLEAR(KDLON)
+      DOUBLE PRECISION ZCLOUD(KDLON)
+      DOUBLE PRECISION ZGG(KDLON)
+      DOUBLE PRECISION ZREF(KDLON)
+      DOUBLE PRECISION ZRE1(KDLON)
+      DOUBLE PRECISION ZRE2(KDLON)
+      DOUBLE PRECISION ZRMUZ(KDLON)
+      DOUBLE PRECISION ZRNEB(KDLON)
+      DOUBLE PRECISION ZR21(KDLON)
+      DOUBLE PRECISION ZR22(KDLON)
+      DOUBLE PRECISION ZR23(KDLON)
+      DOUBLE PRECISION ZSS1(KDLON)
+      DOUBLE PRECISION ZTO1(KDLON)
+      DOUBLE PRECISION ZTR(KDLON,2,KFLEV+1)
+      DOUBLE PRECISION ZTR1(KDLON)
+      DOUBLE PRECISION ZTR2(KDLON)
+      DOUBLE PRECISION ZW(KDLON)
 C
       INTEGER jk, jl, ja, jkl, jklp1, jkm1, jaj
-      REAL*8 ZFACOA, ZFACOC, ZCORAE, ZCORCD
-      REAL*8 ZMUE, ZGAP, ZWW, ZTO, ZDEN, ZDEN1
-      REAL*8 ZMU1, ZRE11, ZBMU0, ZBMU1
+      DOUBLE PRECISION ZFACOA, ZFACOC, ZCORAE, ZCORCD
+      DOUBLE PRECISION ZMUE, ZGAP, ZWW, ZTO, ZDEN, ZDEN1
+      DOUBLE PRECISION ZMU1, ZRE11, ZBMU0, ZBMU1
 C
 C     ------------------------------------------------------------------
 C