--- trunk/Sources/dyn3d/Vlsplt/vlsplt.f	2015/07/20 16:01:49	157
+++ trunk/Sources/dyn3d/Vlsplt/vlsplt.f	2016/03/11 18:47:26	178
@@ -13,7 +13,7 @@
     ! Sch\'ema d'advection "pseudo-amont".
 
     USE dimens_m, ONLY: iim, llm
-    USE paramet_m, ONLY: iip1, iip2, ijp1llm, ip1jm, ip1jmp1
+    USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1
     use vlx_m, only: vlx
 
     REAL, intent(inout):: q(ip1jmp1, llm)