--- trunk/libf/phylmd/coefkz.f90	2012/07/26 14:37:37	62
+++ trunk/libf/phylmd/coefkz.f90	2013/07/08 18:12:18	71
@@ -13,7 +13,7 @@
     ! coefficients d'échange turbulent dans l'atmosphère.
 
     USE indicesol, ONLY: is_oce
-    USE dimphy, ONLY: klev, klon, max
+    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