Ignore:
Timestamp:
Jun 29, 2017 1:31:14 PM (4 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/header.f90

    r2299 r2300  
    2525! -----------------
    2626! $Id$
     27! host-specific code removed
     28!
     29! 2299 2017-06-29 10:14:38Z maronga
    2730! Modified output for spinups
    2831!
     
    537540                          threads_per_task, pdims(1), pdims(2), TRIM( char1 )
    538541    ENDIF
    539     IF ( ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec'  .OR.    &
    540            host(1:2) == 'lc'   .OR.  host(1:3) == 'dec' )  .AND. &
    541          npex == -1  .AND.  pdims(2) == 1 )                      &
    542     THEN
    543        WRITE ( io, 106 )
    544     ELSEIF ( pdims(2) == 1 )  THEN
     542
     543    IF ( pdims(2) == 1 )  THEN
    545544       WRITE ( io, 107 )  'x'
    546545    ELSEIF ( pdims(1) == 1 )  THEN
     
    19531952              35X,'Processor grid (x,y): (',I4,',',I4,')',1X,A)
    19541953105 FORMAT (35X,'One additional PE is used to handle'/37X,'the dvrp output!')
    1955 106 FORMAT (35X,'A 1d-decomposition along x is forced'/ &
    1956             35X,'because the job is running on an SMP-cluster')
    19571954107 FORMAT (35X,'A 1d-decomposition along ',A,' is used')
    19581955108 FORMAT (35X,'Max. # of parallel I/O streams is ',I5)
Note: See TracChangeset for help on using the changeset viewer.