--- trunk/Sources/phylmd/Interface_surf/calcul_fluxs.f	2016/09/01 10:30:53	207
+++ trunk/phylmd/Interface_surf/calcul_fluxs.f	2018/02/05 10:39:38	254
@@ -12,9 +12,9 @@
     ! Cette routine calcule les flux en h et q à l'interface et une
     ! température de surface.
 
-    ! L. Fairhead April 2000
+    ! L. Fairhead, April 2000
 
-    USE fcttre, ONLY: dqsatl, dqsats, foede, foeew, qsatl, qsats
+    USE fcttre, ONLY: foede, foeew
     use nr_util, only: assert_eq
     USE suphec_m, ONLY: rcpd, rd, retv, rlstt, rlvtt, rtt
     USE yoethf_m, ONLY: r2es, r5ies, r5les, rvtmp2