[cig-commits] r18262 - mc/3D/CitcomCU/trunk/src

[becker at geodynamics.org]

Author: becker
Date: 2011-04-21 08:31:34 -0700 (Thu, 21 Apr 2011)
New Revision: 18262

Modified:
   mc/3D/CitcomCU/trunk/src/Citcom.c
   mc/3D/CitcomCU/trunk/src/Drive_solvers.c
Log:
Removed debug statements



Modified: mc/3D/CitcomCU/trunk/src/Citcom.c
===================================================================
--- mc/3D/CitcomCU/trunk/src/Citcom.c	2011-04-21 13:04:38 UTC (rev 18261)
+++ mc/3D/CitcomCU/trunk/src/Citcom.c	2011-04-21 15:31:34 UTC (rev 18262)
@@ -113,7 +113,7 @@
 	  
 	  
 		process_heating(&E);
-		if(E.parallel.me==0)fprintf(stderr,"process heating done\n");
+		//if(E.parallel.me==0)fprintf(stderr,"process heating done\n");
 		
 		E.monitor.solution_cycles++;
 		if(E.monitor.solution_cycles > E.control.print_convergence)
@@ -131,15 +131,15 @@
 		}
 
 		general_stokes_solver(&E);
-		if(E.parallel.me==0)fprintf(stderr,"stokes solver done\n");
+		//if(E.parallel.me==0)fprintf(stderr,"stokes solver done\n");
 
 		if(E.control.composition){
 		  (E.next_buoyancy_field) (&E);	/* correct with R-G */
-		  if(E.parallel.me==0)fprintf(stderr,"next buoyancy composition done\n");
+		  //if(E.parallel.me==0)fprintf(stderr,"next buoyancy composition done\n");
 		}
 		 /**/ report(&E, "Process results of velocity solver");
 		process_new_velocity(&E, E.monitor.solution_cycles);
-		if(E.parallel.me==0)fprintf(stderr,"process new velocity done\n");
+		//if(E.parallel.me==0)fprintf(stderr,"process new velocity done\n");
 
 
 		if(E.monitor.T_interior > E.monitor.T_interior_max)

Modified: mc/3D/CitcomCU/trunk/src/Drive_solvers.c
===================================================================
--- mc/3D/CitcomCU/trunk/src/Drive_solvers.c	2011-04-21 13:04:38 UTC (rev 18261)
+++ mc/3D/CitcomCU/trunk/src/Drive_solvers.c	2011-04-21 15:31:34 UTC (rev 18262)
@@ -111,7 +111,7 @@
       get_system_viscosity(E, 1, E->EVI[E->mesh.levmax], E->VI[E->mesh.levmax]);
     
     construct_stiffness_B_matrix(E);
-    if(E->parallel.me==0)fprintf(stderr,"calling solver\n");
+    //if(E->parallel.me==0)fprintf(stderr,"calling solver\n");
 	
     solve_constrained_flow_iterative(E);
     
@@ -146,7 +146,7 @@
   if(iterate){			/* free the delta_U array */
     free((void *)delta_U);
   }
-  if(E->parallel.me==0)fprintf(stderr,"stokes solver done\n");
+  //if(E->parallel.me==0)fprintf(stderr,"stokes solver done\n");
   return;
 }