--- trunk/Sources/phylmd/clvent.f	2016/08/30 12:52:46	206
+++ trunk/Sources/phylmd/clvent.f	2017/11/02 15:47:03	227
@@ -17,16 +17,15 @@
     INTEGER knon
     REAL, intent(in):: dtime ! intervalle de temps (en s)
 
-    REAL u1lay(klon), v1lay(klon)
-    ! u1lay----input-R- vent u de la premiere couche (m/s)
-    ! v1lay----input-R- vent v de la premiere couche (m/s)
+    REAL, intent(in):: u1lay(:), v1lay(:) ! (knon)
+    ! vent de la premiere couche (m/s)
 
     REAL, intent(in):: coef(:, :) ! (knon, klev)
     ! Coefficient d'echange (m**2/s) multiplié par le cisaillement du
     ! 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)