[cig-commits] r11330 - mc/3D/CitcomS/trunk/lib

[tan2 at geodynamics.org]

Author: tan2
Date: 2008-03-05 13:06:11 -0800 (Wed, 05 Mar 2008)
New Revision: 11330

Modified:
   mc/3D/CitcomS/trunk/lib/Tracer_setup.c
Log:
Write exclusive tracer time every 20 steps


Modified: mc/3D/CitcomS/trunk/lib/Tracer_setup.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Tracer_setup.c	2008-03-05 21:04:21 UTC (rev 11329)
+++ mc/3D/CitcomS/trunk/lib/Tracer_setup.c	2008-03-05 21:06:11 UTC (rev 11330)
@@ -272,16 +272,18 @@
     E->trace.istat_elements_checked=0;
     E->trace.istat1=0;
 
-    fprintf(E->trace.fpt, "STEP %d\n", E->monitor.solution_cycles);
+    /* write timing information every 20 steps */
+    if ((E->monitor.solution_cycles % 20) == 0) {
+        fprintf(E->trace.fpt, "STEP %d\n", E->monitor.solution_cycles);
 
-    fprintf(E->trace.fpt, "Tracer advecting takes %f seconds.\n",
-            E->trace.advection_time);
-    fprintf(E->trace.fpt, "|--Tracer finding takes %f seconds.\n",
-            E->trace.find_tracers_time);
-    fprintf(E->trace.fpt, "  |--Tracer exchanging takes %f seconds.\n",
-            E->trace.lost_souls_time);
+        fprintf(E->trace.fpt, "Advecting tracers takes %f seconds.\n",
+                E->trace.advection_time - E->trace.find_tracers_time);
+        fprintf(E->trace.fpt, "Finding element takes %f seconds.\n",
+                E->trace.find_tracers_time - E->trace.lost_souls_time);
+        fprintf(E->trace.fpt, "Exchanging lost tracers takes %f seconds.\n",
+                E->trace.lost_souls_time);
+    }
 
-
     if(E->control.verbose){
       fprintf(E->trace.fpt,"Number of times for all element search  %d\n",E->trace.istat1);
 
@@ -314,9 +316,9 @@
 
         }
       }
+      fflush(E->trace.fpt);
     }
 
-    fflush(E->trace.fpt);
     return;
 }