Ignore:
Timestamp:
Jul 30, 2024, 2:26:10 PM (3 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:
1 edited

Legend:

Unmodified
Added
Removed

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

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