[cig-commits] r5744 - mc/3D/CitcomS/branches/compressible/lib

tan2 at geodynamics.org tan2 at geodynamics.org
Tue Jan 9 14:01:20 PST 2007


Author: tan2
Date: 2007-01-09 14:01:20 -0800 (Tue, 09 Jan 2007)
New Revision: 5744

Modified:
   mc/3D/CitcomS/branches/compressible/lib/Problem_related.c
Log:
Porting r5743 from trunk to branch

Modified: mc/3D/CitcomS/branches/compressible/lib/Problem_related.c
===================================================================
--- mc/3D/CitcomS/branches/compressible/lib/Problem_related.c	2007-01-09 21:11:58 UTC (rev 5743)
+++ mc/3D/CitcomS/branches/compressible/lib/Problem_related.c	2007-01-09 22:01:20 UTC (rev 5744)
@@ -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);
       }



More information about the cig-commits mailing list