--- trunk/Sources/phylmd/diagcld2.f	2016/09/01 10:30:53	207
+++ trunk/phylmd/diagcld2.f	2018/02/05 10:39:38	254
@@ -9,7 +9,7 @@
     USE dimphy, ONLY : klev, klon
     USE suphec_m, ONLY : rcpd, rd, retv, rtt
     USE yoethf_m, ONLY : r2es
-    USE fcttre, ONLY : foeew, qsatl, qsats
+    USE fcttre, ONLY : foeew
 
     ! Arguments d'entree:
     REAL, intent(in):: paprs(klon, klev+1) ! pression (Pa) a inter-couche