[cig-commits] r20482 - seismo/2D/SPECFEM2D/trunk/src/meshfem2D
xie.zhinan at geodynamics.org
xie.zhinan at geodynamics.org
Sat Jul 7 06:04:55 PDT 2012
Author: xie.zhinan
Date: 2012-07-07 06:04:55 -0700 (Sat, 07 Jul 2012)
New Revision: 20482
Modified:
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90
Log:
solve the conflict in set the value of PML_BOUNDARY_CONDITIONS and STACEY_ABSORBING_CONDITIONS in par_file
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90 2012-07-07 11:56:23 UTC (rev 20481)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90 2012-07-07 13:04:55 UTC (rev 20482)
@@ -462,6 +462,10 @@
call read_value_logical_p(any_abs, 'solver.STACEY_ABSORBING_CONDITIONS')
if(err_occurred() /= 0) stop 'error reading parameter 51a in Par_file'
+ !DK DK solve the conflict in set the value of PML_BOUNDARY_CONDITIONS and STACEY_ABSORBING_CONDITIONS
+ !in par_file
+ if(PML_BOUNDARY_CONDITIONS) any_abs = .true.
+
call read_value_logical_p(ADD_SPRING_TO_STACEY, 'solver.ADD_SPRING_TO_STACEY')
if(err_occurred() /= 0) stop 'error reading parameter 51a in Par_file'
More information about the CIG-COMMITS
mailing list