Changeset 3007

Timestamp:

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

Author:

emillour

Message:

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

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/phymars/paleoclimate_mod.F90 (modified) (1 diff)

trunk/LMDZ.MARS/changelog.txt

@@ -4116 +4116 @@
 include "nir_leedat.F" (reading/loading of the data) in the module.
 Also turn nirco2abs.F in a module.
+
+== 21/07/2023 == EM
+Fix OpenMP bug in paleoclimate_mod; saved variables should be threadprivate.
+

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