[cig-commits] r6682 - mc/3D/CitcomS/branches/compressible/lib

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-04-25 12:03:00 -0700 (Wed, 25 Apr 2007)
New Revision: 6682

Modified:
   mc/3D/CitcomS/branches/compressible/lib/Regional_tracer_advection.c
Log:
Fixed a bug in tracer setup

Modified: mc/3D/CitcomS/branches/compressible/lib/Regional_tracer_advection.c
===================================================================
--- mc/3D/CitcomS/branches/compressible/lib/Regional_tracer_advection.c	2007-04-25 02:42:24 UTC (rev 6681)
+++ mc/3D/CitcomS/branches/compressible/lib/Regional_tracer_advection.c	2007-04-25 19:03:00 UTC (rev 6682)
@@ -137,7 +137,8 @@
 
     make_mesh_ijk(E);
 
-    composition_setup(E);
+    if (E->composition.on)
+        composition_setup(E);
 
     return;
 }
@@ -157,7 +158,7 @@
         fprintf(E->trace.fpt,"Reading tracer file %s\n",E->trace.tracer_file);
     }
     if (E->trace.ic_method==2) {
-        fprintf(E->trace.fpt,"Restarting Tracers\n");
+        fprintf(E->trace.fpt,"Read individual tracer files\n");
     }
 
     fprintf(E->trace.fpt,"Number of tracer flavors: %d\n", E->trace.nflavors);