--- trunk/libf/phylmd/phystokenc.f90	2012/07/26 14:37:37	62
+++ trunk/phylmd/phystokenc.f90	2013/11/15 18:45:49	76
@@ -31,7 +31,10 @@
     !   convection:                                                         
 
     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