- Timestamp:
- 03/09/20 14:24:28 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/parallel/transfert_mpi.f90
r1004 r1018 661 661 call exit_profile(profile_mpi_copies) 662 662 663 call enter_profile(profile_mpi_barrier) 664 !$acc wait 665 call exit_profile(profile_mpi_barrier) 666 663 667 !$omp master 664 668 do i=0, mpi_size-1 … … 668 672 669 673 call enter_profile(profile_mpi_barrier) 670 !$acc wait671 674 !$omp barrier 672 675 call exit_profile(profile_mpi_barrier)
Note: See TracChangeset
for help on using the changeset viewer.