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


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • src/mpi_mod.f90

    r3b80e98 r79abee9  
    20232023      if (mp_ierr /= 0) goto 600
    20242024    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, &
    20262026           & mp_comm_used, mp_ierr)
    20272027    end if
     
    20452045      if (mp_ierr /= 0) goto 600
    20462046    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, &
    20482048           & mp_comm_used,mp_ierr)
    20492049    end if
     
    20992099      if (mp_ierr /= 0) goto 600
    21002100    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, &
    21022102           & mp_comm_used, mp_ierr)
    21032103    end if
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG