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

Timestamp:

Dec 10, 2024, 11:35:28 AM (6 days ago)

Author:

evignon

Message:

ajout de omp threadprivate manquants

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1167 +1167 @@
     REAL, ALLOCATABLE, SAVE :: press_edg_climoz(:) ! Edges of pressure intervals
     REAL, ALLOCATABLE, SAVE :: time_climoz(:)      ! Time vector
+    !$OMP THREADPRIVATE(ncid_climoz,press_cen_climoz,press_edg_climoz,time_climoz)
+
     CHARACTER(LEN=13), PARAMETER :: vars_climoz(2) &
                                   = ["tro3         ","tro3_daylight"]