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

Timestamp:

Jun 29, 2017 1:31:14 PM (7 years ago)

Author:

raasch

Message:

NEC related code partly removed, host variable partly removed, host specific code completely removed, default values for host, loop_optimization and termination time_needed changed

File:

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

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! host-specific code removed
+! 
+! 2299 2017-06-29 10:14:38Z maronga
 ! Modified output for spinups
 ! 
@@ -537 +540 @@
                           threads_per_task, pdims(1), pdims(2), TRIM( char1 )
     ENDIF
-    IF ( ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec'  .OR.    &
-           host(1:2) == 'lc'   .OR.  host(1:3) == 'dec' )  .AND. &
-         npex == -1  .AND.  pdims(2) == 1 )                      &
-    THEN
-       WRITE ( io, 106 )
-    ELSEIF ( pdims(2) == 1 )  THEN
+
+    IF ( pdims(2) == 1 )  THEN
        WRITE ( io, 107 )  'x'
     ELSEIF ( pdims(1) == 1 )  THEN
@@ -1953 +1952 @@
               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)