[cig-commits] r11664 - seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-03-31 09:13:07 -0700 (Mon, 31 Mar 2008)
New Revision: 11664

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/estimate_best_values_runs.f90
Log:
swapped two lines


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/estimate_best_values_runs.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/estimate_best_values_runs.f90	2008-03-31 16:01:34 UTC (rev 11663)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/estimate_best_values_runs.f90	2008-03-31 16:13:07 UTC (rev 11664)
@@ -228,9 +228,9 @@
   if(percent > 100.d0) goto 777
 
   if(percent < 0.d0) then
-    goto 777
 !   write(*,"(' ',i5,'  ',f6.2,'% ',i3,'  ',i4,'  ',f6.2,'  ',f6.2,'% **mesher fails/temporary bug**')") &
 !     6*NPROC_XI**2,100.d0*6*NPROC_XI**2/dble(MAX_NUMBER_OF_PROCS),NPROC_XI,NEX_XI,mem_per_core,percent
+    goto 777
 
   else if(percent >= 93.d0) then
     write(*,"(' ',i5,'  ',f6.2,'% ',i3,'  ',i4,'  ',f6.2,'  ',f6.2,'% **too high**')") &