Changeset 5145 for LMDZ6/trunk/libf/phy_common

Timestamp:

Jul 30, 2024, 2:26:10 PM (6 months 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.

File:

• LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_omp_transfert.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)