Changeset 6136

Timestamp:

Mar 26, 2026, 10:22:12 PM (2 weeks ago)

Author:

lguez

Message:

Duplicate r6120 in phylmdiso

File:

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

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1142 +1142 @@
     !     2: read two ozone climatologies, the average day and night
     !     climatology and the daylight climatology
-    !$OMP THREADPRIVATE(read_climoz)
+    INTEGER,SAVE :: ncid_climoz                ! NetCDF file identifier
+    !$OMP THREADPRIVATE(read_climoz, ncid_climoz)
 
     !  Following variables are OpenMP shared
-    INTEGER,SAVE :: ncid_climoz                ! NetCDF file identifier
     REAL, ALLOCATABLE, SAVE :: press_cen_climoz(:) ! Pressure levels
     REAL, ALLOCATABLE, SAVE :: press_edg_climoz(:) ! Edges of pressure intervals
@@ -2251 +2251 @@
        ENDIF
 
-       !$omp single
+       !$omp master
        IF (read_climoz >= 1) CALL open_climoz(ncid_climoz, press_cen_climoz,   &
            press_edg_climoz, time_climoz, ok_daily_climoz, adjust_tropopause)
-       !$omp end single
+       !$omp end master
        !
        !IM betaCRF