--- trunk/dyn3d/iniadvtrac.f	2014/03/12 21:16:36	90
+++ trunk/dyn3d/iniadvtrac.f	2014/03/26 17:18:58	91
@@ -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
@@ -123,8 +122,6 @@
        endif
     end do
 
-    forall (iq = 1: nqmx) niadv(iq)=iq
-
   END subroutine iniadvtrac
 
 end module iniadvtrac_m