[cig-commits] r4790 - in long/3D/Gale/trunk: .
src/Underworld/plugins/Output/DumpSwarm
walter at geodynamics.org
walter at geodynamics.org
Wed Oct 11 13:20:49 PDT 2006
Author: walter
Date: 2006-10-11 13:20:49 -0700 (Wed, 11 Oct 2006)
New Revision: 4790
Modified:
long/3D/Gale/trunk/
long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c
Log:
r710 at earth: boo | 2006-10-11 12:11:17 -0700
Fix DumpSwarm to actually print out how much strain weakening the material has gone through
Property changes on: long/3D/Gale/trunk
___________________________________________________________________
Name: svk:merge
- 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:706
+ 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:710
Modified: long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c
===================================================================
--- long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c 2006-10-11 20:01:04 UTC (rev 4789)
+++ long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c 2006-10-11 20:20:49 UTC (rev 4790)
@@ -105,7 +105,7 @@
Rheology_Index rheology_I;
Rheology_Index rheologyCount;
- FaultingMoresiMuhlhaus2006* rheology;
+ YieldRheology* rheology;
double *coord;
@@ -134,7 +134,7 @@
/* Loop over all of the rheologies for a particle. */
for( rheology_I = 0; rheology_I < rheologyCount ; rheology_I++ ) {
- rheology = (FaultingMoresiMuhlhaus2006*)Rheology_Register_GetByIndex( rheology_register, rheology_I );
+ rheology = (YieldRheology*)Rheology_Register_GetByIndex( rheology_register, rheology_I );
/* We are only interested in whether a particle has
yielded, so we only look at yielding rheologies */
@@ -145,7 +145,7 @@
coord = materialparticle->coord;
if (context->dim == 2) {
- Journal_Printf(stream,"%lf %lf ",(double)coord[0],(double)coord[1]);
+ Journal_Printf(stream,"%lf %lf 0.0 ",(double)coord[0],(double)coord[1]);
} else {
Journal_Printf(stream,"%lf %lf %lf ",(double)coord[0],(double)coord[1],
(double)coord[2]);
@@ -156,9 +156,10 @@
}
else
{
- Journal_Printf(stream,"%d\n",(*(Particle_Bool*)ExtensionManager_Get( (materialSwarm)->particleExtensionMgr,
- (materialparticle),
- (rheology)->hasYieldedParticleExtHandle )));
+ Journal_Printf
+ (stream,"%lf\n",
+ StrainWeakening_CalcRatio(rheology->strainWeakening,
+ materialparticle));
}
}
}
More information about the cig-commits
mailing list