Index: LMDZ5/trunk/libf/phylmd/phytrac_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/phytrac_mod.F90	(revision 1819)
+++ LMDZ5/trunk/libf/phylmd/phytrac_mod.F90	(revision 1820)
@@ -260,5 +260,5 @@
   INTEGER                   :: itau_w      ! pas de temps ecriture = nstep + itau_phy
   LOGICAL,PARAMETER         :: ok_sync=.TRUE.
-!$OMP THREADPRIVATE(chtratimestep)
+
 !
 ! Nature du traceur
@@ -291,6 +291,6 @@
 !---------
   INTEGER,SAVE :: iflag_vdf_trac,iflag_con_trac,iflag_the_trac
-  INTEGER :: iflag_con_trac_omp, iflag_vdf_trac_omp,iflag_the_trac_omp
-!$OMP THREADPRIVATE(iflag_lscav,convscav,iflag_the_trac)
+  INTEGER,SAVE  :: iflag_con_trac_omp, iflag_vdf_trac_omp,iflag_the_trac_omp
+!$OMP THREADPRIVATE(iflag_vdf_trac,iflag_con_trac,iflag_the_trac)
 
   LOGICAL,SAVE :: lessivage
@@ -301,5 +301,6 @@
   INTEGER,SAVE  :: iflag_lscav_omp,iflag_lscav
   LOGICAL,SAVE  :: convscav_omp,convscav
-!$OMP THREADPRIVATE(iflag_lscav,convscav)
+!$OMP THREADPRIVATE(iflag_lscav_omp,iflag_lscav)
+!$OMP THREADPRIVATE(convscav_omp,convscav)
 !RomP <<<
 !######################################################################