- Timestamp:
- Jun 20, 2016, 4:08:51 PM (8 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- f28aa0a
- Parents:
- ed82e08
- Location:
- src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART_MPI.f90
r32b49c3 r79abee9 454 454 else 455 455 if (mp_partgroup_pid.ge.0) then ! Skip for readwind process 456 call MPI_Reduce(tot_blc_count, tot_blc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &456 call MPI_Reduce(tot_blc_count, 0, 1, MPI_INTEGER8, MPI_SUM, id_root, & 457 457 & mp_comm_used, mp_ierr) 458 call MPI_Reduce(tot_inc_count, tot_inc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &458 call MPI_Reduce(tot_inc_count, 0, 1, MPI_INTEGER8, MPI_SUM, id_root, & 459 459 & mp_comm_used, mp_ierr) 460 460 end if -
src/mpi_mod.f90
r3b80e98 r79abee9 2023 2023 if (mp_ierr /= 0) goto 600 2024 2024 else 2025 call MPI_Reduce(gridunc, gridunc, grid_size3d, mp_sp, MPI_SUM, id_root, &2025 call MPI_Reduce(gridunc, 0, grid_size3d, mp_sp, MPI_SUM, id_root, & 2026 2026 & mp_comm_used, mp_ierr) 2027 2027 end if … … 2045 2045 if (mp_ierr /= 0) goto 600 2046 2046 else 2047 call MPI_Reduce(creceptor, creceptor,rcpt_size,mp_sp,MPI_SUM,id_root, &2047 call MPI_Reduce(creceptor,0,rcpt_size,mp_sp,MPI_SUM,id_root, & 2048 2048 & mp_comm_used,mp_ierr) 2049 2049 end if … … 2099 2099 if (mp_ierr /= 0) goto 600 2100 2100 else 2101 call MPI_Reduce(griduncn, griduncn, grid_size3d, mp_sp, MPI_SUM, id_root, &2101 call MPI_Reduce(griduncn, 0, grid_size3d, mp_sp, MPI_SUM, id_root, & 2102 2102 & mp_comm_used, mp_ierr) 2103 2103 end if
Note: See TracChangeset
for help on using the changeset viewer.