Changeset 3094 for trunk/LMDZ.MARS/libf/phymars/comcstfi_h.F90

Timestamp:

Oct 22, 2023, 1:42:30 PM (13 months ago)

Author:

emillour

Message:

Mars PCM:
Fix issues with dates when in parallel with OpenMP (missing copyin
statement when opening parallel section in iniphysiq). Added some threadprivate
clauses in saved module variables in comcstfi_h.F90 and planete_h.F90.
Prettyfied solarlong.F and made it a module. Likewise for conf_phys.F
EM

File:

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

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

@@ -2 +2 @@
       IMPLICIT NONE
 
-      REAL pi ! something like 3.14159
-      REAL rad ! radius of the planet (m)
-      REAL g ! gravity (m/s2)
-      REAL r ! reduced gas constant (r=8.314511/(mugaz/1000.0))
-      REAL cpp ! Cp of the atmosphere
-      REAL rcp ! r/cpp
-      REAL mugaz ! molar mass of the atmosphere (g/mol)
-      REAL omeg ! planet rotation rate (rad/s)
-
+      REAL,SAVE :: pi ! something like 3.14159
+      REAL,SAVE :: rad ! radius of the planet (m)
+      REAL,SAVE :: g ! gravity (m/s2)
+!$OMP THREADPRIVATE(pi,rad,g)
+      REAL,SAVE :: r ! reduced gas constant (r=8.314511/(mugaz/1000.0))
+      REAL,SAVE :: cpp ! Cp of the atmosphere
+      REAL,SAVE :: rcp ! r/cpp
+!$OMP THREADPRIVATE(r,cpp,rcp)
+      REAL,SAVE :: mugaz ! molar mass of the atmosphere (g/mol)
+      REAL,SAVE :: omeg ! planet rotation rate (rad/s)
+!$OMP THREADPRIVATE(mugaz,omeg)
+      
       END MODULE comcstfi_h