--- trunk/dyn3d/massbar.f90	2014/02/05 17:51:07	78
+++ trunk/dyn3d/massbar.f90	2014/02/28 17:52:47	79
@@ -21,8 +21,8 @@
   use comconst
   use comgeom
   !
-  REAL    masse( ip1jmp1,llm ), massebx( ip1jmp1,llm )  , &
-       masseby(   ip1jm,llm )
+  REAL, intent(in):: masse( ip1jmp1,llm )
+  real massebx( ip1jmp1,llm )  , masseby(   ip1jm,llm )
   !
   !
   ! Méthode pour calculer massebx et masseby. A chaque point scalaire