Index: LMDZ6/trunk/libf/phylmdiso/isotrac_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/isotrac_mod.F90	(revision 4403)
+++ LMDZ6/trunk/libf/phylmdiso/isotrac_mod.F90	(revision 4404)
@@ -653,8 +653,4 @@
       CALL get_in('option_seuil_tag_tmin', option_seuil_tag_tmin, 1)
    END IF
-   DO ixt=1,niso
-      index_zone(ixt)=0
-      index_iso(ixt)=ixt
-   END DO
 
    index_zone = [(strIdx(isoZone, strTail(isoName(ixt) ,'_',.TRUE.)), ixt=1, ntiso)]