--- trunk/Sources/phylmd/Radlwsw/lwvn.f	2015/07/29 14:32:55	166
+++ trunk/Sources/phylmd/Radlwsw/lwvn.f	2016/03/11 18:47:26	178
@@ -55,8 +55,6 @@
     DOUBLE PRECISION zglayd(kdlon)
     DOUBLE PRECISION zglayu(kdlon)
     DOUBLE PRECISION ztt(kdlon, ntra)
-    DOUBLE PRECISION ztt1(kdlon, ntra)
-    DOUBLE PRECISION ztt2(kdlon, ntra)
     DOUBLE PRECISION zuu(kdlon, nua)
 
     INTEGER jk, jl, ja, im12, ind, inu, ixu, jg
@@ -67,7 +65,7 @@
 
     DOUBLE PRECISION wg1(2)
     SAVE wg1
-    DATA (wg1(jk), jk=1, 2)/1.0, 1.0/
+    DATA (wg1(jk), jk=1, 2)/1d0, 1d0/
     ! -----------------------------------------------------------------------
 
     ! *         1.    INITIALIZATION
@@ -92,8 +90,6 @@
     DO ja = 1, ntra
        DO jl = 1, kdlon
           ztt(jl, ja) = 1.0
-          ztt1(jl, ja) = 1.0
-          ztt2(jl, ja) = 1.0
        END DO
     END DO
 
@@ -186,7 +182,6 @@
           pcntrb(jl, jk+1, jk) = zglayu(jl)
           pcntrb(jl, jk, jk) = 0.0
        END DO
-
     END DO
 
     DO jk = 1, kflev
@@ -199,8 +194,6 @@
        END DO
     END DO
 
-    RETURN
-
   END SUBROUTINE lwvn
 
 end module lwvn_m