Index: /LMDZ6/trunk/libf/phylmd/lsc_scav.F90
===================================================================
--- /LMDZ6/trunk/libf/phylmd/lsc_scav.F90	(revision 4804)
+++ /LMDZ6/trunk/libf/phylmd/lsc_scav.F90	(revision 4805)
@@ -67,7 +67,8 @@
 !  frac_ev = frac_gas ou frac_aer
   REAL,PARAMETER :: frac_gas=1.0  ! cste pour la reevaporation pour les gaz
-  REAL           :: frac_aer      ! cste pour la reevaporation pour les particules
+  REAL,SAVE      :: frac_aer      ! cste pour la reevaporation pour les particules
   REAL,DIMENSION(klon,klev) :: deltaP     ! P(i+1)-P(i)
   REAL,DIMENSION(klon,klev) :: beta_ev    !  dP/P(i+1)
+!$OMP THREADPRIVATE(frac_aer)
 
 !  101.325  m3/l x Pa/atm