--- trunk/libf/dyn3d/advtrac.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/advtrac.f90	2009/12/14 15:25:16	23
@@ -8,17 +8,13 @@
   !            D. Le Croller (07/2001)
   !            M.A Filiberti (04/2002)
 
-  USE dimens_m
-  USE paramet_m
-  USE comconst
-  USE comvert
-  USE conf_gcm_m
-  USE logic
-  USE comgeom
-  USE temps
-  USE ener
-  USE advtrac_m
-  USE comdissip
+  USE dimens_m, ONLY : iim, jjm, llm, nqmx
+  USE paramet_m, ONLY : iip1, iip2, ijmllm, ijp1llm, ip1jm, ip1jmp1, jjp1, &
+       llmp1
+  USE comconst, ONLY : dtvr
+  USE conf_gcm_m, ONLY : iapp_tracvl
+  USE iniadvtrac_m, ONLY : iadv
+
   IMPLICIT NONE
 
 
@@ -32,7 +28,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)
 
   !-------------------------------------------------------------
@@ -290,9 +287,6 @@
      !   on reinitialise a zero les flux de masse cumules
      !---------------------------------------------------
      iadvtr = 0
-
-
   END IF
-  ! if iadvtr.EQ.iapp_tracvl                                 
-  RETURN
+
 END SUBROUTINE advtrac