--- trunk/libf/phylmd/conema3.f	2008/07/21 16:05:07	12
+++ trunk/libf/phylmd/conema3.f	2008/08/05 13:31:32	17
@@ -72,7 +72,8 @@
       REAL, intent(in):: paprs(klon,klev+1)
       real, intent(in):: pplay(klon,klev)
       REAL t(klon,klev), q(klon,klev), d_t(klon,klev), d_q(klon,klev)
-      REAL u(klon,klev), v(klon,klev), tra(klon,klev,ntra)
+      REAL u(klon,klev), v(klon,klev)
+      real, intent(in):: tra(klon,klev,ntra)
       REAL d_u(klon,klev), d_v(klon,klev), d_tra(klon,klev,ntra)
       REAL work1(klon,klev), work2(klon,klev)
       REAL upwd(klon,klev), dnwd(klon,klev), dnwdbis(klon,klev)