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

Timestamp:

Mar 13, 2007 3:52:49 AM (17 years ago)

Author:

raasch

Message:

preliminary changes concerning update of BC-scheme

File:

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

palm/trunk/SOURCE/advec_particles.f90

@@ -2315 +2315 @@
           ENDIF
 
-          CALL MPI_SENDRECV( trlp, trlp_count, mpi_particle_type, pleft, 1,    &
+          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,                     &
@@ -2343 +2343 @@
              ENDIF
 
-             CALL MPI_SENDRECV( trlpt, trlpt_count*tlength, MPI_REAL, pleft, 1,&
+             CALL MPI_SENDRECV( trlpt(1,1,1), trlpt_count*tlength, MPI_REAL,   &
+                                pleft, 1,                                      &
                              particle_tail_coordinates(1,1,number_of_tails+1), &
                                 trrpt_count_recv*tlength, MPI_REAL, pright, 1, &
@@ -2391 +2392 @@
           ENDIF
 
-          CALL MPI_SENDRECV( trrp, trrp_count, mpi_particle_type, pright, 1,   &
+          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,                      &
@@ -2419 +2420 @@
              ENDIF
 
-             CALL MPI_SENDRECV( trrpt, trrpt_count*tlength, MPI_REAL, pright,  &
-                          1, particle_tail_coordinates(1,1,number_of_tails+1), &
+             CALL MPI_SENDRECV( trrpt(1,1,1), trrpt_count*tlength, MPI_REAL,   &
+                                pright, 1,                                     &
+                             particle_tail_coordinates(1,1,number_of_tails+1), &
                                 trlpt_count_recv*tlength, MPI_REAL, pleft, 1,  &
                                 comm2d, status, ierr )
@@ -2754 +2756 @@
           ENDIF
 
-          CALL MPI_SENDRECV( trsp, trsp_count, mpi_particle_type, psouth, 1,   &
+          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,                     &
@@ -2782 +2784 @@
              ENDIF
 
-             CALL MPI_SENDRECV( trspt, trspt_count*tlength, MPI_REAL, psouth,  &
-                          1, particle_tail_coordinates(1,1,number_of_tails+1), &
+             CALL MPI_SENDRECV( trspt(1,1,1), trspt_count*tlength, MPI_REAL,   &
+                                psouth, 1,                                     &
+                             particle_tail_coordinates(1,1,number_of_tails+1), &
                                 trnpt_count_recv*tlength, MPI_REAL, pnorth, 1, &
                                 comm2d, status, ierr )
@@ -2830 +2833 @@
           ENDIF
 
-          CALL MPI_SENDRECV( trnp, trnp_count, mpi_particle_type, pnorth, 1,   &
+          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,                     &
@@ -2858 +2861 @@
              ENDIF
 
-             CALL MPI_SENDRECV( trnpt, trnpt_count*tlength, MPI_REAL, pnorth,  &
-                          1, particle_tail_coordinates(1,1,number_of_tails+1), &
+             CALL MPI_SENDRECV( trnpt(1,1,1), trnpt_count*tlength, MPI_REAL,   &
+                                pnorth, 1,                                     &
+                             particle_tail_coordinates(1,1,number_of_tails+1), &
                                 trspt_count_recv*tlength, MPI_REAL, psouth, 1, &
                                 comm2d, status, ierr )