Changeset 1429 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Jul 15, 2014 12:53:45 PM (10 years ago)

Author:

knoop

Message:

Ensemble run capability added to parallel random number generator.

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! run_description_header exended to provide ensemble_member_nr if specified
 ! 
 ! Former revisions:
@@ -510 +510 @@
     ENDIF       
 
-    WRITE ( run_description_header,                                        &
-                             '(A,2X,A,2X,A,A,A,I2.2,A,2X,A,A,2X,A,1X,A)' ) &
-              TRIM( version ), TRIM( revision ), 'run: ',                  &
-              TRIM( run_identifier ), '.', runnr, TRIM( coupling_string ), &
+    IF ( ensemble_member_nr /= 0 )  THEN
+       WRITE ( run_description_header,                                         &
+                  '(A,2X,A,2X,A,A,A,I2.2,A,2X,A,I2.2,2X,A,A,2X,A,1X,A)' )      &
+              TRIM( version ), TRIM( revision ), 'run: ',                      &
+              TRIM( run_identifier ), '.', runnr, TRIM( coupling_string ),     &
+              'en-no: ', ensemble_member_nr,'host: ', TRIM( host ),            &
+              run_date, run_time
+    ELSE
+       WRITE ( run_description_header,                                         &
+                  '(A,2X,A,2X,A,A,A,I2.2,A,2X,A,A,2X,A,1X,A)' )                &
+              TRIM( version ), TRIM( revision ), 'run: ',                      &
+              TRIM( run_identifier ), '.', runnr, TRIM( coupling_string ),     &
               'host: ', TRIM( host ), run_date, run_time
-
+    ENDIF
 !
 !-- Check the general loop optimization method