--- trunk/libf/phylmd/nflxtr.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/nflxtr.f	2008/03/31 12:24:17	7
@@ -25,7 +25,7 @@
 c
       include "YOECUMF.h" 
 c
-      REAL pdtime
+      REAL, intent(in):: pdtime
 c--les flux sont definis au 1/2 niveaux
 c--pmfu(klev+1) et pmfd(klev+1) sont implicitement nuls
       REAL pmfu(klon,klev)  ! flux de masse dans le panache montant