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/cpulog_mod.f90

    r2101 r2118  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! OpenACC relevant code removed
    2323!
    2424! Former revisions:
     
    401401                             average_cputime
    402402
    403           IF ( num_acc_per_node /= 0 )  WRITE ( 18, 108 )  num_acc_per_node
    404403          WRITE ( 18, 110 )
    405404#else
     
    409408                             average_cputime
    410409
    411           IF ( num_acc_per_node /= 0 )  WRITE ( 18, 109 )  num_acc_per_node
    412410          WRITE ( 18, 110 )
    413411#endif
     
    565563   106 FORMAT (/'Exchange of ghostpoints via MPI_ISEND/MPI_IRECV')
    566564   107 FORMAT (//)
    567    108 FORMAT ('Accelerator boards per node: ',14X,I2)
    568    109 FORMAT ('Accelerator boards: ',23X,I2)
    569565   110 FORMAT ('-------------------------------------------------------------',     &
    570566               &'---------'//&
Note: See TracChangeset for help on using the changeset viewer.