Changeset 1725 for palm/trunk

Timestamp:

Nov 17, 2015 1:01:51 PM (9 years ago)

Author:

hoffmann

Message:

Bugfix: Processor-dependent seed for random function is generated before it is used

File:

• palm/trunk/SOURCE/lpm_init.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_init.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: Processor-dependent seed for random function is generated before it is 
+! used.
 ! 
 ! Former revisions:
@@ -475 +476 @@
        ENDDO
 
-       CALL lpm_create_particle (PHASE_INIT)
 !
 !--    Set a seed value for the random number generator to be exclusively
@@ -481 +481 @@
 !--    different on the different PEs.
        iran_part = iran_part + myid
+
+       CALL lpm_create_particle (PHASE_INIT)
 
 !