[cig-commits] r19234 - in seismo/3D/SPECFEM3D_GLOBE/trunk: setup src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-11-22 06:06:17 -0800 (Tue, 22 Nov 2011)
New Revision: 19234

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/setup/constants.h.in
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
Log:
added flag SET_INITIAL_FIELD_TO_1_IN_BENCH for scaling benchmarks


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/setup/constants.h.in
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/setup/constants.h.in	2011-11-22 00:39:41 UTC (rev 19233)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/setup/constants.h.in	2011-11-22 14:06:17 UTC (rev 19234)
@@ -316,6 +316,7 @@
 ! to make sure gradual underflow trapping does not slow down the code
   logical, parameter :: DO_BENCHMARK_RUN_ONLY = .false.
   integer, parameter :: NSTEP_FOR_BENCHMARK = 300
+  logical, parameter :: SET_INITIAL_FIELD_TO_1_IN_BENCH = .true.
 
 !------------------------------------------------------
 !----------- do not modify anything below -------------

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90	2011-11-22 00:39:41 UTC (rev 19233)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90	2011-11-22 14:06:17 UTC (rev 19234)
@@ -1780,7 +1780,7 @@
 
 ! if doing benchmark runs to measure scaling of the code,
 ! set the initial field to 1 to make sure gradual underflow trapping does not slow down the code
-  if (DO_BENCHMARK_RUN_ONLY) then
+  if (DO_BENCHMARK_RUN_ONLY .and. SET_INITIAL_FIELD_TO_1_IN_BENCH) then
     displ_crust_mantle(:,:) = 1._CUSTOM_REAL
     veloc_crust_mantle(:,:) = 1._CUSTOM_REAL
     accel_crust_mantle(:,:) = 1._CUSTOM_REAL