Changeset 5582 for LMDZ6

Timestamp:

Mar 21, 2025, 3:26:37 PM (3 months ago)

Author:

Laurent Fairhead

Message:

Another THREADPRIVATE statement that should not be defined and added comments

Location:

LMDZ6/trunk/libf/phylmd

Files:

• iophy.F90 (modified) (2 diffs)
• oasis.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/iophy.F90 ¶

@@ -12 +12 @@
   INTEGER, ALLOCATABLE, DIMENSION(:), SAVE :: nptabij
   INTEGER, SAVE :: itau_iophy
+  !! WARNING, only itau_iophy needs to be put in a THREADPRIVATE statement, 
+  !!          io_lat,io_lon,phys_domain_id,npstn,nptabij are shared between OMP tasks
   LOGICAL :: check_dim = .false.
 !$OMP THREADPRIVATE(itau_iophy)
@@ -971 +973 @@
   REAL, ALLOCATABLE, DIMENSION(:) :: fieldok
   logical, save :: is_active = .true.
+  !! WARNING, is_active is shared between OMP tasks and should not be put in a THREADPRIVATE statement
 
   IF (check_dim .AND. is_master) WRITE(lunout,*)'histwrite2d_phy for ',trim(var%name)

LMDZ6/trunk/libf/phylmd/oasis.F90 ¶

@@ -137 +137 @@
     CHARACTER (len = 20)               :: modname = 'inicma'
     CHARACTER (len = 80)               :: abort_message 
+    !! WARNING: cpl_current_omp should NOT be put in a THREADPRIVATE statement, it is shared between tasks
     LOGICAL, SAVE                      :: cpl_current_omp
     INTEGER, DIMENSION(klon_mpi)       :: ind_cell_glo_mpi
-
-    !$OMP THREADPRIVATE(cpl_current_omp)