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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-06-15 09:27:28 -0700 (Sat, 15 Jun 2013)
New Revision: 22312

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/compute_optimized_dumping_undo_att/compute_optimized_dumping_undo_att.f90
Log:
updated compute_optimized_dumping_undo_att() because we do not save the epsilon arrays any more


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 16:26:13 UTC (rev 22311)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/compute_optimized_dumping_undo_att/compute_optimized_dumping_undo_att.f90	2013-06-15 16:27:28 UTC (rev 22312)
@@ -319,33 +319,11 @@
 
   print *
   print *,'*******************************************************************************'
-  print *,'ALL dumpings on the disk require storing (WITHOUT epsilondev) ', &
+  print *,'ALL dumpings on the disk require storing ', &
                disk_size_of_each_dumping*number_of_dumpings_to_do*NPROCTOT,' GB for all cores'
   print *,'*******************************************************************************'
   print *
 
-! convert back from GB
-  disk_size_of_each_dumping = disk_size_of_each_dumping * 1.d9
-
-! epsilondev_crust_mantle
-  disk_size_of_each_dumping = disk_size_of_each_dumping + &
-      5.d0*dble(NGLLX)*dble(NGLLY)*dble(NGLLZ)*NSPEC_CRUST_MANTLE_STR_OR_ATT*dble(CUSTOM_REAL)
-
-! epsilondev_inner_core
-  disk_size_of_each_dumping = disk_size_of_each_dumping + &
-      5.d0*dble(NGLLX)*dble(NGLLY)*dble(NGLLZ)*NSPEC_INNER_CORE_STR_OR_ATT*dble(CUSTOM_REAL)
-
-! convert to GB
-  disk_size_of_each_dumping = disk_size_of_each_dumping / 1.d9
-
-!! DK DK remove this tomorrow if Zhinan confirms that it is OK to do so
-!! DK DK remove this tomorrow if Zhinan confirms that it is OK to do so
-!! DK DK remove this tomorrow if Zhinan confirms that it is OK to do so
-!! DK DK remove this tomorrow if Zhinan confirms that it is OK to do so
-  print *
-  print *,'ALL dumpings on the disk require storing (WITH epsilondev) ', &
-               disk_size_of_each_dumping*number_of_dumpings_to_do*NPROCTOT,' GB to disk for all cores'
-
   if(.not. UNDO_ATT) then
     print *
     print *,'*******************************************************************************'