Changeset 6137 for LMDZ6/trunk/libf

Timestamp:

Mar 26, 2026, 10:22:40 PM (6 days ago)

Author:

lguez

Message:

Duplicate r6122 in phylmdiso

File:

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

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1143 +1143 @@
     !     climatology and the daylight climatology
     INTEGER,SAVE :: ncid_climoz                ! NetCDF file identifier
-    !$OMP THREADPRIVATE(read_climoz, ncid_climoz)
-
-    !  Following variables are OpenMP shared
     REAL, ALLOCATABLE, SAVE :: press_cen_climoz(:) ! Pressure levels
     REAL, ALLOCATABLE, SAVE :: press_edg_climoz(:) ! Edges of pressure intervals
     REAL, ALLOCATABLE, SAVE :: time_climoz(:)      ! Time vector
+    !$OMP THREADPRIVATE(read_climoz, ncid_climoz, press_cen_climoz)
+    !$OMP THREADPRIVATE(press_edg_climoz, time_climoz)
     CHARACTER(LEN=13), PARAMETER :: vars_climoz(2) &
                                   = ["tro3         ","tro3_daylight"]
@@ -2251 +2250 @@
        ENDIF
 
-       !$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 master
        !
        !IM betaCRF