Changeset 16 for palm/trunk
- Timestamp:
- Feb 15, 2007 1:16:47 PM (18 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_particles.f90
r15 r16 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! Bugfix: wrong if-clause from revision 1.32 6 7 ! TEST: PRINT statements on unit 9 (commented out) 7 8 ! … … 2048 2049 ENDIF 2049 2050 2050 ELSEIF ( j > =nyn ) THEN2051 ELSEIF ( j > nyn ) THEN 2051 2052 IF ( j > ny ) THEN 2052 2053 ! -
palm/trunk/SOURCE/init_particles.f90
r4 r16 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! Bugfix: MPI_REAL in MPI_ALLREDUCE replaced by MPI_INTEGER 7 7 ! 8 8 ! Former revisions: … … 317 317 #if defined( __parallel ) 318 318 CALL MPI_ALLREDUCE( number_of_particles, total_number_of_particles, 1, & 319 MPI_ REAL, MPI_SUM, comm2d, ierr )319 MPI_INTEGER, MPI_SUM, comm2d, ierr ) 320 320 CALL MPI_ALLREDUCE( number_of_tails, total_number_of_tails, 1, & 321 MPI_ REAL, MPI_SUM, comm2d, ierr )321 MPI_INTEGER, MPI_SUM, comm2d, ierr ) 322 322 #else 323 323 total_number_of_particles = number_of_particles
Note: See TracChangeset
for help on using the changeset viewer.