[cig-commits] r7187 - in long/3D/Gale/trunk: .
src/Underworld/plugins/Output/DumpSwarm
walter at geodynamics.org
walter at geodynamics.org
Wed Jun 13 01:45:23 PDT 2007
Author: walter
Date: 2007-06-13 01:45:23 -0700 (Wed, 13 Jun 2007)
New Revision: 7187
Modified:
long/3D/Gale/trunk/
long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c
Log:
r1816 at earth: boo | 2007-06-08 13:39:33 -0700
In DumpSwarm, output density and alpha before the stress to make it easier to understand the output
Property changes on: long/3D/Gale/trunk
___________________________________________________________________
Name: svk:merge
- 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:1815
+ 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:1816
Modified: long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c
===================================================================
--- long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c 2007-06-13 08:45:18 UTC (rev 7186)
+++ long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c 2007-06-13 08:45:23 UTC (rev 7187)
@@ -219,12 +219,20 @@
(double)coord[2],separator);
}
/* Then print out the data */
- fprintf(fp,"%lf%s %lf%s %lf%s %lf%s %lf%s %lf%s %lf%s %lf%s %lf%s %lf\n",
- yielding,separator,viscosity,separator,
- density,separator,alpha,separator,
- stress[0],separator,stress[1],separator,
- stress[2],separator,stress[3],separator,
- stress[4],separator,stress[5]);
+ if (context->dim == 2) {
+ fprintf(fp,"%lf%s %lf%s %lf%s %lf%s %lf%s %lf%s %lf\n",
+ yielding,separator,viscosity,separator,
+ density,separator,alpha,separator,
+ stress[0],separator,stress[1],separator,
+ stress[2]);
+ } else {
+ fprintf(fp,"%lf%s %lf%s %lf%s %lf%s %lf%s %lf%s %lf%s %lf%s %lf%s %lf\n",
+ yielding,separator,viscosity,separator,
+ density,separator,alpha,separator,
+ stress[0],separator,stress[1],separator,
+ stress[2],separator,stress[3],separator,
+ stress[4],separator,stress[5]);
+ }
}
fclose(fp);
Memory_Free( filename );
More information about the cig-commits
mailing list