[cig-commits] r21570 - in seismo/3D/SPECFEM3D/trunk: . src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-19 13:28:11 -0700 (Tue, 19 Mar 2013)
New Revision: 21570

Modified:
   seismo/3D/SPECFEM3D/trunk/flags.guess
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90
Log:
added stop 'CPML not implemented for USE_DEVILLE for now, set USE_DEVILLE to false in constants.h and recompile; exiting...' until CPML is implemented for Deville in a month or two


Modified: seismo/3D/SPECFEM3D/trunk/flags.guess
===================================================================
--- seismo/3D/SPECFEM3D/trunk/flags.guess	2013-03-19 18:44:30 UTC (rev 21569)
+++ seismo/3D/SPECFEM3D/trunk/flags.guess	2013-03-19 20:28:11 UTC (rev 21570)
@@ -42,7 +42,7 @@
 # I/O throughput lingers at 2.5 MB/s, with it it can increase to ~44 MB/s
 # However it does not make much of a difference on NFS mounted volumes or with SFS 3.1.1 / Lustre 1.6.7.1 
         if test x"$FLAGS_CHECK" = x; then
-            FLAGS_CHECK="-O3 -xHost -ftz -fpe0 -assume buffered_io -assume byterecl -align sequence -vec-report0 -std03 -implicitnone -warn truncated_source -warn argument_checking -warn unused -warn declarations -warn alignments -warn ignore_loc -warn usage -check nobounds" # -mcmodel=medium -shared-intel
+            FLAGS_CHECK="-O3 -check nobounds -xHost -ftz -fpe0 -assume buffered_io -assume byterecl -align sequence -vec-report0 -std03 -implicitnone -warn truncated_source -warn argument_checking -warn unused -warn declarations -warn alignments -warn ignore_loc -warn usage" # -mcmodel=medium -shared-intel
         fi
         # useful for debugging...
         # for debugging: change -O3 -check nobounds to      -check all -debug -g -O0 -fp-stack-check -traceback -ftrapuv

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90	2013-03-19 18:44:30 UTC (rev 21569)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90	2013-03-19 20:28:11 UTC (rev 21570)
@@ -52,6 +52,11 @@
                         USE_RICKER_TIME_FUNCTION,OLSEN_ATTENUATION_RATIO,PML_CONDITIONS, &
                         PML_INSTEAD_OF_FREE_SURFACE,PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL)
 
+!! DK DK added this for now (March 2013) because CPML is not yet implemented for USE_DEVILLE;
+!! DK DK we will soon add it (in a month or so)
+  if(PML_CONDITIONS .and. USE_DEVILLE) &
+    stop 'CPML not implemented for USE_DEVILLE for now, set USE_DEVILLE to false in constants.h and recompile; exiting...'
+
   ! GPU_MODE is in par_file
   call read_gpu_mode(GPU_MODE,GRAVITY)