Index: LMDZ4/trunk/libf/bibio/initdynav.F
===================================================================
--- LMDZ4/trunk/libf/bibio/initdynav.F	(revision 772)
+++ LMDZ4/trunk/libf/bibio/initdynav.F	(revision 1146)
@@ -5,7 +5,8 @@
 c
       subroutine initdynav(infile,day0,anne0,tstep,t_ops,t_wrt
-     .                     ,nq,fileid)
+     .                     ,fileid)
 
        USE IOIPSL
+       USE infotrac, ONLY : nqtot, ttext
 
       implicit none
@@ -28,5 +29,4 @@
 C      t_ops: frequence de l'operation pour IOIPSL
 C      t_wrt: frequence d'ecriture sur le fichier
-C      nq: nombre de traceurs
 C
 C   Sortie:
@@ -48,5 +48,4 @@
 #include "description.h"
 #include "serre.h"
-#include "advtrac.h"
 
 C   Arguments
@@ -56,5 +55,4 @@
       real tstep, t_ops, t_wrt
       integer fileid
-      integer nq
       integer thoriid, zvertiid
 
@@ -136,5 +134,5 @@
 C  Traceurs
 C
-        DO iq=1,nq
+        DO iq=1,nqtot
           call histdef(fileid, ttext(iq), ttext(iq), '-',
      .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
Index: LMDZ4/trunk/libf/bibio/initfluxsto.F
===================================================================
--- LMDZ4/trunk/libf/bibio/initfluxsto.F	(revision 772)
+++ LMDZ4/trunk/libf/bibio/initfluxsto.F	(revision 1146)
@@ -3,5 +3,5 @@
 !
       subroutine initfluxsto
-     .  (infile,tstep,t_ops,t_wrt,nq,
+     .  (infile,tstep,t_ops,t_wrt,
      .                    fileid,filevid,filedid)
 
@@ -27,5 +27,4 @@
 C      t_ops: frequence de l'operation pour IOIPSL
 C      t_wrt: frequence d'ecriture sur le fichier
-C      nq: nombre de traceurs
 C
 C   Sortie:
@@ -55,5 +54,5 @@
       real tstep, t_ops, t_wrt
       integer fileid, filevid,filedid
-      integer nq,ndex(1)
+      integer ndex(1)
       real nivd(1)
 
Index: LMDZ4/trunk/libf/bibio/inithist.F
===================================================================
--- LMDZ4/trunk/libf/bibio/inithist.F	(revision 772)
+++ LMDZ4/trunk/libf/bibio/inithist.F	(revision 1146)
@@ -2,8 +2,9 @@
 ! $Header$
 !
-      subroutine inithist(infile,day0,anne0,tstep,t_ops,t_wrt,nq,fileid,
+      subroutine inithist(infile,day0,anne0,tstep,t_ops,t_wrt,fileid,
      .                    filevid)
 
        USE IOIPSL
+       USE infotrac, ONLY : nqtot, ttext
 
       implicit none
@@ -47,5 +48,4 @@
 #include "description.h"
 #include "serre.h"
-#include "advtrac.h"
 
 C   Arguments
@@ -55,5 +55,4 @@
       real tstep, t_ops, t_wrt
       integer fileid, filevid
-      integer nq
 
 C   Variables locales
@@ -154,5 +153,5 @@
 C  Traceurs
 C
-        DO iq=1,nq
+        DO iq=1,nqtot
           call histdef(fileid, ttext(iq),  ttext(iq), '-',
      .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
Index: LMDZ4/trunk/libf/bibio/writedynav.F
===================================================================
--- LMDZ4/trunk/libf/bibio/writedynav.F	(revision 772)
+++ LMDZ4/trunk/libf/bibio/writedynav.F	(revision 1146)
@@ -2,8 +2,9 @@
 ! $Header$
 !
-      subroutine writedynav( histid, nq, time, vcov, 
+      subroutine writedynav( histid, time, vcov, 
      ,                          ucov,teta,ppk,phi,q,masse,ps,phis)
 
       USE ioipsl
+      USE infotrac, ONLY : nqtot, ttext
       implicit none
 
@@ -15,5 +16,4 @@
 C   Entree:
 C      histid: ID du fichier histoire
-C      nqmx: nombre maxi de traceurs
 C      time: temps de l'ecriture
 C      vcov: vents v covariants
@@ -45,5 +45,4 @@
 #include "description.h"
 #include "serre.h"
-#include "advtrac.h"
 
 C
@@ -51,10 +50,10 @@
 C
 
-      INTEGER histid, nq
+      INTEGER histid
       REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) 
       REAL teta(ip1jmp1*llm),phi(ip1jmp1,llm),ppk(ip1jmp1*llm)                  
       REAL ps(ip1jmp1),masse(ip1jmp1,llm)                   
       REAL phis(ip1jmp1)                  
-      REAL q(ip1jmp1,llm,nq)
+      REAL q(ip1jmp1,llm,nqtot)
       integer time
 
@@ -119,5 +118,5 @@
 C  Traceurs
 C
-        DO iq=1,nq
+        DO iq=1,nqtot
           call histwrite(histid, ttext(iq), itau_w, q(:,:,iq), 
      .                   iip1*jjp1*llm, ndex3d)
Index: LMDZ4/trunk/libf/bibio/writehist.F
===================================================================
--- LMDZ4/trunk/libf/bibio/writehist.F	(revision 772)
+++ LMDZ4/trunk/libf/bibio/writehist.F	(revision 1146)
@@ -2,8 +2,9 @@
 ! $Header$
 !
-      subroutine writehist( histid, histvid, nq, time, vcov, 
+      subroutine writehist( histid, histvid, time, vcov, 
      ,                          ucov,teta,phi,q,masse,ps,phis)
 
       USE ioipsl
+      USE infotrac, ONLY : nqtot, ttext
       implicit none
 
@@ -16,5 +17,4 @@
 C      histid: ID du fichier histoire
 C      histvid:ID du fichier histoire pour les vents V (appele a disparaitre)
-C      nqmx: nombre maxi de traceurs
 C      time: temps de l'ecriture
 C      vcov: vents v covariants
@@ -46,5 +46,4 @@
 #include "description.h"
 #include "serre.h"
-#include "advtrac.h"
 
 C
@@ -52,10 +51,10 @@
 C
 
-      INTEGER histid, nq, histvid
+      INTEGER histid, histvid
       REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) 
       REAL teta(ip1jmp1,llm),phi(ip1jmp1,llm)                   
       REAL ps(ip1jmp1),masse(ip1jmp1,llm)                   
       REAL phis(ip1jmp1)                  
-      REAL q(ip1jmp1,llm,nq)
+      REAL q(ip1jmp1,llm,nqtot)
       integer time
 
@@ -102,5 +101,5 @@
 C  Traceurs
 C
-        DO iq=1,nq
+        DO iq=1,nqtot
           call histwrite(histid, ttext(iq), itau_w, q(:,:,iq), 
      .                   iip1*jjp1*llm, ndexu)