Ignore:
Timestamp:
03/09/20 14:24:28 (4 years ago)
Author:
ymipsl
Message:

Add OpenACC synchro to avoid race condition during MPI halllo exchange in non-legacy MPI routine.

Thanks to . R. Lacroix to find the bug.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/parallel/transfert_mpi.f90

    r1004 r1018  
    661661    call exit_profile(profile_mpi_copies) 
    662662 
     663    call enter_profile(profile_mpi_barrier) 
     664    !$acc wait 
     665    call exit_profile(profile_mpi_barrier) 
     666     
    663667    !$omp master 
    664668    do i=0, mpi_size-1 
    … …  
    668672 
    669673    call enter_profile(profile_mpi_barrier) 
    670     !$acc wait 
    671674    !$omp barrier 
    672675    call exit_profile(profile_mpi_barrier) 
Note: See TracChangeset for help on using the changeset viewer.