Changeset 1400 for palm/trunk/SOURCE/read_3d_binary.f90

Timestamp:

May 9, 2014 2:03:54 PM (10 years ago)

Author:

knoop

Message:

Parallel random number generator added (preliminary version).

File:

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

palm/trunk/SOURCE/read_3d_binary.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! reading of arrays for random_generator_parallel added
 !
 ! Former revisions:
@@ -95 +95 @@
     USE random_function_mod,                                                   &
         ONLY:  random_iv, random_iy
+
+    USE random_generator_parallel,                                             &
+        ONLY:  id_random_array, seq_random_array
 
     USE statistics,                                                            &
@@ -681 +684 @@
                    IF ( k == 1 )  READ ( 13 )  random_iv
                    IF ( k == 1 )  READ ( 13 )  random_iy
+                   
+                CASE ( 'seq_random_array' )  ! still unresolved issue
+                   IF ( k == 1 )  READ ( 13 )  id_random_array
+                   IF ( k == 1 )  READ ( 13 )  seq_random_array
 
                 CASE ( 'rho_av' )