[cig-commits] r20665 - seismo/2D/SPECFEM2D/trunk/src/meshfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-09-01 16:41:33 -0700 (Sat, 01 Sep 2012)
New Revision: 20665

Modified:
   seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90
Log:
fixed a typo in a variable name


Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90	2012-09-01 23:34:19 UTC (rev 20664)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90	2012-09-01 23:41:33 UTC (rev 20665)
@@ -463,7 +463,7 @@
   call read_value_logical_p(any_abs, 'solver.STACEY_ABSORBING_CONDITIONS')
   if(err_occurred() /= 0) stop 'error reading parameter 51a in Par_file'
 
-  if(add_Bielak_conditions .and. .not. STACEY_ABSORBING_CONDITIONS) &
+  if(add_Bielak_conditions .and. .not. any_abs) &
     stop 'need STACEY_ABSORBING_CONDITIONS set to .true. in order to use add_Bielak_conditions'
 
   ! solve the conflict in value of PML_BOUNDARY_CONDITIONS and STACEY_ABSORBING_CONDITIONS