Index: LMDZ6/trunk/libf/phylmdiso/infotrac_phy.F90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/infotrac_phy.F90	(revision 4047)
+++ LMDZ6/trunk/libf/phylmdiso/infotrac_phy.F90	(revision 4048)
@@ -136,5 +136,5 @@
     INTEGER,INTENT(IN) :: id_BIN01_strat_
 #endif
-    CHARACTER(len=*),INTENT(IN) :: tracers_(nqtot_) ! tracers descriptors
+    TYPE(trac_type), INTENT(IN) :: tracers_(nqtot_) ! tracers descriptors
     CHARACTER(len=*),INTENT(IN) :: type_trac_
     INTEGER,INTENT(IN) :: niadv_ (nqtot_) ! equivalent dyn / physique
Index: LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90	(revision 4047)
+++ LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90	(revision 4048)
@@ -126,5 +126,5 @@
 #ifdef ISO
     INTEGER  :: ixt,iiso,izone
-    CHARACTER(LEN=50) :: outiso
+    CHARACTER(LEN=LEN(striso)) :: outiso
     CHARACTER(LEN=20) :: unit
 #endif
@@ -587,10 +587,10 @@
     do ixt=1,ntraciso
       if (ixt.le.niso) then
-        striso_sortie=striso(ixt)
+        outiso=striso(ixt)
       else
 #ifdef ISOTRAC
         iiso=index_iso(ixt)
         izone=index_zone(ixt)       
-        striso_sortie=striso(iiso)//strtrac(izone)
+        outiso=striso(iiso)//strtrac(izone)
 #else
         write(*,*) 'phys_output_mod 546: ixt,ntraciso=', ixt,ntraciso
@@ -630,4 +630,5 @@
                                                                                       unit, [('',i=1,nfiles)])
       o_dxtdecroiss (ixt)=ctrl_out(flag, 'dqdecroiss'//TRIM(outiso), 'dHTO/dt due to radiative destruction',   &
+                                                                                      unit, [('',i=1,nfiles)])
       END IF
     enddo !do ixt=1,niso