[cig-commits] r19883 - in seismo/3D/SPECFEM3D_GLOBE/trunk/src: create_header_file shared

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-03-27 09:21:52 -0700 (Tue, 27 Mar 2012)
New Revision: 19883

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/create_header_file/create_header_file.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90
Log:
added a message about how to get a more precise estimate of static memory size used by the solver


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/create_header_file/create_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/create_header_file/create_header_file.f90	2012-03-27 13:17:57 UTC (rev 19882)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/create_header_file/create_header_file.f90	2012-03-27 16:21:52 UTC (rev 19883)
@@ -230,6 +230,9 @@
   print *
   print *,'(lower bound, usually the real amount used is 5% to 10% higher)'
   print *
+  print *,'(you can get a more precise estimate by typing "size -d bin/xspecfem3D"'
+  print *,' after compiling the code with the DATA/Par_file you plan to use)'
+  print *
   print *,'size of static arrays per slice = ',static_memory_size/1.d6,' MB'
   print *,'                                = ',static_memory_size/1048576.d0,' MiB'
   print *,'                                = ',static_memory_size/1.d9,' GB'

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90	2012-03-27 13:17:57 UTC (rev 19882)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90	2012-03-27 16:21:52 UTC (rev 19883)
@@ -261,6 +261,9 @@
   write(IOUT,*) '!'
   write(IOUT,*) '! (lower bound, usually the real amount used is 5% to 10% higher)'
   write(IOUT,*) '!'
+  write(IOUT,*) '! (you can get a more precise estimate by typing "size -d bin/xspecfem3D"'
+  write(IOUT,*) '!  after compiling the code with the DATA/Par_file you plan to use)'
+  write(IOUT,*) '!'
   write(IOUT,*) '! size of static arrays per slice = ',static_memory_size/1.d6,' MB'
   write(IOUT,*) '!                                 = ',static_memory_size/1048576.d0,' MiB'
   write(IOUT,*) '!                                 = ',static_memory_size/1.d9,' GB'