--- trunk/libf/dyn3d/advn.f	2008/07/21 16:05:07	12
+++ trunk/libf/dyn3d/advn.f	2010/04/01 14:59:19	31
@@ -29,7 +29,7 @@
 c   ----------
       integer mode
       real masse(ip1jmp1,llm)
-      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
+      REAL, intent(in):: pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
       REAL q(ip1jmp1,llm)
       REAL w(ip1jmp1,llm),pdt
 c