--- trunk/phylmd/coefkz.f	2014/08/29 13:00:05	103
+++ trunk/Sources/phylmd/coefkz.f	2016/03/11 18:47:26	178
@@ -14,7 +14,6 @@
 
     USE indicesol, ONLY: is_oce
     USE dimphy, ONLY: klev, klon
-    USE conf_gcm_m, ONLY: prt_level
     USE suphec_m, ONLY: rcpd, rd, retv, rg, rkappa, rlstt, rlvtt, rtt
     USE yoethf_m, ONLY: r2es, r5ies, r5les, rvtmp2
     USE fcttre, ONLY: dqsatl, dqsats, foede, foeew, qsatl, qsats, thermcep
@@ -74,7 +73,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)