Changeset 3625 for trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90

Timestamp:

Feb 13, 2025, 9:45:25 AM (8 hours ago)

Author:

emillour

Message:

Mars PCM:
OpenMP fix, zdqsdif_ssi_tot is a saved variable and has to be THREADPRIVATE.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/paleoclimate_mod.F90

@@ -12 +12 @@
 
 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)
 
 !=======================================================================