[cig-commits] r14281 - long/3D/SNAC/trunk/Snac/plugins/hillSlope
cstark at geodynamics.org
cstark at geodynamics.org
Mon Mar 9 19:41:52 PDT 2009
Author: cstark
Date: 2009-03-09 19:41:50 -0700 (Mon, 09 Mar 2009)
New Revision: 14281
Modified:
long/3D/SNAC/trunk/Snac/plugins/hillSlope/CreateWeakPoints.c
Log:
Minor change to reporting (less verbose) in hillSlope CreateWeakPoints.
Modified: long/3D/SNAC/trunk/Snac/plugins/hillSlope/CreateWeakPoints.c
===================================================================
--- long/3D/SNAC/trunk/Snac/plugins/hillSlope/CreateWeakPoints.c 2009-03-10 02:39:58 UTC (rev 14280)
+++ long/3D/SNAC/trunk/Snac/plugins/hillSlope/CreateWeakPoints.c 2009-03-10 02:41:50 UTC (rev 14281)
@@ -190,7 +190,7 @@
* - i.e., randomize the index list
*/
ShellSort( randomNumberListPtr, shuffleIndexListPtr, numberSubDomainPoints );
-#ifdef DEBUG
+#ifdef DEBUG2
for(index = 0; index < numberSubDomainPoints; index++) {
Journal_Printf( context->snacInfo, "\t Subdomain point #%d = %d, RNG var=%d\n",
index, shuffleIndexListPtr[index],randomNumberListPtr[index] );
@@ -208,7 +208,7 @@
for(index = 0; index < numberWeakPoints; index++) {
element_lI = shuffleIndexListPtr[index];
-#ifdef DEBUG
+#ifdef DEBUG2
Journal_Printf(context->snacInfo, "Shuffled weak point # %d -> %d \n", index, element_lI);
#endif
@@ -226,7 +226,7 @@
plasticElement = ExtensionManager_Get( mesh->elementExtensionMgr, element, SnacPlastic_ElementHandle );
for( tetra_I = 0; tetra_I < Tetrahedra_Count; tetra_I++ ) {
plasticElement->plasticStrain[tetra_I] = PlasticStrainFromCohesion(material,(double)contextExt->weakPointCohesion);
-#ifdef DEBUG
+#ifdef DEBUG2
if(tetra_I==0) Journal_Printf( context->snacInfo,"timeStep=%d et=%d %d plasticE: %e -> %e\n",context->timeStep, element_lI, tetra_I, material->plstrain[1], plasticElement->plasticStrain[tetra_I] );
#endif
More information about the CIG-COMMITS
mailing list