--- trunk/libf/dyn3d/advtrac.f90	2011/02/22 13:49:36	40
+++ trunk/libf/dyn3d/advtrac.f90	2011/04/13 12:29:18	44
@@ -23,7 +23,7 @@
     REAL, intent(inout):: q(ip1jmp1, llm, nqmx)
     real masse(ip1jmp1, llm)
     REAL, intent(in):: p(ip1jmp1, llmp1)
-    real teta(ip1jmp1, llm)
+    real, intent(in):: teta(ip1jmp1, llm)
     REAL pk(ip1jmp1, llm)
 
     ! Variables locales