[cig-commits] r4944 - in long/3D/Gale/trunk/src/Underworld: . plugins/EulerDeform

walter at geodynamics.org walter at geodynamics.org
Wed Oct 11 13:54:40 PDT 2006


Author: walter
Date: 2006-10-11 13:54:39 -0700 (Wed, 11 Oct 2006)
New Revision: 4944

Modified:
   long/3D/Gale/trunk/src/Underworld/
   long/3D/Gale/trunk/src/Underworld/plugins/EulerDeform/EulerDeform.c
Log:
 r604 at earth:  boo | 2006-10-11 13:52:12 -0700
  r566 at earth (orig r343):  LukeHodkinson | 2006-10-04 19:56:19 -0700
  Removed a debugging hack.
  
 



Property changes on: long/3D/Gale/trunk/src/Underworld
___________________________________________________________________
Name: svk:merge
   - 9570c393-cf10-0410-b476-9a651db1e55a:/cig:603
c24a034b-ab11-0410-afe6-cfe714e2959e:/trunk:342
   + 9570c393-cf10-0410-b476-9a651db1e55a:/cig:604
c24a034b-ab11-0410-afe6-cfe714e2959e:/trunk:343

Modified: long/3D/Gale/trunk/src/Underworld/plugins/EulerDeform/EulerDeform.c
===================================================================
--- long/3D/Gale/trunk/src/Underworld/plugins/EulerDeform/EulerDeform.c	2006-10-11 20:54:37 UTC (rev 4943)
+++ long/3D/Gale/trunk/src/Underworld/plugins/EulerDeform/EulerDeform.c	2006-10-11 20:54:39 UTC (rev 4944)
@@ -307,36 +307,6 @@
 		for( var_i = 0; var_i < sys->nFields; var_i++ ) {
 			FeVariable_SyncShadowValues( sys->fields[var_i] );
 		}
-
-		/*
-		** HACK: Dump mesh coordinates.
-		*/
-		{
-			MeshTopology*	topo = sys->mesh->topo;
-			char		fname[100];
-			FILE*		out;
-			unsigned	n_i;
-
-			sprintf( fname, "%s.%d", sys->mesh->name, topo->domains[0]->commTopo->rank );
-			out = fopen( fname, "w" );
-
-			fprintf( out, "%d\n", topo->nDims );
-
-			for( n_i = 0; n_i < sys->mesh->nodeLocalCount; n_i++ ) {
-				unsigned	gInd;
-
-				gInd = Mesh_NodeMapLocalToGlobal( sys->mesh, n_i );
-				fprintf( out, "%d: %lf, %lf", gInd, sys->mesh->nodeCoord[n_i][0], sys->mesh->nodeCoord[n_i][1] );
-				if( topo->nDims > 2 )
-					fprintf( out, ", %lf", sys->mesh->nodeCoord[n_i][2] );
-				fprintf( out, "\n" );
-			}
-
-			fclose( out );
-		}
-		/*
-		** END HACK
-		*/
 	}
 }
 



More information about the cig-commits mailing list