Changeset 5057 for LMDZ6/trunk/libf/phy_common

Timestamp:

Jul 16, 2024, 11:48:33 AM (11 months ago)

Author:

abarral

Message:

Replaced barely used omp_barrier subroutine by omp instruction
Remove duplicated omp_barrier call

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 ¶

@@ -56 +56 @@
 
 CONTAINS
-
-  SUBROUTINE omp_barrier
-  IMPLICIT NONE
-
-!$OMP BARRIER
-
-  END SUBROUTINE omp_barrier
   
   SUBROUTINE check_buffer_i(buff_size)
@@ -116 +109 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-!! -- Les chaine de charactère -- !!
+!! -- Les chaine de charact�re -- !!
 
   SUBROUTINE bcast_omp_c(var)