--- trunk/libf/dyn3d/caldyn.f90	2012/10/02 15:50:56	67
+++ trunk/libf/dyn3d/caldyn.f90	2012/11/14 16:59:30	68
@@ -29,7 +29,8 @@
     REAL, INTENT(IN):: pk(iip1, jjp1, llm)
     REAL pkf(ip1jmp1, llm)
     REAL vcont(ip1jm, llm), ucont(ip1jmp1, llm)
-    REAL phi(ip1jmp1, llm), masse(ip1jmp1, llm)
+    REAL, INTENT(IN):: phi(ip1jmp1, llm)
+    real masse(ip1jmp1, llm)
     REAL dv(ip1jm, llm), dudyn(ip1jmp1, llm)
     REAL dteta(ip1jmp1, llm)
     real, INTENT(out):: dp(ip1jmp1)