- Timestamp:
- 2020-06-07T18:26:09+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mpp_allreduce_generic.h90
r12414 r13056 61 61 ! 62 62 ALLOCATE(work(ipi)) 63 IF( ln_timing ) CALL tic_tac(.TRUE., ld_global = .TRUE.)64 63 CALL mpi_allreduce( ARRAY_IN(:), work, ipi, MPI_TYPE, MPI_OPERATION, ilocalcomm, ierror ) 65 IF( ln_timing ) CALL tic_tac(.FALSE., ld_global = .TRUE.)66 64 DO ii = 1, ipi 67 65 ARRAY_IN(ii) = work(ii)
Note: See TracChangeset
for help on using the changeset viewer.