Changeset 222 for palm/trunk/SOURCE/cpu_statistics.f90

Timestamp:

Jan 12, 2009 4:04:16 PM (15 years ago)

Author:

letzel

Message:

• Bugfixes for nonparallel execution

File:

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

palm/trunk/SOURCE/cpu_statistics.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix for nonparallel execution
 !
 ! Former revisions:
@@ -125 +125 @@
 !--    Write cpu-times sorted by size
        CALL check_open( 18 )
+#if defined( __parallel )
        WRITE ( 18, 100 )  TRIM( run_description_header ),        &
                           numprocs * threads_per_task, pdims(1), pdims(2), &
                           threads_per_task
+#else
+       WRITE ( 18, 100 )  TRIM( run_description_header ),        &
+                          numprocs * threads_per_task, 1, 1, &
+                          threads_per_task
+#endif
        DO
           ii = MAXLOC( sum )