--- trunk/dyn3d/pentes_ini.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/pentes_ini.f	2014/09/04 10:40:24	105
@@ -53,7 +53,7 @@
   REAL dyn1, dyn2, dys1, dys2
   REAL qpn, qps, dqzpn, dqzps
   REAL smn, sms, s0n, s0s, sxn(iip1), sxs(iip1)
-  REAL qmin, zq, pente_max
+  REAL qmin, pente_max
 
   REAL ssum
   INTEGER ismax, ismin, lati, latf