Changeset 16 for palm/trunk/SOURCE

Timestamp:

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

Author:

raasch

Message:

bugfixes in advec_particles and init_particles

Location:

palm/trunk/SOURCE

Files:

• advec_particles.f90 (modified) (2 diffs)
• init_particles.f90 (modified) (2 diffs)

palm/trunk/SOURCE/advec_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Bugfix: wrong if-clause from revision 1.32
 ! TEST: PRINT statements on unit 9 (commented out)
 !
@@ -2048 +2049 @@
                 ENDIF
 
-             ELSEIF ( j >= nyn )  THEN
+             ELSEIF ( j > nyn )  THEN
                 IF ( j > ny )  THEN
 !

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