Changeset 6122 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Mar 23, 2026, 11:30:30 PM (2 weeks ago)

Author:

lguez

Message:

Set variables to OpenMP threadprivate

Set press_cen_climoz, press_edg_climoz and time_climoz in
procedure physiq to OpenMP threadprivate. We then have to call
open_climoz for each thread.

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1070 +1070 @@
     !     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) &
@@ -2124 +2123 @@
        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