[cig-commits] [commit] devel: changed call read_value_double_precision_p to call read_value_logical_p for the new parameter USE_CONSTANT_MAX_AMPLITUDE (05c828b)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem2d

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/43d601599a217df4052ee31d48670a4bbe69415a...967f9b955f19c24208e6a40cf9c157d9ff8b050b

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

commit 05c828bd382f405d92fec6271a11ea4bef63cfc3
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Wed May 21 12:07:42 2014 +0200

    changed call read_value_double_precision_p to call read_value_logical_p for the new parameter USE_CONSTANT_MAX_AMPLITUDE


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

05c828bd382f405d92fec6271a11ea4bef63cfc3
 src/meshfem2D/read_parameter_file.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/meshfem2D/read_parameter_file.F90 b/src/meshfem2D/read_parameter_file.F90
index 87994a9..1f45acf 100644
--- a/src/meshfem2D/read_parameter_file.F90
+++ b/src/meshfem2D/read_parameter_file.F90
@@ -368,7 +368,7 @@ contains
   call read_value_double_precision_p(factor_subsample_image, 'solver.factor_subsample_image')
   if(err_occurred() /= 0) stop 'error reading parameter 43b in Par_file'
 
-  call read_value_double_precision_p(USE_CONSTANT_MAX_AMPLITUDE, 'solver.USE_CONSTANT_MAX_AMPLITUDE')
+  call read_value_logical_p(USE_CONSTANT_MAX_AMPLITUDE, 'solver.USE_CONSTANT_MAX_AMPLITUDE')
   if(err_occurred() /= 0) stop 'error reading parameter 43bb in Par_file'
 
   call read_value_double_precision_p(CONSTANT_MAX_AMPLITUDE_TO_USE, 'solver.CONSTANT_MAX_AMPLITUDE_TO_USE')