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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-13 11:03:53 -0700 (Wed, 13 Mar 2013)
New Revision: 21522

Modified:
   seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90
Log:
added a sanity check for SIMULATION_TYPE


Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90	2013-03-13 17:43:42 UTC (rev 21521)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90	2013-03-13 18:03:53 UTC (rev 21522)
@@ -185,6 +185,7 @@
   ! read type of simulation
   call read_value_integer_p(SIMULATION_TYPE, 'solver.SIMULATION_TYPE')
   if(err_occurred() /= 0) stop 'error reading parameter 2 in Par_file'
+  if(SIMULATION_TYPE /= 1 .and. SIMULATION_TYPE /= 3) stop 'SIMULATION_TYPE can only be set to 1 or 3 in the Par_file; exiting'
 
   call read_value_integer_p(NOISE_TOMOGRAPHY, 'solver.NOISE_TOMOGRAPHY')
   if(err_occurred() /= 0) stop 'error reading parameter NOISE_TOMOGRAPHY in Par_file'