Changeset 6120 for LMDZ6/trunk/libf/phylmd/open_climoz_m.f90

Timestamp:

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

Author:

lguez

Message:

Set ncid_climoz to OpenMP threadprivate

Set ncid_climoz to OpenMP threadprivate in procedure
physiq. ncid_climoz is only used by the master thread of root MPI
process so we can set it to threadprivate and define it only for the
master thread of root MPI process.

File:

• LMDZ6/trunk/libf/phylmd/open_climoz_m.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/open_climoz_m.f90

@@ -25 +25 @@
 ! and in strictly ascending order.
 !-------------------------------------------------------------------------------
-! Arguments (OpenMP shared):
   INTEGER, INTENT(OUT):: ncid      !--- "climoz_LMDZ.nc" identifier
+  ! Following arguments are OpenMP shared:
   REAL, allocatable, intent(out):: press_in_cen(:) !--- at cells centers
   REAL, allocatable, INTENT(OUT):: press_in_edg(:) !--- at the interfaces (pressure intervals)