Changeset 114 for palm/trunk/SOURCE/advec_particles.f90

Timestamp:

Oct 10, 2007 12:03:15 AM (17 years ago)

Author:

raasch

Message:

preliminary updates for implementing buildings in poismg

File:

• palm/trunk/SOURCE/advec_particles.f90 (modified) (3 diffs)

palm/trunk/SOURCE/advec_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Bugfix: pleft/pright changed to pnorth/psouth in sendrecv of particle tail
+! numbers along y
 ! TEST: PRINT statements on unit 9 (commented out)
 !
@@ -2773 +2775 @@
           IF ( use_particle_tails )  THEN
 
-             CALL MPI_SENDRECV( trspt_count,      1, MPI_INTEGER, pleft,  0, &
-                                trnpt_count_recv, 1, MPI_INTEGER, pright, 0, &
+             CALL MPI_SENDRECV( trspt_count,      1, MPI_INTEGER, psouth, 0, &
+                                trnpt_count_recv, 1, MPI_INTEGER, pnorth, 0, &
                                 comm2d, status, ierr )
 
@@ -2850 +2852 @@
           IF ( use_particle_tails )  THEN
 
-             CALL MPI_SENDRECV( trnpt_count,      1, MPI_INTEGER, pright, 0, &
-                                trspt_count_recv, 1, MPI_INTEGER, pleft,  0, &
+             CALL MPI_SENDRECV( trnpt_count,      1, MPI_INTEGER, pnorth, 0, &
+                                trspt_count_recv, 1, MPI_INTEGER, psouth, 0, &
                                 comm2d, status, ierr )