- 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_loc_generic.h90
r13024 r13056 67 67 zain(2,:) = REAL(index0, wp) 68 68 ! 69 IF( ln_timing ) CALL tic_tac(.TRUE., ld_global = .TRUE.)70 69 CALL MPI_ALLREDUCE( zain, zaout, 1, MPI_2DOUBLE_PRECISION, MPI_OPERATION ,MPI_COMM_OCE, ierror) 71 IF( ln_timing ) CALL tic_tac(.FALSE., ld_global = .TRUE.)72 70 ! 73 71 pmin = zaout(1,1)
Note: See TracChangeset
for help on using the changeset viewer.