--- trunk/phylmd/Radlwsw/lwvb.f90	2014/03/05 14:38:41	81
+++ trunk/Sources/phylmd/Radlwsw/lwvb.f	2016/03/11 18:47:26	178
@@ -74,14 +74,13 @@
   DOUBLE PRECISION zfu(kdlon)
   DOUBLE PRECISION ztt(kdlon, ntra)
   DOUBLE PRECISION ztt1(kdlon, ntra)
-  DOUBLE PRECISION ztt2(kdlon, ntra)
   DOUBLE PRECISION zuu(kdlon, nua)
   DOUBLE PRECISION zcnsol(kdlon)
   DOUBLE PRECISION zcntop(kdlon)
 
   INTEGER jk, jl, ja
   INTEGER jstra, jstru
-  INTEGER ind1, ind2, ind3, ind4, in, jlim
+  INTEGER in, jlim
   DOUBLE PRECISION zctstr
   ! -----------------------------------------------------------------------
 
@@ -98,7 +97,6 @@
     DO jl = 1, kdlon
       ztt(jl, ja) = 1.0
       ztt1(jl, ja) = 1.0
-      ztt2(jl, ja) = 1.0
     END DO
   END DO
 
@@ -113,13 +111,6 @@
   ! *         2.      VERTICAL INTEGRATION
   ! --------------------
 
-
-  ind1 = 0
-  ind3 = 0
-  ind4 = 1
-  ind2 = 1
-
-
   ! *         2.3     EXCHANGE WITH TOP OF THE ATMOSPHERE
   ! -----------------------------------