Index: /LMDZ6/trunk/libf/misc/readTracFiles_mod.f90
===================================================================
--- /LMDZ6/trunk/libf/misc/readTracFiles_mod.f90	(revision 4120)
+++ /LMDZ6/trunk/libf/misc/readTracFiles_mod.f90	(revision 4121)
@@ -600,5 +600,4 @@
 !------------------------------------------------------------------------------------------------------------------------------
   TYPE(trac_type), ALLOCATABLE, INTENT(INOUT) :: tr(:)         !--- Tracer derived type vector
-!  TYPE(trac_type), ALLOCATABLE :: ttr(:)
   INTEGER,         ALLOCATABLE :: iy(:), iz(:)
   INTEGER :: ig, ng, iq, jq, ip, nq, n, ix(SIZE(tr)), k
@@ -608,6 +607,5 @@
     iq = strIdx(tr(:)%name, addPhase('H2O', ip))
     IF(iq == 0) CYCLE
-    tr = tr([iq, 1:iq-1, iq+1:nq])
-!    tr(:)%name = nam
+    tr = [tr(iq), tr(1:iq-1), tr(iq+1:nq)]
   END DO
   IF(lSortByGen) THEN