[cig-commits] r7906 - mc/3D/CitcomS/trunk/lib
tan2 at geodynamics.org
tan2 at geodynamics.org
Wed Aug 29 13:47:28 PDT 2007
Author: tan2
Date: 2007-08-29 13:47:28 -0700 (Wed, 29 Aug 2007)
New Revision: 7906
Modified:
mc/3D/CitcomS/trunk/lib/Advection_diffusion.c
Log:
Minor fix
Modified: mc/3D/CitcomS/trunk/lib/Advection_diffusion.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Advection_diffusion.c 2007-08-29 19:33:41 UTC (rev 7905)
+++ mc/3D/CitcomS/trunk/lib/Advection_diffusion.c 2007-08-29 20:47:28 UTC (rev 7906)
@@ -902,13 +902,13 @@
total_visc_heating = total_heating(E, E->heating_visc);
total_adi_heating = total_heating(E, E->heating_adi);
- if(E->parallel.me == 0)
+ if(E->parallel.me == 0) {
fprintf(E->fp, "Step: %d, Total_heating(visc, adi): %g %g\n",
E->monitor.solution_cycles,
total_visc_heating, total_adi_heating);
fprintf(stderr, "Step: %d, Total_heating(visc, adi): %g %g\n",
E->monitor.solution_cycles,
total_visc_heating, total_adi_heating);
-
+ }
return;
}
More information about the cig-commits
mailing list