Changeset 3224 for palm/trunk/SOURCE/header.f90

Timestamp:

Aug 30, 2018 4:06:58 PM (6 years ago)

Author:

kanani

Message:

Fix for progress bar, minor changes

File:

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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Increase printed length of run identifier
 ! 
 ! Former revisions:
@@ -2057 +2057 @@
 101 FORMAT (35X,'coupled run: ',A/ &
             35X,42('-'))
-102 FORMAT (/' Date:                 ',A8,4X,'Run:       ',A20/      &
+102 FORMAT (/' Date:                 ',A8,4X,'Run:       ',A34/      &
             ' Time:                 ',A8,4X,'Run-No.:   ',I2.2/     &
             ' Run on host:        ',A10)
@@ -2477 +2477 @@
 511 FORMAT ('    Sedimentation Courant number:                  '/&
             '                               C_s   =',F4.1,'        ')
-512 FORMAT (/' Date:                 ',A8,6X,'Run:       ',A20/      &
+512 FORMAT (/' Date:                 ',A8,6X,'Run:       ',A34/      &
             ' Time:                 ',A8,6X,'Run-No.:   ',I2.2/     &
             ' Run on host:        ',A10,6X,'En-No.:    ',I2.2)