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

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-01-09 13:11:58 -0800 (Tue, 09 Jan 2007)
New Revision: 5743

Modified:
   mc/3D/CitcomS/trunk/lib/Problem_related.c
Log:
Fix for time-invariant velocity boundary conditions, issue75


Modified: mc/3D/CitcomS/trunk/lib/Problem_related.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Problem_related.c	2007-01-09 20:04:02 UTC (rev 5742)
+++ mc/3D/CitcomS/trunk/lib/Problem_related.c	2007-01-09 21:11:58 UTC (rev 5743)
@@ -230,7 +230,7 @@
       age_in_MY = E->control.start_age + E->monitor.elapsed_time*E->data.scalet;
    }
 
-      if (((age_in_MY+e_4) < 0.0) && (E->monitor.solution_cycles <= 1)) {
+      if (((age_in_MY+e_4) < 0.0) && (E->monitor.solution_cycles < 1)) {
         if (E->parallel.me == 0) fprintf(stderr,"Age = %g Ma, Initial age should not be negative!\n",age_in_MY);
 	exit(11);
       }