--- trunk/phylmd/coefkz.f	2014/08/29 13:00:05	103
+++ trunk/phylmd/coefkz.f	2014/09/04 10:40:24	105
@@ -74,7 +74,7 @@
     LOGICAL, PARAMETER:: opt_ec = .FALSE.
     ! formule du Centre Europeen dans l'atmosphere
 
-    INTEGER i, k, kk
+    INTEGER i, k
     REAL zgeop(klon, klev)
     REAL zmgeom(klon)
     REAL ri(klon)