--- trunk/libf/phylmd/Radlwsw/lwbv.f	2011/01/06 17:52:19	38
+++ trunk/libf/phylmd/Radlwsw/lwbv.f	2013/07/08 18:12:18	71
@@ -42,34 +42,34 @@
 C* ARGUMENTS:
       INTEGER KLIM
 C
-      REAL*8 PDP(KDLON,KFLEV)
-      REAL*8 PDT0(KDLON)
-      REAL*8 PEMIS(KDLON)
-      REAL*8 PPMB(KDLON,KFLEV+1)
-      REAL*8 PTL(KDLON,KFLEV+1)
-      REAL*8 PTAVE(KDLON,KFLEV)
+      DOUBLE PRECISION PDP(KDLON,KFLEV)
+      DOUBLE PRECISION PDT0(KDLON)
+      DOUBLE PRECISION PEMIS(KDLON)
+      DOUBLE PRECISION PPMB(KDLON,KFLEV+1)
+      DOUBLE PRECISION PTL(KDLON,KFLEV+1)
+      DOUBLE PRECISION PTAVE(KDLON,KFLEV)
 C
-      REAL*8 PFLUC(KDLON,2,KFLEV+1)
+      DOUBLE PRECISION PFLUC(KDLON,2,KFLEV+1)
 C     
-      REAL*8 PABCU(KDLON,NUA,3*KFLEV+1)
-      REAL*8 PBINT(KDLON,KFLEV+1)
-      REAL*8 PBSUI(KDLON)
-      REAL*8 PCTS(KDLON,KFLEV)
-      REAL*8 PCNTRB(KDLON,KFLEV+1,KFLEV+1)
+      DOUBLE PRECISION PABCU(KDLON,NUA,3*KFLEV+1)
+      DOUBLE PRECISION PBINT(KDLON,KFLEV+1)
+      DOUBLE PRECISION PBSUI(KDLON)
+      DOUBLE PRECISION PCTS(KDLON,KFLEV)
+      DOUBLE PRECISION PCNTRB(KDLON,KFLEV+1,KFLEV+1)
 C
 C-------------------------------------------------------------------------
 C
 C* LOCAL VARIABLES:
-      REAL*8 ZB(KDLON,Ninter,KFLEV+1)
-      REAL*8 ZBSUR(KDLON,Ninter)
-      REAL*8 ZBTOP(KDLON,Ninter)
-      REAL*8 ZDBSL(KDLON,Ninter,KFLEV*2)
-      REAL*8 ZGA(KDLON,8,2,KFLEV)
-      REAL*8 ZGB(KDLON,8,2,KFLEV)
-      REAL*8 ZGASUR(KDLON,8,2)
-      REAL*8 ZGBSUR(KDLON,8,2)
-      REAL*8 ZGATOP(KDLON,8,2)
-      REAL*8 ZGBTOP(KDLON,8,2)
+      DOUBLE PRECISION ZB(KDLON,Ninter,KFLEV+1)
+      DOUBLE PRECISION ZBSUR(KDLON,Ninter)
+      DOUBLE PRECISION ZBTOP(KDLON,Ninter)
+      DOUBLE PRECISION ZDBSL(KDLON,Ninter,KFLEV*2)
+      DOUBLE PRECISION ZGA(KDLON,8,2,KFLEV)
+      DOUBLE PRECISION ZGB(KDLON,8,2,KFLEV)
+      DOUBLE PRECISION ZGASUR(KDLON,8,2)
+      DOUBLE PRECISION ZGBSUR(KDLON,8,2)
+      DOUBLE PRECISION ZGATOP(KDLON,8,2)
+      DOUBLE PRECISION ZGBTOP(KDLON,8,2)
 C
       INTEGER nuaer, ntraer
 C     ------------------------------------------------------------------