Ignore:
Timestamp:
Nov 2, 2018 2:19:26 PM (4 years ago)
Author:
raasch
Message:

bugfix: misplaced positions of cpp-directives for netCDF and MPI fixed; output format limited to a maximum line length of 80

File:
1 edited

Legend:

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

    r3229 r3483  
    2525! -----------------
    2626! $Id$
     27! output format limited to a maximum line length of 80
     28!
     29! 3229 2018-09-04 15:05:36Z sward
    2730! Bugfix in maximum time spent per log point: PE 0 was beeing ignored.
    2831!
     
    587590   101 FORMAT (/'special measures:'/ &
    588591               &'-----------------------------------------------------------', &
    589                &'------------------------')
    590 
    591    102 FORMAT (A25,2X,F9.3,2X,F7.2,1X,I7,3(1X,F9.3))
     592               &'---------------------')
     593
     594   102 FORMAT (A25,2X,F9.3,2X,F7.2,1X,I7,2(1X,F9.3),1X,F5.2)
    592595   103 FORMAT (/'Barriers are set in front of collective operations')
    593596   104 FORMAT (/'No barriers are set in front of collective operations')
     
    595598   106 FORMAT (/'Exchange of ghostpoints via MPI_ISEND/MPI_IRECV')
    596599   107 FORMAT (//)
    597    110 FORMAT ('-------------------------------------------------------------',    &
    598                &'---------'//&
    599                &'place:                              mean        counts      min  ',&
    600                &'     max       rms'/ &
    601                &'                                sec.      %                sec. ', &
    602                &'     sec.      sec.'/  &
    603                &'-----------------------------------------------------------',      &
    604                &'------------------------')
     600   110 FORMAT ('------------------------------------------------------------', &
     601               &'----------'//                                                 &
     602               &'place:                              mean        counts     ', &
     603               &' min       max    rms'/                                      &
     604               &'                                sec.      %                ', &
     605               &'sec.      sec.   sec.'/                                       &
     606               &'-----------------------------------------------------------', &
     607               &'---------------------')
    605608   111 FORMAT (/'Barriers are set at beginning (start/continue) of measurements')
    606609
Note: See TracChangeset for help on using the changeset viewer.