Changeset 3832

Timestamp:

Jul 7, 2025, 11:32:55 AM (10 hours ago)

Author:

emillour

Message:

Common physics routines:
Somewhat related to r3829 about improving OpenMP:
Introduce a "fix" in buffer allocation for logicals in OpenMP
Tests in debug show that if the task is done by the MASTER
sometimes the buffer is not allocated (yet) but used by threads
whereas things go more smoothly if the task is done via SINGLE.
Maybe just a compiler (or debugger) bug?
EM

File:

• trunk/LMDZ.COMMON/libf/phy_common/mod_phys_lmdz_omp_transfert.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/phy_common/mod_phys_lmdz_omp_transfert.F90

@@ -96 +96 @@
 
 !$OMP BARRIER
-!$OMP MASTER
+! Ehouarn: weirdly enough, despite the BARRIER above and after
+! tests in debug show that if the task is done by the MASTER
+! sometimes the buffer is not allocated (yet) but used by threads
+! whereas things go more smoothly if the task is done via SINGLE
+!$OMP SINGLE
     IF (buff_size>size_l) THEN
       IF (ALLOCATED(buffer_l)) DEALLOCATE(buffer_l)
@@ -102 +106 @@
       ALLOCATE(buffer_l(size_l))
     ENDIF
-!$OMP END MASTER
+!$OMP END SINGLE
 !$OMP BARRIER