Changeset 16 for palm/trunk/SOURCE/init_particles.f90

Timestamp:

Feb 15, 2007 1:16:47 PM (17 years ago)

Author:

raasch

Message:

bugfixes in advec_particles and init_particles

File:

• palm/trunk/SOURCE/init_particles.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: MPI_REAL in MPI_ALLREDUCE replaced by MPI_INTEGER
 !
 ! Former revisions:
@@ -317 +317 @@
 #if defined( __parallel )
        CALL MPI_ALLREDUCE( number_of_particles, total_number_of_particles, 1, &
-                           MPI_REAL, MPI_SUM, comm2d, ierr )
+                           MPI_INTEGER, MPI_SUM, comm2d, ierr )
        CALL MPI_ALLREDUCE( number_of_tails, total_number_of_tails, 1, &
-                           MPI_REAL, MPI_SUM, comm2d, ierr )
+                           MPI_INTEGER, MPI_SUM, comm2d, ierr )
 #else
        total_number_of_particles = number_of_particles