Changeset 5057 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jul 16, 2024, 11:48:33 AM (7 months ago)
Author:
abarral
Message:

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

Location:
LMDZ6/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_omp_transfert.F90

    r4868 r5057  
    5656
    5757CONTAINS
    58 
    59   SUBROUTINE omp_barrier
    60   IMPLICIT NONE
    61 
    62 !$OMP BARRIER
    63 
    64   END SUBROUTINE omp_barrier
    6558 
    6659  SUBROUTINE check_buffer_i(buff_size)
    … …  
    116109!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    117110
    118 !! -- Les chaine de charactère -- !!
     111!! -- Les chaine de charact�re -- !!
    119112
    120113  SUBROUTINE bcast_omp_c(var)

  • LMDZ6/trunk/libf/phylmd/mod_synchro_omp.F90

    r3531 r5057  
    1212  IMPLICIT NONE
    1313
    14   CALL omp_barrier
     14!$OMP BARRIER
    1515!$OMP MASTER
    1616  exit_omp=0
    1717!$OMP END MASTER   
    18   CALL omp_barrier
     18!$OMP BARRIER
    1919
    2020  END SUBROUTINE Init_Synchro_omp
    … …  
    2929    out=.FALSE.
    3030!$OMP BARRIER
    31 !$OMP BARRIER
    32 !$OMP ATOMIC 
     31!$OMP ATOMIC
    3332    exit_omp=exit_omp+1
    34 !$OMP BARRIER
    3533!$OMP BARRIER
    3634    IF (exit_omp==omp_size) THEN
Note: See TracChangeset for help on using the changeset viewer.