--- trunk/libf/dyn3d/adaptdt.f	2010/03/25 14:29:07	27
+++ trunk/libf/dyn3d/adaptdt.f	2010/04/01 14:59:19	31
@@ -21,7 +21,7 @@
 c----------------------------------------------------------
       INTEGER n,nadv
       REAL dtbon 
-      REAL pbaru(iip1,jjp1,llm)
+      REAL, intent(in):: pbaru(iip1,jjp1,llm)
       REAL masse(iip1,jjp1,llm)
 c----------------------------------------------------------    
 c     Local