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

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-03-16 17:38:06 -0700 (Fri, 16 Mar 2007)
New Revision: 6274

Modified:
   mc/3D/CitcomS/trunk/lib/Pan_problem_misc_functions.c
Log:
Apply chemical buoyancy only when using tracer

Modified: mc/3D/CitcomS/trunk/lib/Pan_problem_misc_functions.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Pan_problem_misc_functions.c	2007-03-17 00:21:01 UTC (rev 6273)
+++ mc/3D/CitcomS/trunk/lib/Pan_problem_misc_functions.c	2007-03-17 00:38:06 UTC (rev 6274)
@@ -141,7 +141,7 @@
         buoy[m][i] =  temp * E->T[m][i];
 
     /* chemical buoyancy */
-    if(E->composition.ichemical_buoyancy==1) {
+    if(E->control.tracer && E->composition.ichemical_buoyancy==1) {
       temp2 = E->composition.buoyancy_ratio * temp;
       for(m=1;m<=E->sphere.caps_per_proc;m++)
         for(i=1;i<=E->lmesh.nno;i++)