Changeset 3007 for trunk/LMDZ.MARS/libf

Timestamp:

Jul 21, 2023, 2:54:24 PM (17 months ago)

Author:

emillour

Message:

Mars PCM:
Fix OpenMP bug in paleoclimate_mod; saved variables should be threadprivate.
EM

File:

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

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

@@ -11 +11 @@
     IMPLICIT NONE
 
-    LOGICAL :: paleoclimate                        ! False by default, is activate  for paleoclimates specific processes (e.g., lag layer)
+    LOGICAL, SAVE :: paleoclimate    ! False by default, is activate  for paleoclimates specific processes (e.g., lag layer)
+                                     ! is initialized in conf_phys
+!$OMP THREADPRIVATE(paleoclimate)
+
     real, save, allocatable :: lag_h2o_ice(:,:)  ! Thickness of the lag before H2O ice [m]
     real, save, allocatable :: lag_co2_ice(:,:)  ! Thickness of the lag before CO2 ice [m]
     real, save :: albedo_perenialco2             ! Albedo for perenial co2 ice [1]
+!$OMP THREADPRIVATE(lag_h2o_ice,lag_co2_ice,albedo_perenialco2)
+
     CONTAINS