--- trunk/dyn3d/iniadvtrac.f90	2014/02/05 17:51:07	78
+++ trunk/dyn3d/iniadvtrac.f	2015/02/13 18:22:38	129
@@ -30,7 +30,6 @@
 
   INTEGER hadv(nqmx) ! indice schéma transport horizontal 
   INTEGER vadv(nqmx) ! indice schéma transport vertical 
-  INTEGER niadv(nqmx) ! équivalent dynamique / physique
   character(len=8) tnom(nqmx) ! nom court du traceur
   character(len=10) tname(nqmx) ! nom du traceur pour restart
   character(len=13) ttext(nqmx) ! nom long du traceur pour sorties
@@ -44,6 +43,9 @@
     ! Authors: P. Le Van, L. Fairhead, F. Hourdin, F. Codron,
     ! F. Forget, M.-A. Filiberti
 
+    ! Initialisation des traceurs
+    ! Choix du schéma pour l'advection dans le fichier "traceur.def"
+
     use nr_util, only: assert
     use jumble, only: new_unit
 
@@ -123,8 +125,6 @@
        endif
     end do
 
-    forall (iq = 1: nqmx) niadv(iq)=iq
-
   END subroutine iniadvtrac
 
 end module iniadvtrac_m