Index: trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90	(revision 3619)
+++ trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90	(revision 3625)
@@ -12,13 +12,14 @@
 
 logical :: paleoclimate ! False by default, is activate  for paleoclimates specific processes (e.g., lag layer) is initialized in conf_phys
+!$OMP THREADPRIVATE(paleoclimate)
 
-!$OMP THREADPRIVATE(paleoclimate)
     real,    allocatable, dimension(:,:) :: h2o_ice_depth         ! Thickness of the lag before H2O ice [m]
     real,    allocatable, dimension(:,:) :: lag_co2_ice           ! Thickness of the lag before CO2 ice [m]
     real,    allocatable, dimension(:,:) :: zdqsdif_ssi_tot       ! Total flux of the interactions with SSI (kg/m^2/s^-1)
+!$OMP THREADPRIVATE(h2o_ice_depth,lag_co2_ice,zdqsdif_ssi_tot)
     real,    allocatable, dimension(:,:) :: d_coef                ! Diffusion coefficent
     logical                              :: lag_layer             ! Does lag layer is present?
     logical                              :: include_waterbuoyancy ! Include the effect of water buoyancy when computing the sublimation of water ice ?
-!$OMP THREADPRIVATE(h2o_ice_depth,lag_co2_ice,d_coef,lag_layer,include_waterbuoyancy)
+!$OMP THREADPRIVATE(d_coef,lag_layer,include_waterbuoyancy)
 
 !=======================================================================