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

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.