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

Timestamp:

Feb 27, 2020 3:24:30 PM (4 years ago)

Author:

raasch

Message:

serial (non-MPI) test case added, several bugfixes for the serial mode

File:

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

palm/trunk/SOURCE/cpulog_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives added for serial mode
+! 
+! 4378 2020-01-16 13:22:48Z Giersch
 ! Format of rms output changed to allow values >= 100
 ! 
@@ -263 +266 @@
        INTEGER(iwp)    ::  i               !< 
        INTEGER(iwp)    ::  ii(1)           !< 
+#if defined( __parallel )
        INTEGER(iwp)    ::  iii             !< 
-       INTEGER(iwp)    ::  sender          !< 
+       INTEGER(iwp)    ::  sender          !<
+#endif
        REAL(dp)       ::  average_cputime  !<
        REAL(dp), SAVE ::  norm = 1.0_dp    !<