--- trunk/libf/dyn3d/integrd.f90	2011/02/22 13:49:36	40
+++ trunk/libf/dyn3d/integrd.f90	2011/02/22 15:09:57	41
@@ -22,7 +22,8 @@
 
     REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm), teta(ip1jmp1, llm)
     REAL q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nq)
-    REAL ps(ip1jmp1), masse(ip1jmp1, llm)
+    REAL, intent(inout):: ps(ip1jmp1)
+    REAL masse(ip1jmp1, llm)
 
     REAL vcovm1(ip1jm, llm), ucovm1(ip1jmp1, llm)
     REAL tetam1(ip1jmp1, llm), psm1(ip1jmp1), massem1(ip1jmp1, llm)