Changeset 64 for palm

Timestamp:

Mar 13, 2007 4:51:14 AM (18 years ago)

Author:

raasch

Message:

sendrecv adjustments in advec_particles

File:

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

palm/trunk/SOURCE/advec_particles.f90

@@ -7 +7 @@
 ! particle_boundary_conds,
 ! vertical walls are regarded in the SGS model,
-! + user_advec_particles, particles-package is now part of the defaut code
+! + user_advec_particles, particles-package is now part of the defaut code,
+! array arguments in sendrecv calls have to refer to first element (1) due to
+! mpich (mpiI) interface requirements 
 ! TEST: PRINT statements on unit 9 (commented out)
 !
@@ -2315 +2317 @@
           ENDIF
 
-          CALL MPI_SENDRECV( trlp(1), trlp_count, mpi_particle_type, pleft, 1, &
-                             particles(number_of_particles+1), trrp_count_recv,&
-                             mpi_particle_type, pright, 1,                     &
+          CALL MPI_SENDRECV( trlp(1)%age, trlp_count, mpi_particle_type,     &
+                             pleft, 1, particles(number_of_particles+1)%age, &
+                             trrp_count_recv, mpi_particle_type, pright, 1,  &
                              comm2d, status, ierr )
 
@@ -2392 +2394 @@
           ENDIF
 
-          CALL MPI_SENDRECV( trrp(1), trrp_count, mpi_particle_type, pright, 1,&
-                             particles(number_of_particles+1), trlp_count_recv,&
-                             mpi_particle_type, pleft, 1,                      &
+          CALL MPI_SENDRECV( trrp(1)%age, trrp_count, mpi_particle_type,      &
+                             pright, 1, particles(number_of_particles+1)%age, &
+                             trlp_count_recv, mpi_particle_type, pleft, 1,    &
                              comm2d, status, ierr )
 
@@ -2756 +2758 @@
           ENDIF
 
-          CALL MPI_SENDRECV( trsp(1), trsp_count, mpi_particle_type, psouth, 1,&
-                             particles(number_of_particles+1), trnp_count_recv,&
-                             mpi_particle_type, pnorth, 1,                     &
+          CALL MPI_SENDRECV( trsp(1)%age, trsp_count, mpi_particle_type,      &
+                             psouth, 1, particles(number_of_particles+1)%age, &
+                             trnp_count_recv, mpi_particle_type, pnorth, 1,   &
                              comm2d, status, ierr )
 
@@ -2833 +2835 @@
           ENDIF
 
-          CALL MPI_SENDRECV( trnp(1), trnp_count, mpi_particle_type, pnorth, 1,&
-                             particles(number_of_particles+1), trsp_count_recv,&
-                             mpi_particle_type, psouth, 1,                     &
+          CALL MPI_SENDRECV( trnp(1)%age, trnp_count, mpi_particle_type,      &
+                             pnorth, 1, particles(number_of_particles+1)%age, &
+                             trsp_count_recv, mpi_particle_type, psouth, 1,   &
                              comm2d, status, ierr )