--- trunk/Sources/phylmd/clvent.f	2017/10/16 12:35:41	225
+++ trunk/Sources/phylmd/clvent.f	2017/11/02 15:47:03	227
@@ -25,7 +25,7 @@
     ! vent (dV/dz). La première valeur indique la valeur de Cdrag (sans
     ! unité).
 
-    REAL t(klon, klev), ven(klon, klev)
+    REAL, intent(in):: t(klon, klev), ven(klon, klev)
     ! t--------input-R- temperature (K)
     ! ven------input-R- vitesse horizontale (m/s)
     REAL paprs(klon, klev+1), pplay(klon, klev), delp(klon, klev)