--- trunk/libf/dyn3d/advtrac.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/advtrac.f90	2008/08/07 12:29:13	18
@@ -17,7 +17,7 @@
   USE comgeom
   USE temps
   USE ener
-  USE advtrac_m
+  USE iniadvtrac_m
   USE comdissip
   IMPLICIT NONE
 
@@ -32,7 +32,8 @@
   INTEGER iapptrac
   REAL pbaru(ip1jmp1,llm), pbarv(ip1jm,llm)
   REAL q(ip1jmp1,llm,nqmx), masse(ip1jmp1,llm)
-  REAL p(ip1jmp1,llmp1), teta(ip1jmp1,llm)
+  REAL, intent(in):: p(ip1jmp1,llmp1)
+  real teta(ip1jmp1,llm)
   REAL pk(ip1jmp1,llm)
 
   !-------------------------------------------------------------