--- trunk/libf/phylmd/cvltr.f	2010/04/09 10:56:14	33
+++ trunk/libf/phylmd/cvltr.f	2010/06/02 11:01:12	34
@@ -15,7 +15,7 @@
 c
       REAL, intent(in):: pdtime
       REAL, intent(in):: paprs(klon,klev+1) ! pression aux 1/2 couches (bas en haut)
-      REAL x(klon,klev)        ! q de traceur (bas en haut) 
+      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