--- trunk/libf/phylmd/Radlwsw/swclr.f	2010/03/03 13:23:49	24
+++ trunk/libf/phylmd/Radlwsw/swclr.f	2013/07/08 18:12:18	71
@@ -34,47 +34,47 @@
 C
       INTEGER KNU
 c-OB
-      real*8 flag_aer
-      real*8 tauae(kdlon,kflev,2)
-      real*8 pizae(kdlon,kflev,2)
-      real*8 cgae(kdlon,kflev,2)
-      REAL*8 PAER(KDLON,KFLEV,5)
-      REAL*8 PALBP(KDLON,2)
-      REAL*8 PDSIG(KDLON,KFLEV)
-      REAL*8 PRAYL(KDLON)
-      REAL*8 PSEC(KDLON)
-C
-      REAL*8 PCGAZ(KDLON,KFLEV)     
-      REAL*8 PPIZAZ(KDLON,KFLEV)
-      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 PRMU0(KDLON,KFLEV+1)
-      REAL*8 PTAUAZ(KDLON,KFLEV)
-      REAL*8 PTRA1(KDLON,KFLEV+1)
-      REAL*8 PTRA2(KDLON,KFLEV+1)
+      double precision flag_aer
+      double precision tauae(kdlon,kflev,2)
+      double precision pizae(kdlon,kflev,2)
+      double precision cgae(kdlon,kflev,2)
+      DOUBLE PRECISION PAER(KDLON,KFLEV,5)
+      DOUBLE PRECISION PALBP(KDLON,2)
+      DOUBLE PRECISION PDSIG(KDLON,KFLEV)
+      DOUBLE PRECISION PRAYL(KDLON)
+      DOUBLE PRECISION PSEC(KDLON)
+C
+      DOUBLE PRECISION PCGAZ(KDLON,KFLEV)     
+      DOUBLE PRECISION PPIZAZ(KDLON,KFLEV)
+      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 PRMU0(KDLON,KFLEV+1)
+      DOUBLE PRECISION PTAUAZ(KDLON,KFLEV)
+      DOUBLE PRECISION PTRA1(KDLON,KFLEV+1)
+      DOUBLE PRECISION PTRA2(KDLON,KFLEV+1)
 C
 C* LOCAL VARIABLES:
 C
-      REAL*8 ZC0I(KDLON,KFLEV+1)       
-      REAL*8 ZCLE0(KDLON,KFLEV)
-      REAL*8 ZCLEAR(KDLON)
-      REAL*8 ZR21(KDLON)
-      REAL*8 ZR23(KDLON)
-      REAL*8 ZSS0(KDLON)
-      REAL*8 ZSCAT(KDLON)
-      REAL*8 ZTR(KDLON,2,KFLEV+1)
+      DOUBLE PRECISION ZC0I(KDLON,KFLEV+1)       
+      DOUBLE PRECISION ZCLE0(KDLON,KFLEV)
+      DOUBLE PRECISION ZCLEAR(KDLON)
+      DOUBLE PRECISION ZR21(KDLON)
+      DOUBLE PRECISION ZR23(KDLON)
+      DOUBLE PRECISION ZSS0(KDLON)
+      DOUBLE PRECISION ZSCAT(KDLON)
+      DOUBLE PRECISION ZTR(KDLON,2,KFLEV+1)
 C
       INTEGER jl, jk, ja, jae, jkl, jklp1, jaj, jkm1, in
-      REAL*8 ZTRAY, ZGAR, ZRATIO, ZFF, ZFACOA, ZCORAE
-      REAL*8 ZMUE, ZGAP, ZWW, ZTO, ZDEN, ZMU1, ZDEN1
-      REAL*8 ZBMU0, ZBMU1, ZRE11
+      DOUBLE PRECISION ZTRAY, ZGAR, ZRATIO, ZFF, ZFACOA, ZCORAE
+      DOUBLE PRECISION ZMUE, ZGAP, ZWW, ZTO, ZDEN, ZMU1, ZDEN1
+      DOUBLE PRECISION ZBMU0, ZBMU1, ZRE11
 C
 C* Prescribed Data for Aerosols:
 C
-      REAL*8 TAUA(2,5), RPIZA(2,5), RCGA(2,5)
+      DOUBLE PRECISION TAUA(2,5), RPIZA(2,5), RCGA(2,5)
       SAVE TAUA, RPIZA, RCGA
       DATA ((TAUA(IN,JA),JA=1,5),IN=1,2) /
      S .730719, .912819, .725059, .745405, .682188 ,