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

Timestamp:

Aug 16, 2007 2:30:26 PM (17 years ago)

Author:

raasch

Message:

preliminary update of bugfixes and extensions for non-cyclic BCs

File:

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

palm/trunk/SOURCE/advec_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! remaining variables iran changed to iran_part
 ! TEST: PRINT statements on unit 9 (commented out)
 !
@@ -1955 +1955 @@
                    THEN
                       particles(n)%x = particles(n)%x + &
-                                       ( random_function( iran ) - 0.5 ) * &
+                                       ( random_function( iran_part ) - 0.5 ) *&
                                        pdx(particles(n)%group)
                       IF ( particles(n)%x  <=  ( nxl - 0.5 ) * dx )  THEN
@@ -1966 +1966 @@
                    THEN
                       particles(n)%y = particles(n)%y + &
-                                       ( random_function( iran ) - 0.5 ) * &
+                                       ( random_function( iran_part ) - 0.5 ) *&
                                        pdy(particles(n)%group)
                       IF ( particles(n)%y  <=  ( nys - 0.5 ) * dy )  THEN
@@ -1977 +1977 @@
                    THEN
                       particles(n)%z = particles(n)%z + &
-                                       ( random_function( iran ) - 0.5 ) * &
+                                       ( random_function( iran_part ) - 0.5 ) *&
                                        pdz(particles(n)%group)
                    ENDIF