Changeset 5145

Timestamp:

Jul 30, 2024, 2:26:10 PM (7 weeks ago)

Author:

Laurent Fairhead

Message:

Rolling back revision 5057 while we try to understand why it caused a 'Houston' error in mod_synchro_omp on irene.

Location:

LMDZ6/trunk/libf

Files:

• phy_common/mod_phys_lmdz_omp_transfert.F90 (modified) (2 diffs)
• phylmd/mod_synchro_omp.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_omp_transfert.F90

@@ -53 +53 @@
 
 
-  PUBLIC bcast_omp,scatter_omp,gather_omp,reduce_sum_omp, reduce_min_omp
+  PUBLIC bcast_omp,scatter_omp,gather_omp,reduce_sum_omp, reduce_min_omp, omp_barrier
 
 CONTAINS
+
+  SUBROUTINE omp_barrier
+  IMPLICIT NONE
+
+!$OMP BARRIER
+
+  END SUBROUTINE omp_barrier
   
   SUBROUTINE check_buffer_i(buff_size)
@@ -109 +116 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-!! -- Les chaine de charact�re -- !!
+!! -- Les chaine de charactère -- !!
 
   SUBROUTINE bcast_omp_c(var)

LMDZ6/trunk/libf/phylmd/mod_synchro_omp.F90

@@ -12 +12 @@
   IMPLICIT NONE
 
-!$OMP BARRIER
+  CALL omp_barrier
 !$OMP MASTER
   exit_omp=0
 !$OMP END MASTER    
-!$OMP BARRIER
+  CALL omp_barrier
 
   END SUBROUTINE Init_Synchro_omp
@@ -29 +29 @@
     out=.FALSE.
 !$OMP BARRIER
-!$OMP ATOMIC
+!$OMP BARRIER
+!$OMP ATOMIC  
     exit_omp=exit_omp+1
+!$OMP BARRIER
 !$OMP BARRIER
     IF (exit_omp==omp_size) THEN