--- trunk/phylmd/coefkz.f	2014/08/29 13:00:05	103
+++ trunk/Sources/phylmd/coefkz.f	2015/04/29 15:47:56	134
@@ -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)