--- trunk/libf/phylmd/clvent.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/clvent.f	2012/01/30 12:54:02	57
@@ -3,8 +3,8 @@
      s                  d_ven,flux_v)
       use dimens_m
       use dimphy
-      use iniprint
-      use YOMCST
+      use conf_gcm_m
+      use SUPHEC_M
       IMPLICIT none
 c======================================================================
 c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
@@ -28,7 +28,7 @@
 c flux_v---output-R- (diagnostic) flux du vent: (kg m/s)/(m**2 s)
 c======================================================================
       INTEGER knon
-      REAL dtime
+      REAL, intent(in):: dtime
       REAL u1lay(klon), v1lay(klon)
       REAL coef(klon,klev)
       REAL t(klon,klev), ven(klon,klev)