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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! header exended to provide ensemble_member_nr if specified
 ! 
 ! Former revisions:
@@ -327 +327 @@
     ENDIF
 #endif
-    WRITE ( io, 102 )  run_date, run_identifier, run_time, runnr, &
+    IF ( ensemble_member_nr /= 0 )  THEN
+       WRITE ( io, 512 )  run_date, run_identifier, run_time, runnr,           &
+                       ADJUSTR( host_chr ), ensemble_member_nr
+    ELSE
+       WRITE ( io, 102 )  run_date, run_identifier, run_time, runnr,           &
                        ADJUSTR( host_chr )
+    ENDIF
 #if defined( __parallel )
     IF ( npex == -1  .AND.  pdims(2) /= 1 )  THEN
@@ -2138 +2143 @@
 511 FORMAT ('        Sedimentation Courant number:                  '/&
             '                               C_s   = ',F3.1,'        ')
+512 FORMAT (/' Date:                 ',A8,6X,'Run:       ',A20/      &
+            ' Time:                 ',A8,6X,'Run-No.:   ',I2.2/     &
+            ' Run on host:        ',A10,6X,'En-No.:    ',I2.2)
 
  END SUBROUTINE header