Changeset 3483 for palm/trunk/SOURCE/cpulog_mod.f90

Timestamp:

Nov 2, 2018 2:19:26 PM (5 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:

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

palm/trunk/SOURCE/cpulog_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! output format limited to a maximum line length of 80
+! 
+! 3229 2018-09-04 15:05:36Z sward
 ! Bugfix in maximum time spent per log point: PE 0 was beeing ignored.
 ! 
@@ -587 +590 @@
    101 FORMAT (/'special measures:'/ &
                &'-----------------------------------------------------------', &
-               &'------------------------')
-
-   102 FORMAT (A25,2X,F9.3,2X,F7.2,1X,I7,3(1X,F9.3))
+               &'---------------------')
+
+   102 FORMAT (A25,2X,F9.3,2X,F7.2,1X,I7,2(1X,F9.3),1X,F5.2)
    103 FORMAT (/'Barriers are set in front of collective operations')
    104 FORMAT (/'No barriers are set in front of collective operations')
@@ -595 +598 @@
    106 FORMAT (/'Exchange of ghostpoints via MPI_ISEND/MPI_IRECV')
    107 FORMAT (//)
-   110 FORMAT ('-------------------------------------------------------------',     &
-               &'---------'//&
-               &'place:                              mean        counts      min  ',&
-               &'     max       rms'/ &
-               &'                                sec.      %                sec. ', &
-               &'     sec.      sec.'/  &
-               &'-----------------------------------------------------------',      &
-               &'------------------------')
+   110 FORMAT ('------------------------------------------------------------', &
+               &'----------'//                                                 &
+               &'place:                              mean        counts     ', &
+               &' min       max    rms'/                                       &
+               &'                                sec.      %                ', &
+               &'sec.      sec.   sec.'/                                       &
+               &'-----------------------------------------------------------', &
+               &'---------------------')
    111 FORMAT (/'Barriers are set at beginning (start/continue) of measurements')