Changeset 16 for palm/trunk


Ignore:
Timestamp:
Feb 15, 2007 1:16:47 PM (15 years ago)
Author:
raasch
Message:

bugfixes in advec_particles and init_particles

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/advec_particles.f90

    r15 r16  
    44! Actual revisions:
    55! -----------------
     6! Bugfix: wrong if-clause from revision 1.32
    67! TEST: PRINT statements on unit 9 (commented out)
    78!
     
    20482049                ENDIF
    20492050
    2050              ELSEIF ( j >= nyn )  THEN
     2051             ELSEIF ( j > nyn )  THEN
    20512052                IF ( j > ny )  THEN
    20522053!
  • palm/trunk/SOURCE/init_particles.f90

    r4 r16  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: MPI_REAL in MPI_ALLREDUCE replaced by MPI_INTEGER
    77!
    88! Former revisions:
     
    317317#if defined( __parallel )
    318318       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 )
    320320       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 )
    322322#else
    323323       total_number_of_particles = number_of_particles
Note: See TracChangeset for help on using the changeset viewer.