--- trunk/libf/phylmd/cvltr.f	2011/01/06 17:52:19	38
+++ trunk/libf/phylmd/cvltr.f	2012/07/26 14:37:37	62
@@ -18,8 +18,8 @@
       REAL, intent(in):: x(klon,klev)        ! q de traceur (bas en haut) 
       REAL dx(klon,klev)     ! tendance de traceur  (bas en haut)
       real da(klon,klev),phi(klon,klev,klev),mp(klon,klev)
-      REAL upd(klon,klev)      ! saturated updraft mass flux
-      REAL dnd(klon,klev)      ! saturated downdraft mass flux
+      REAL, intent(in):: upd(klon,klev)      ! saturated updraft mass flux
+      REAL, intent(in):: dnd(klon,klev)      ! saturated downdraft mass flux
 c
 c--variables locales      
       real zed(klon,klev),zmd(klon,klev,klev)