Changeset 200 for palm/trunk

Timestamp:

Sep 17, 2008 9:49:06 AM (16 years ago)

Author:

raasch

Message:

format adjustments in header allowing output of larger revision numbers

File:

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

palm/trunk/SOURCE/header.f90

@@ -9 +9 @@
 ! -----------------
 ! $Id$
+!
+! 198 2008-09-17 08:55:28Z raasch
+! Format adjustments allowing output of larger revision numbers
 !
 ! 197 2008-09-16 15:29:03Z raasch
@@ -84 +87 @@
     CHARACTER (LEN=10) ::  coor_chr, host_chr
     CHARACTER (LEN=16) ::  begin_chr
-    CHARACTER (LEN=21) ::  ver_rev
+    CHARACTER (LEN=23) ::  ver_rev
     CHARACTER (LEN=40) ::  output_format
     CHARACTER (LEN=70) ::  char1, char2, dopr_chr, &
@@ -1275 +1278 @@
 
  99 FORMAT (1X,78('-'))
-100 FORMAT (/1X,'*************************',11X,42('-')/        &
-            1X,'* ',A,' *',11X,A/                               &
-            1X,'*************************',11X,42('-'))
+100 FORMAT (/1X,'***************************',9X,42('-')/        &
+            1X,'* ',A,' *',9X,A/                               &
+            1X,'***************************',9X,42('-'))
 101 FORMAT (37X,'coupled run: ',A/ &
             37X,42('-'))
-102 FORMAT (/' Date:            ',A8,11X,'Run:       ',A20/      &
-            ' Time:            ',A8,11X,'Run-No.:   ',I2.2/     &
-            ' Run on host:   ',A10)
+102 FORMAT (/' Date:              ',A8,9X,'Run:       ',A20/      &
+            ' Time:              ',A8,9X,'Run-No.:   ',I2.2/     &
+            ' Run on host:     ',A10)
 #if defined( __parallel )
-103 FORMAT (' Number of PEs:',7X,I4,11X,'Processor grid (x,y): (',I3,',',I3, &
+103 FORMAT (' Number of PEs:',8X,I5,9X,'Processor grid (x,y): (',I3,',',I3, &
               ')',1X,A)
-104 FORMAT (' Number of PEs:',7X,I4,11X,'Tasks:',I4,'   threads per task:',I4/ &
+104 FORMAT (' Number of PEs:',8X,I5,9X,'Tasks:',I4,'   threads per task:',I4/ &
               37X,'Processor grid (x,y): (',I3,',',I3,')',1X,A)
 105 FORMAT (37X,'One additional PE is used to handle'/37X,'the dvrp output!')