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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Check random generator extended by option random-parallel
 ! 
 ! Former revisions:
@@ -3485 +3485 @@
 !
 !-- Check random generator
-    IF ( random_generator /= 'system-specific'  .AND. &
-         random_generator /= 'numerical-recipes' )  THEN
+    IF ( (random_generator /= 'system-specific'     .AND.                      &
+          random_generator /= 'random-parallel'   ) .AND.                      &
+          random_generator /= 'numerical-recipes' )  THEN
        message_string = 'unknown random generator: random_generator = "' // &
                         TRIM( random_generator ) // '"'