--- trunk/libf/phylmd/nflxtr.f90	2012/08/01 14:13:57	63
+++ trunk/libf/phylmd/nflxtr.f90	2013/07/23 13:00:07	72
@@ -31,7 +31,7 @@
   REAL, intent(in):: pmfu(klon,klev) 
   !     flux de masse dans le panache montant 
 
-  REAL pmfd(klon,klev)  ! flux de masse dans le panache descendant
+  REAL, intent(in):: pmfd(klon,klev)  ! flux de masse dans le panache descendant
   REAL pen_u(klon,klev) ! flux entraine dans le panache montant
   REAL pde_u(klon,klev) ! flux detraine dans le panache montant
   REAL pen_d(klon,klev) ! flux entraine dans le panache descendant