Ignore:
Timestamp:
Jan 17, 2017 4:38:49 PM (5 years ago)
Author:
raasch
Message:

all OpenACC directives and related parts removed from the code

File:
1 edited

Legend:

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

    r2101 r2118  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! OpenACC relatec code removed
    2323!
    2424! Former revisions:
     
    513513                          threads_per_task, pdims(1), pdims(2), TRIM( char1 )
    514514    ENDIF
    515     IF ( num_acc_per_node /= 0 )  WRITE ( io, 117 )  num_acc_per_node   
    516515    IF ( ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec'  .OR.    &
    517516           host(1:2) == 'lc'   .OR.  host(1:3) == 'dec' )  .AND. &
     
    528527       WRITE ( io, 108 )  maximum_parallel_io_streams
    529528    ENDIF
    530 #else
    531     IF ( num_acc_per_node /= 0 )  WRITE ( io, 120 )  num_acc_per_node
    532529#endif
    533530
     
    19151912            35X,'independent precursor runs'/             &
    19161913            35X,42('-'))
    1917 117 FORMAT (' Accelerator boards / node:  ',I2)
    19181914#endif
    19191915110 FORMAT (/' Numerical Schemes:'/ &
     
    19321928            '     translation velocity = ',A/ &
    19331929            '     distance advected ',A,':  ',F8.3,' km(x)  ',F8.3,' km(y)')
    1934 120 FORMAT (' Accelerator boards: ',8X,I2)
    19351930122 FORMAT (' --> Time differencing scheme: ',A)
    19361931123 FORMAT (' --> Rayleigh-Damping active, starts ',A,' z = ',F8.2,' m'/ &
Note: See TracChangeset for help on using the changeset viewer.