Changeset 79abee9 in flexpart.git for src/FLEXPART_MPI.f90

Timestamp:

Jun 20, 2016, 4:08:51 PM (8 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

f28aa0a

Parents:

ed82e08

Message:

Fix for issue #151 (improper use of MPI_IN_PLACE). Also changed default RELEASES file to use SPECIES_001.

File:

• src/FLEXPART_MPI.f90 (modified) (1 diff)

src/FLEXPART_MPI.f90

@@ -454 +454 @@
   else
     if (mp_partgroup_pid.ge.0) then ! Skip for readwind process 
-      call MPI_Reduce(tot_blc_count, tot_blc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &
+      call MPI_Reduce(tot_blc_count, 0, 1, MPI_INTEGER8, MPI_SUM, id_root, &
            & mp_comm_used, mp_ierr)
-      call MPI_Reduce(tot_inc_count, tot_inc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &
+      call MPI_Reduce(tot_inc_count, 0, 1, MPI_INTEGER8, MPI_SUM, id_root, &
            & mp_comm_used, mp_ierr)
     end if