[cig-commits] r6334 - mc/3D/CitcomS/trunk/lib

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-03-21 12:30:45 -0700 (Wed, 21 Mar 2007)
New Revision: 6334

Modified:
   mc/3D/CitcomS/trunk/lib/Full_tracer_advection.c
Log:
Added a safeguard against nprocx or nprocy greater than 1

Modified: mc/3D/CitcomS/trunk/lib/Full_tracer_advection.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Full_tracer_advection.c	2007-03-21 18:37:27 UTC (rev 6333)
+++ mc/3D/CitcomS/trunk/lib/Full_tracer_advection.c	2007-03-21 19:30:45 UTC (rev 6334)
@@ -1847,6 +1847,13 @@
     fprintf(E->trace.fpt,"\nTracing Activated! (proc: %d)\n",E->parallel.me);
     fprintf(E->trace.fpt,"   Allen K. McNamara 12-2003\n\n");
 
+
+    if ((E->parallel.nprocx > 1)  || (E->parallel.nprocy > 1)) {
+            fprintf(E->trace.fpt,"Sorry - Tracer code does not (yet) work if nprocx or nprocy is greater than 1\n");
+            fflush(E->trace.fpt);
+            parallel_process_termination();
+    }
+
     if (E->trace.ic_method==0)
         {
             fprintf(E->trace.fpt,"Generating New Tracer Array\n");