--- trunk/libf/dyn3d/caladvtrac.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/caladvtrac.f90	2008/04/18 14:45:53	10
@@ -14,7 +14,8 @@
   IMPLICIT NONE
 
   REAL pbaru(ip1jmp1, llm), pbarv((iim + 1) * jjm, llm), masse(ip1jmp1, llm)
-  REAL p(ip1jmp1, llm + 1), q(ip1jmp1, llm, nqmx)
+  REAL, intent(in):: p(ip1jmp1, llm + 1)
+  real q(ip1jmp1, llm, nqmx)
 
   real, intent(out):: dq(ip1jmp1, llm, 2)
   ! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide)