--- trunk/libf/phylmd/concvl.f90	2011/09/20 09:14:34	51
+++ trunk/libf/phylmd/concvl.f90	2011/09/23 12:28:01	52
@@ -20,6 +20,7 @@
     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)