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

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-03-19 15:53:40 -0700 (Mon, 19 Mar 2007)
New Revision: 6297

Modified:
   mc/3D/CitcomS/trunk/lib/Advection_diffusion.c
   mc/3D/CitcomS/trunk/lib/Convection.c
Log:
Init'd advection.timestep and advection.timesteps earlier. The time output uses these parameters.

Modified: mc/3D/CitcomS/trunk/lib/Advection_diffusion.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Advection_diffusion.c	2007-03-19 22:51:35 UTC (rev 6296)
+++ mc/3D/CitcomS/trunk/lib/Advection_diffusion.c	2007-03-19 22:53:40 UTC (rev 6297)
@@ -51,7 +51,6 @@
 void PG_timestep_init(struct All_variables *E)
 {
 
-  E->advection.timesteps = 0;
   set_diffusion_timestep(E);
 
   return;

Modified: mc/3D/CitcomS/trunk/lib/Convection.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Convection.c	2007-03-19 22:51:35 UTC (rev 6296)
+++ mc/3D/CitcomS/trunk/lib/Convection.c	2007-03-19 22:53:40 UTC (rev 6297)
@@ -48,6 +48,8 @@
     void convection_initial_fields();
     void twiddle_thumbs();
 
+    E->advection.timestep = 0.0;
+    E->advection.timesteps = 0;
     E->advection.total_timesteps = 1;
     E->advection.sub_iterations = 1;
     E->advection.last_sub_iterations = 1;