[cig-commits] r11671 - in seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS: . estimate_best_values_runs

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-03-31 12:15:24 -0700 (Mon, 31 Mar 2008)
New Revision: 11671

Added:
   seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/scaling_nodes/
Removed:
   seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/scaling_nodes/
Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/estimate_best_values_runs.f90
Log:
added an option to suppress all cases with a memory occupancy below 50%


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 19:09:15 UTC (rev 11670)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/estimate_best_values_runs.f90	2008-03-31 19:15:24 UTC (rev 11671)
@@ -256,7 +256,8 @@
     write(*,"(' ',i5,'  ',f6.2,'% ',i3,'  ',i4,'  ',f6.2,'  ',f6.2,'% **possible**')") &
       6*NPROC_XI**2,100.d0*6*NPROC_XI**2/dble(MAX_NUMBER_OF_PROCS),NPROC_XI,NEX_XI,mem_per_core,percent
 
-  else
+! uncomment line below to completely suppress cases that give an occupancy below 50%
+  else ! if(percent >= 50.d0) then
     write(*,"(' ',i5,'  ',f6.2,'% ',i3,'  ',i4,'  ',f6.2,'  ',f6.2,'%')") &
       6*NPROC_XI**2,100.d0*6*NPROC_XI**2/dble(MAX_NUMBER_OF_PROCS),NPROC_XI,NEX_XI,mem_per_core,percent
   endif

Copied: seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/scaling_nodes (from rev 11658, seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/scaling_nodes)