Changeset 64 for palm


Ignore:
Timestamp:
Mar 13, 2007 4:51:14 AM (18 years ago)
Author:
raasch
Message:

sendrecv adjustments in advec_particles

File:
1 edited

Legend:

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

    r63 r64  
    77! particle_boundary_conds,
    88! vertical walls are regarded in the SGS model,
    9 ! + user_advec_particles, particles-package is now part of the defaut code
     9! + user_advec_particles, particles-package is now part of the defaut code,
     10! array arguments in sendrecv calls have to refer to first element (1) due to
     11! mpich (mpiI) interface requirements
    1012! TEST: PRINT statements on unit 9 (commented out)
    1113!
     
    23152317          ENDIF
    23162318
    2317           CALL MPI_SENDRECV( trlp(1), trlp_count, mpi_particle_type, pleft, 1, &
    2318                              particles(number_of_particles+1), trrp_count_recv,&
    2319                              mpi_particle_type, pright, 1,                     &
     2319          CALL MPI_SENDRECV( trlp(1)%age, trlp_count, mpi_particle_type,    &
     2320                             pleft, 1, particles(number_of_particles+1)%age, &
     2321                             trrp_count_recv, mpi_particle_type, pright, 1,  &
    23202322                             comm2d, status, ierr )
    23212323
     
    23922394          ENDIF
    23932395
    2394           CALL MPI_SENDRECV( trrp(1), trrp_count, mpi_particle_type, pright, 1,&
    2395                              particles(number_of_particles+1), trlp_count_recv,&
    2396                              mpi_particle_type, pleft, 1,                      &
     2396          CALL MPI_SENDRECV( trrp(1)%age, trrp_count, mpi_particle_type,      &
     2397                             pright, 1, particles(number_of_particles+1)%age, &
     2398                             trlp_count_recv, mpi_particle_type, pleft, 1,    &
    23972399                             comm2d, status, ierr )
    23982400
     
    27562758          ENDIF
    27572759
    2758           CALL MPI_SENDRECV( trsp(1), trsp_count, mpi_particle_type, psouth, 1,&
    2759                              particles(number_of_particles+1), trnp_count_recv,&
    2760                              mpi_particle_type, pnorth, 1,                     &
     2760          CALL MPI_SENDRECV( trsp(1)%age, trsp_count, mpi_particle_type,      &
     2761                             psouth, 1, particles(number_of_particles+1)%age, &
     2762                             trnp_count_recv, mpi_particle_type, pnorth, 1,   &
    27612763                             comm2d, status, ierr )
    27622764
     
    28332835          ENDIF
    28342836
    2835           CALL MPI_SENDRECV( trnp(1), trnp_count, mpi_particle_type, pnorth, 1,&
    2836                              particles(number_of_particles+1), trsp_count_recv,&
    2837                              mpi_particle_type, psouth, 1,                     &
     2837          CALL MPI_SENDRECV( trnp(1)%age, trnp_count, mpi_particle_type,      &
     2838                             pnorth, 1, particles(number_of_particles+1)%age, &
     2839                             trsp_count_recv, mpi_particle_type, psouth, 1,   &
    28382840                             comm2d, status, ierr )
    28392841
Note: See TracChangeset for help on using the changeset viewer.