--- trunk/phylmd/concvl.f	2014/03/05 14:57:53	82
+++ trunk/phylmd/concvl.f	2014/03/26 17:18:58	91
@@ -30,7 +30,7 @@
     REAL, INTENT (IN):: play(klon, klev)
     REAL, intent(in):: t(klon, klev)
     real q(klon, klev) ! input vapeur d'eau (en kg/kg)
-    real u(klon, klev), v(klon, klev)
+    real, INTENT (IN):: u(klon, klev), v(klon, klev)
     REAL, INTENT (IN):: tra(klon, klev, ntrac)
     INTEGER, intent(in):: ntra ! number of tracers
     REAL, intent(inout):: sig1(klon, klev), w01(klon, klev)