--- trunk/dyn3d/vlspltqs.f	2014/09/16 14:00:41	108
+++ trunk/dyn3d/vlspltqs.f	2014/09/17 10:08:00	109
@@ -43,7 +43,7 @@
 
     ! Local
 
-    INTEGER i, ij, l, j, ii
+    INTEGER ij, l
 
     REAL qsat(ip1jmp1, llm)
     REAL zm(ip1jmp1, llm)