--- trunk/libf/phylmd/concvl.f90	2011/07/01 15:00:48	47
+++ trunk/libf/phylmd/concvl.f90	2011/09/23 12:28:01	52
@@ -13,13 +13,14 @@
     ! From phylmd/concvl.F, version 1.3 2005/04/15 12:36:17
     ! Author: Z.X. Li (LMD/CNRS)
     ! date: 1993/08/18
-    ! Objet: schema de convection de Emanuel (1991) interface
+    ! Objet: schéma de convection de Emanuel (1991) interface
 
     USE dimens_m, ONLY : nqmx
     USE dimphy, ONLY : klev, klon
     USE suphec_m, ONLY : retv, rtt
     USE yoethf_m, ONLY : r2es
     USE fcttre, ONLY : foeew
+    use cv_driver_m, only: cv_driver
 
     ! Arguments:
     ! dtime--input-R-pas d'integration (s)
@@ -58,7 +59,8 @@
     REAL, INTENT (IN) :: dtime
     REAL, INTENT (IN) :: paprs(klon, klev+1)
     REAL, INTENT (IN) :: pplay(klon, klev)
-    REAL t(klon, klev), q(klon, klev), u(klon, klev), v(klon, klev)
+    REAL, intent(in):: t(klon, klev)
+    real q(klon, klev), u(klon, klev), v(klon, klev)
     REAL, INTENT (IN):: tra(klon, klev, ntrac)
     INTEGER ntra
     REAL work1(klon, klev), work2(klon, klev)