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

Timestamp:

Sep 24, 2014 2:06:57 PM (10 years ago)

Author:

maronga

Message:

New flag files allow to force unscheduled termination/restarts of batch jobs, progress output is made for batch runs, small adjustments for lxce6 and lccrayh/lccrayb

File:

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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Adapted for use on up to 6-digit processor cores
 ! 
 ! Former revisions:
@@ -1694 +1694 @@
 
  99 FORMAT (1X,78('-'))
-100 FORMAT (/1X,'******************************',6X,42('-')/        &
-            1X,'* ',A,' *',6X,A/                               &
-            1X,'******************************',6X,42('-'))
-101 FORMAT (37X,'coupled run using MPI-',I1,': ',A/ &
-            37X,42('-'))
-102 FORMAT (/' Date:                 ',A8,6X,'Run:       ',A20/      &
-            ' Time:                 ',A8,6X,'Run-No.:   ',I2.2/     &
+100 FORMAT (/1X,'******************************',4X,44('-')/        &
+            1X,'* ',A,' *',4X,A/                               &
+            1X,'******************************',4X,44('-'))
+101 FORMAT (35X,'coupled run using MPI-',I1,': ',A/ &
+            35X,42('-'))
+102 FORMAT (/' Date:                 ',A8,4X,'Run:       ',A20/      &
+            ' Time:                 ',A8,4X,'Run-No.:   ',I2.2/     &
             ' Run on host:        ',A10)
 #if defined( __parallel )
-103 FORMAT (' Number of PEs:',10X,I6,6X,'Processor grid (x,y): (',I3,',',I3, &
+103 FORMAT (' Number of PEs:',10X,I6,4X,'Processor grid (x,y): (',I4,',',I4, &
               ')',1X,A)
-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!')
-106 FORMAT (37X,'A 1d-decomposition along x is forced'/ &
-            37X,'because the job is running on an SMP-cluster')
-107 FORMAT (37X,'A 1d-decomposition along ',A,' is used')
-108 FORMAT (37X,'Max. # of parallel I/O streams is ',I5)
-109 FORMAT (37X,'Precursor run for coupled atmos-ocean run'/ &
-            37X,42('-'))
-114 FORMAT (37X,'Coupled atmosphere-ocean run following'/ &
-            37X,'independent precursor runs'/             &
-            37X,42('-'))
+104 FORMAT (' Number of PEs:',10X,I6,4X,'Tasks:',I4,'   threads per task:',I4/ &
+              35X,'Processor grid (x,y): (',I4,',',I4,')',1X,A)
+105 FORMAT (35X,'One additional PE is used to handle'/37X,'the dvrp output!')
+106 FORMAT (35X,'A 1d-decomposition along x is forced'/ &
+            35X,'because the job is running on an SMP-cluster')
+107 FORMAT (35X,'A 1d-decomposition along ',A,' is used')
+108 FORMAT (35X,'Max. # of parallel I/O streams is ',I5)
+109 FORMAT (35X,'Precursor run for coupled atmos-ocean run'/ &
+            35X,42('-'))
+114 FORMAT (35X,'Coupled atmosphere-ocean run following'/ &
+            35X,'independent precursor runs'/             &
+            35X,42('-'))
 117 FORMAT (' Accelerator boards / node:  ',I2)
 #endif