Index: LMDZ6/branches/LMDZ-tracers/libf/dyn3d_common/infotrac.F90
===================================================================
--- LMDZ6/branches/LMDZ-tracers/libf/dyn3d_common/infotrac.F90	(revision 3960)
+++ LMDZ6/branches/LMDZ-tracers/libf/dyn3d_common/infotrac.F90	(revision 3961)
@@ -269,4 +269,5 @@
 
   IF(readTracersFiles(type_trac, fType, tracers)) CALL abort_gcm(modname,'problem with tracers file(s)',1)
+  modname = 'infotrac_init'
   CALL msg(fType == 0, 'WARNING: USING DEFAULT VALUES !')
 
@@ -310,10 +311,14 @@
         nqtrue = nbtr + nqo                                          !--- Total number of tracers
         ALLOCATE(ttr(nqtrue)); ttr(1:nqo) = tracers(1:nqo)
+        ALLOCATE(hadv(nqtrue)); hadv(:) = 0
+        ALLOCATE(vadv(nqtrue)); vadv(:) = 0
         DO iq = nqo+1, nqtrue
           ttr(iq)%name = solsym(iq)
           ttr(iq)%prnt = tran0
           ttr(iq)%igen = 1
-          hadv = hadv_inca(iq-nqo)
-          vadv = vadv_inca(iq-nqo)
+
+          hadv(iq) = hadv_inca(iq-nqo)
+          vadv(iq) = vadv_inca(iq-nqo)
+
         END DO
         CALL MOVE_ALLOC(FROM=ttr, TO=tracers)