Index: LMDZ6/trunk/libf/dyn3d_common/infotrac.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3d_common/infotrac.F90	(revision 4428)
+++ LMDZ6/trunk/libf/dyn3d_common/infotrac.F90	(revision 4429)
@@ -161,4 +161,5 @@
    TYPE(trac_type), ALLOCATABLE, TARGET :: ttr(:)
    TYPE(trac_type), POINTER             :: t1, t(:)
+   TYPE(keys_type), POINTER :: k
    INTEGER :: ierr
 
@@ -243,4 +244,11 @@
       vadv(1:nqo+nqCO2) = vad(:); vadv(1+nqo+nqCO2:nqtrue) = vadv_inca
       CALL MOVE_ALLOC(FROM=ttr, TO=tracers)
+      DO iq = 1, nqtrue
+         t1 => tracers(iq)
+         CALL addKey_1('name',      t1%name,      t1%keys)
+         CALL addKey_1('component', t1%component, t1%keys)
+         CALL addKey_1('parent',    t1%parent,    t1%keys)
+         CALL addKey_1('phase',     t1%phase,     t1%keys)
+      END DO
       IF(setGeneration(tracers)) CALL abort_gcm(modname,'See above',1) !- SET FIELDS %iGeneration, %gen0Name
       DEALLOCATE(had, hadv_inca, vad, vadv_inca, conv_flg_inca, pbl_flg_inca, solsym_inca)
@@ -263,9 +271,9 @@
    !---------------------------------------------------------------------------------------------------------------------------
 
+#ifdef REPROBUS
    !--- Transfert the number of tracers to Reprobus
-#ifdef REPROBUS
    CALL Init_chem_rep_trac(nbtr, nqo, tracers(:)%name)
-#endif
-
+
+#endif
 !==============================================================================================================================
 ! 2) Calculate nqtot, number of tracers needed (greater if advection schemes 20 or 30 have been chosen).
Index: LMDZ6/trunk/libf/phylmd/infotrac_phy.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/infotrac_phy.F90	(revision 4428)
+++ LMDZ6/trunk/libf/phylmd/infotrac_phy.F90	(revision 4429)
@@ -271,4 +271,11 @@
       vadv(1:nqo+nqCO2) = vad(:); vadv(1+nqo+nqCO2:nqtrue) = vadv_inca
       CALL MOVE_ALLOC(FROM=ttr, TO=tracers)
+      DO iq = 1, nqtrue
+         t1 => tracers(iq)
+         CALL addKey_1('name',      t1%name,      t1%keys)
+         CALL addKey_1('component', t1%component, t1%keys)
+         CALL addKey_1('parent',    t1%parent,    t1%keys)
+         CALL addKey_1('phase',     t1%phase,     t1%keys)
+      END DO
       IF(setGeneration(tracers)) CALL abort_gcm(modname,'See below',1) !- SET FIELDS %iGeneration, %gen0Name
       DEALLOCATE(had, hadv_inca, vad, vadv_inca, conv_flg_inca, pbl_flg_inca, solsym_inca)