Changeset 106 for palm/trunk/SOURCE/init_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/init_particles.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! variable iran replaced by iran_part
 !
 ! Former revisions:
@@ -354 +354 @@
        IF ( random_start_position )  THEN
 
-          iran = iran + myid    ! Random positions should be different on
-                                ! different PEs
-
           DO  n = 1, number_of_initial_particles
              IF ( psl(particles(n)%group) /= psr(particles(n)%group) )  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
@@ -370 +367 @@
              IF ( pss(particles(n)%group) /= psn(particles(n)%group) )  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
@@ -380 +377 @@
              IF ( psb(particles(n)%group) /= pst(particles(n)%group) )  THEN
                 particles(n)%z = particles(n)%z + &
-                                 ( random_function( iran ) - 0.5 ) * &
+                                 ( random_function( iran_part ) - 0.5 ) * &
                                  pdz(particles(n)%group)
              ENDIF