Changeset 6135 for LMDZ6/trunk/libf

Timestamp:

Mar 26, 2026, 10:21:47 PM (6 days ago)

Author:

lguez

Message:

Duplicate r6119 in phylmdiso

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1134 +1134 @@
     ! Declaration des constantes et des fonctions thermodynamiques
     !
-    ! VARIABLES RELATED TO OZONE CLIMATOLOGIES ; all are OpenMP shared
+    ! VARIABLES RELATED TO OZONE CLIMATOLOGIES
     ! Note that pressure vectors are in Pa and in stricly ascending order
     INTEGER,SAVE :: read_climoz                ! Read ozone climatology
-    !     (let it keep the default OpenMP shared attribute)
     !     Allowed values are 0, 1 and 2
     !     0: do not read an ozone climatology
@@ -1143 +1142 @@
     !     2: read two ozone climatologies, the average day and night
     !     climatology and the daylight climatology
+    !$OMP THREADPRIVATE(read_climoz)
+
+    !  Following variables are OpenMP shared
     INTEGER,SAVE :: ncid_climoz                ! NetCDF file identifier
     REAL, ALLOCATABLE, SAVE :: press_cen_climoz(:) ! Pressure levels