comments out parameter in constants.h (feature not implemented yet)

SPECFEM · Oct 27, 2024 · 28c87e4 · 28c87e4
1 parent ae699a7
commit 28c87e4
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/EXAMPLES/regional_Berkeley/DATA/Par_file b/EXAMPLES/regional_Berkeley/DATA/Par_file
@@ -81,7 +81,7 @@ FULL_GRAVITY                    = .false.
 POISSON_SOLVER                  = 0
 
 # record length in minutes
-RECORD_LENGTH_IN_MINUTES        = 3.0d0
+RECORD_LENGTH_IN_MINUTES        = 5.0d0
 
 #-----------------------------------------------------------
 #

diff --git a/setup/constants.h.in b/setup/constants.h.in
@@ -245,9 +245,6 @@
 !!
 !!-----------------------------------------------------------
 
-! Save mirror files
-  logical, parameter :: SAVE_MIRRORS = .false.
-
 ! Path to A3d model
 ! Make sure this line ends on "/"
   character (len=*), parameter :: A3d_folder = "DATA/SEMUCB_A3d/"
@@ -273,6 +270,9 @@
 !  double precision, parameter :: EARTH_RESOLUTION_TOPO_FILE = RESOLUTION_TOPO_FILE_BERKELEY
 !  character (len=*), parameter :: EARTH_PATHNAME_TOPO_FILE = PATHNAME_TOPO_FILE_BERKELEY
 
+! Save mirror files - not implemented yet
+!  logical, parameter :: SAVE_MIRRORS = .false.
+
 
 !!-----------------------------------------------------------
 !!