--- trunk/Sources/dyn3d/dteta1.f	2016/02/24 18:44:07	177
+++ trunk/Sources/dyn3d/dteta1.f	2016/03/11 18:47:26	178
@@ -13,7 +13,7 @@
     ! potentielle.
 
     USE dimens_m, ONLY: iim, jjm, llm
-    USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1, jjp1
+    USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1
     USE filtreg_scal_m, ONLY: filtreg_scal
 
     REAL, intent(in):: teta(ip1jmp1, llm)