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

Timestamp:

Mar 22, 2007 9:54:05 AM (17 years ago)

Author:

raasch

Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:

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

palm/trunk/SOURCE/advec_particles.f90

@@ -9 +9 @@
 ! + 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 
+! mpich (mpiI) interface requirements,
+! 2nd+3rd argument removed from exchange horiz
 ! TEST: PRINT statements on unit 9 (commented out)
 !
@@ -662 +663 @@
 !
 !--    Lateral boundary conditions
-       CALL exchange_horiz( de_dx, 0, 0 )
-       CALL exchange_horiz( de_dy, 0, 0 )
-       CALL exchange_horiz( de_dz, 0, 0 )
-       CALL exchange_horiz( diss,  0, 0 )
+       CALL exchange_horiz( de_dx )
+       CALL exchange_horiz( de_dy )
+       CALL exchange_horiz( de_dz )
+       CALL exchange_horiz( diss  )
 
 !