Changeset 1400 for palm/trunk/SOURCE/write_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/write_3d_binary.f90 (modified) (3 diffs)

palm/trunk/SOURCE/write_3d_binary.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! writing of arrays for random_generator_parallel added
 ! 
 ! Former revisions:
@@ -91 +91 @@
     USE random_function_mod,                                                   &
         ONLY:  random_iv, random_iy
+
+    USE random_generator_parallel,                                             &
+        ONLY:  id_random_array, seq_random_array
         
     USE statistics,                                                            &
@@ -223 +226 @@
     WRITE ( 14 )  'random_iv           ';  WRITE ( 14 )  random_iv
                                            WRITE ( 14 )  random_iy
+    IF ( ALLOCATED( seq_random_array ) )  THEN
+    WRITE ( 14 )  'seq_random_array    ';  WRITE ( 14 )  id_random_array
+                                           WRITE ( 14 )  seq_random_array
+    ENDIF
     WRITE ( 14 )  'rif                 ';  WRITE ( 14 )  rif
     IF ( topography /= 'flat' )  THEN