[cig-commits] r6371 - in long/3D/Gale/trunk: . src/Underworld/plugins/Output/DumpSwarm

[walter at geodynamics.org]

Author: walter
Date: 2007-03-23 12:41:34 -0700 (Fri, 23 Mar 2007)
New Revision: 6371

Modified:
   long/3D/Gale/trunk/
   long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c
Log:
 r1737 at earth:  boo | 2007-03-23 12:38:28 -0700
 Make DumpSwarm work in parallel



Property changes on: long/3D/Gale/trunk
___________________________________________________________________
Name: svk:merge
   - 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:1735
   + 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:1737

Modified: long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c
===================================================================
--- long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c	2007-03-23 19:37:24 UTC (rev 6370)
+++ long/3D/Gale/trunk/src/Underworld/plugins/Output/DumpSwarm/DumpSwarm.c	2007-03-23 19:41:34 UTC (rev 6371)
@@ -106,6 +106,8 @@
         Rheology_Register*      rheology_register;
 
         Name filename;
+        int myRank;
+        MPI_Comm comm;
         Stream*           stream;
 
         Rheology_Index      rheology_I; 
@@ -128,8 +130,13 @@
         if(!strcmp(format,"csv"))
           strcpy(separator,",");
 
+        comm=CommTopology_GetComm( Mesh_GetCommTopology(picswarm->mesh,
+                                                        MT_VERTEX));
+	MPI_Comm_rank( comm, (int*)&myRank );
+
         stream = Journal_Register( MPIStream_Type, Swarm_Type );
-        Stg_asprintf( &filename, "%s/particles.%05d.%s", context->outputPath,
+        Stg_asprintf( &filename, "%s/particles.%d.%05d.%s",
+                      context->outputPath, myRank,
                       context->timeStep, format );
         Stream_RedirectFile( stream, filename );