[cig-commits] [commit] devel: fixed test on N_SLS when attenuation is off to use 2 instead of 1 (a766a0d)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem2d

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/b57ef60323b73eac86fd234b8879866995382284...24dca31bf087ee51d2d1db912640d58ade2df07c

>---------------------------------------------------------------

commit a766a0d5c4613d9dd2470fc17c9776d60a9469a0
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Wed Feb 5 18:44:56 2014 +0100

    fixed test on N_SLS when attenuation is off to use 2 instead of 1


>---------------------------------------------------------------

a766a0d5c4613d9dd2470fc17c9776d60a9469a0
 src/meshfem2D/read_parameter_file.F90 | 2 +-
 src/specfem2D/read_databases.F90      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/meshfem2D/read_parameter_file.F90 b/src/meshfem2D/read_parameter_file.F90
index b0cec6d..819f774 100644
--- a/src/meshfem2D/read_parameter_file.F90
+++ b/src/meshfem2D/read_parameter_file.F90
@@ -259,7 +259,7 @@ contains
   ! read constants for attenuation
   call read_value_integer_p(N_SLS, 'solver.N_SLS')
   if(err_occurred() /= 0) stop 'error reading parameter 20 in Par_file'
-  if(N_SLS < 1) stop 'must have N_SLS >= 1 even if attenuation if off because it is used to assign some arrays'
+  if(N_SLS < 2) stop 'must have N_SLS >= 2 even if attenuation if off because it is used to assign some arrays'
 
   call read_value_double_precision_p(f0_attenuation, 'solver.f0_attenuation')
   if(err_occurred() /= 0) stop 'error reading parameter 21 in Par_file'
diff --git a/src/specfem2D/read_databases.F90 b/src/specfem2D/read_databases.F90
index a2d789e..b081e3c 100644
--- a/src/specfem2D/read_databases.F90
+++ b/src/specfem2D/read_databases.F90
@@ -451,7 +451,7 @@
 
   read(IIN,"(a80)") datlin
   read(IIN,*) N_SLS, f0_attenuation
-  if(N_SLS < 1) stop 'must have N_SLS >= 1 even if attenuation if off because it is used to assign some arrays'
+  if(N_SLS < 2) stop 'must have N_SLS >= 2 even if attenuation if off because it is used to assign some arrays'
 
   end subroutine read_databases_atten