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

[becker at geodynamics.org]

Author: becker
Date: 2007-10-10 17:03:40 -0700 (Wed, 10 Oct 2007)
New Revision: 8102

Modified:
   mc/3D/CitcomS/trunk/lib/Process_buoyancy.c
Log:
Wiser now, commented in the E->fp output 


Modified: mc/3D/CitcomS/trunk/lib/Process_buoyancy.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Process_buoyancy.c	2007-10-10 23:40:38 UTC (rev 8101)
+++ mc/3D/CitcomS/trunk/lib/Process_buoyancy.c	2007-10-11 00:03:40 UTC (rev 8102)
@@ -166,8 +166,7 @@
     } */
     if (E->parallel.me==E->parallel.nprocz-1) {
       fprintf(stderr,"surface heat flux= %f\n",sum_h[0]);
-      /* XXX */
-      fprintf(E->fp,"surface heat flux= %f\n",sum_h[0]); /* commented this back in TWB , why was it out in the first place? */
+      //fprintf(E->fp,"surface heat flux= %f\n",sum_h[0]); //commented out because E->fp is only on CPU 0 
 
       if(E->output.write_q_files > 0){
 	/* format: time heat_flow sqrt(v.v)  */