Index: LMDZ6/trunk/libf/phylmd/thermcell_condens.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/thermcell_condens.F90	(revision 3029)
+++ LMDZ6/trunk/libf/phylmd/thermcell_condens.F90	(revision 3035)
@@ -24,4 +24,6 @@
 REAL RLvCp
 REAL, SAVE :: DDT0=.01
+  !$OMP THREADPRIVATE(DDT0)
+
 LOGICAL afaire(klon),tout_converge
 
Index: LMDZ6/trunk/libf/phylmd/thermcell_flux2.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/thermcell_flux2.F90	(revision 3029)
+++ LMDZ6/trunk/libf/phylmd/thermcell_flux2.F90	(revision 3035)
@@ -47,6 +47,7 @@
       REAL f_old,ddd0,eee0,ddd,eee,zzz
 
-      REAL fomass_max,alphamax
-      save fomass_max,alphamax
+      REAL,SAVE :: fomass_max=0.5
+      REAL,SAVE :: alphamax=0.7
+!$OMP THREADPRIVATE(fomass_max,alphamax)
 
       logical check_debug,labort_physic
@@ -55,6 +56,4 @@
       character (len=80) :: abort_message
 
-      fomass_max=0.5
-      alphamax=0.7
 
       ncorecfm1=0
Index: LMDZ6/trunk/libf/phylmd/thermcell_qsat.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/thermcell_qsat.F90	(revision 3029)
+++ LMDZ6/trunk/libf/phylmd/thermcell_qsat.F90	(revision 3035)
@@ -23,5 +23,8 @@
 logical Zsat
 REAL RLvCp
+
 REAL, SAVE :: DDT0=.01
+!$OMP THREADPRIVATE(DDT0)
+
 LOGICAL afaire(klon),tout_converge
 
Index: LMDZ6/trunk/libf/phylmd/yamada4.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/yamada4.F90	(revision 3029)
+++ LMDZ6/trunk/libf/phylmd/yamada4.F90	(revision 3035)
@@ -117,10 +117,5 @@
   REAL aa(klon, klev+1), aa0, aa1
   INTEGER nlay, nlev
-  LOGICAL first
-  INTEGER ipas
-  SAVE first, ipas
-  ! FH/IM     data first,ipas/.true.,0/
-  DATA first, ipas/.FALSE., 0/
-  !$OMP THREADPRIVATE( first,ipas)
+
   LOGICAL,SAVE :: hboville=.TRUE.
   REAL,SAVE :: viscom,viscoh
@@ -136,4 +131,6 @@
   INTEGER iter
   REAL dissip(klon,klev), tkeprov,tkeexp, shear(klon,klev), buoy(klon,klev)
+  REAL :: disseff
+
   REAL,SAVE :: ric0,ric,rifc, b1, kap
   !$OMP THREADPRIVATE(ric0,ric,rifc,b1,kap)
@@ -147,6 +144,6 @@
   !$OMP THREADPRIVATE(new_yamada4,yamada4_num)
   REAL, SAVE :: yun,ydeux
-  REAL :: disseff
   !$OMP THREADPRIVATE(yun,ydeux)
+
   REAL frif, falpha, fsm
   REAL rino(klon, klev+1), smyam(klon, klev), styam(klon, klev), &
@@ -225,5 +222,4 @@
   nlay = klev
   nlev = klev + 1
-  ipas = ipas + 1
 
 
@@ -725,5 +721,4 @@
 !============================================================================
 
-  first = .FALSE.
   RETURN
 
@@ -978,4 +973,5 @@
  REAL     hlim(klon)
  REAL, SAVE :: kap=0.4,kapb=0.4
+  !$OMP THREADPRIVATE(kap,kapb)
  REAL zq
  REAL sq(klon), sqz(klon)