--- trunk/libf/dyn3d/caladvtrac.f90	2011/04/08 12:43:31	43
+++ trunk/libf/dyn3d/caladvtrac.f90	2011/04/13 12:29:18	44
@@ -27,7 +27,8 @@
     real, intent(out):: dq(iim + 1, jjm + 1, llm, 2)
     ! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide)
 
-    REAL teta(ip1jmp1, llm), pk(ip1jmp1, llm)
+    REAL, intent(in):: teta(ip1jmp1, llm)
+    real pk(ip1jmp1, llm)
 
     ! Local: