--- trunk/dyn3d/advxp.f90	2014/03/05 14:38:41	81
+++ trunk/dyn3d/advxp.f	2014/09/04 10:40:24	105
@@ -84,7 +84,7 @@
   LOGICAL limit
   INTEGER num(jjp1), lonk, numk
   INTEGER lon, lati, latf, niv
-  INTEGER i, i2, i3, j, jv, l, k, iter
+  INTEGER i, i2, i3, j, jv, l, k
 
   lon = iim
   lati = 2