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

Timestamp:

Feb 15, 2007 1:16:47 PM (17 years ago)

Author:

raasch

Message:

bugfixes in advec_particles and init_particles

File:

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

palm/trunk/SOURCE/advec_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Bugfix: wrong if-clause from revision 1.32
 ! TEST: PRINT statements on unit 9 (commented out)
 !
@@ -2048 +2049 @@
                 ENDIF
 
-             ELSEIF ( j >= nyn )  THEN
+             ELSEIF ( j > nyn )  THEN
                 IF ( j > ny )  THEN
 !