[cig-commits] r22315 - seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/compute_optimized_dumping_undo_att

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-06-15 12:07:25 -0700 (Sat, 15 Jun 2013)
New Revision: 22315

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/compute_optimized_dumping_undo_att/compute_optimized_dumping_undo_att.f90
Log:
added display of percentage of memory initially used


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/compute_optimized_dumping_undo_att/compute_optimized_dumping_undo_att.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/compute_optimized_dumping_undo_att/compute_optimized_dumping_undo_att.f90	2013-06-15 17:42:48 UTC (rev 22314)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/compute_optimized_dumping_undo_att/compute_optimized_dumping_undo_att.f90	2013-06-15 19:07:25 UTC (rev 22315)
@@ -238,6 +238,7 @@
 
   print *
   print *,'without undoing of attenuation you are using ',static_memory_size,' GB per core'
+  print *,'  i.e. ',sngl(100.d0 * static_memory_size / gigabytes_avail_per_core),'% of the installed memory'
 
   if(static_memory_size >= gigabytes_avail_per_core) &
     stop 'you are using more memory than what you told us is installed!!! there is an error'