--- trunk/libf/dyn3d/advxp.f	2010/04/01 09:07:28	30
+++ trunk/libf/dyn3d/advxp.f	2010/04/01 14:59:19	31
@@ -23,7 +23,7 @@
 C  definition de la grille du modele
 C
       REAL dtx
-      REAL pbaru ( iip1,jjp1,llm )
+      REAL, intent(in):: pbaru ( iip1,jjp1,llm )
 C
 C  moments: SM  total mass in each grid box
 C           S0  mass of tracer in each grid box