Changeset 79abee9 in flexpart.git for src/mpi_mod.f90
- 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
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.