--- trunk/dyn3d/vlspltqs.f	2014/09/16 14:00:41	108
+++ trunk/Sources/dyn3d/vlspltqs.f	2015/04/29 15:47:56	134
@@ -43,7 +43,7 @@
 
     ! Local
 
-    INTEGER i, ij, l, j, ii
+    INTEGER ij, l
 
     REAL qsat(ip1jmp1, llm)
     REAL zm(ip1jmp1, llm)