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

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-09-18 16:07:48 -0700 (Tue, 18 Sep 2007)
New Revision: 7986

Modified:
   mc/3D/CitcomS/trunk/lib/Regional_tracer_advection.c
Log:
Setup composition for regional model

Modified: mc/3D/CitcomS/trunk/lib/Regional_tracer_advection.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Regional_tracer_advection.c	2007-09-18 23:02:12 UTC (rev 7985)
+++ mc/3D/CitcomS/trunk/lib/Regional_tracer_advection.c	2007-09-18 23:07:48 UTC (rev 7986)
@@ -139,7 +139,8 @@
 
     make_mesh_ijk(E);
 
-    composition_setup(E);
+    if (E->composition.on)
+        composition_setup(E);
 
     return;
 }