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

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-09-19 13:34:22 -0700 (Wed, 19 Sep 2007)
New Revision: 7992

Modified:
   mc/3D/CitcomS/trunk/lib/Composition_related.c
   mc/3D/CitcomS/trunk/lib/Instructions.c
Log:
Set default value for tracer/composition flags earlier

Modified: mc/3D/CitcomS/trunk/lib/Composition_related.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Composition_related.c	2007-09-19 20:33:42 UTC (rev 7991)
+++ mc/3D/CitcomS/trunk/lib/Composition_related.c	2007-09-19 20:34:22 UTC (rev 7992)
@@ -113,7 +113,6 @@
 {
     int k;
 
-    E->composition.on = 0;
     if (E->composition.ichemical_buoyancy ||
         E->composition.icompositional_rheology)
         E->composition.on = 1;

Modified: mc/3D/CitcomS/trunk/lib/Instructions.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Instructions.c	2007-09-19 20:33:42 UTC (rev 7991)
+++ mc/3D/CitcomS/trunk/lib/Instructions.c	2007-09-19 20:34:22 UTC (rev 7992)
@@ -816,7 +816,7 @@
 
     E->control.GRID_TYPE=1;
 
-    E->contro.tracer = 0;
+    E->control.tracer = 0;
     E->composition.on = 0;
 
   E->parallel.nprocx=1; E->parallel.nprocz=1; E->parallel.nprocy=1;