[cig-commits] r21462 - seismo/3D/SPECFEM3D/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-07 09:36:33 -0800 (Thu, 07 Mar 2013)
New Revision: 21462

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90
Log:
modified a stop statement because Deville can only handle NGLL = 5 (it used to be 5 to 10 but I removed support for this because it was unused and also too difficult to maintain)


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90	2013-03-07 13:38:27 UTC (rev 21461)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/initialize_simulation.f90	2013-03-07 17:36:33 UTC (rev 21462)
@@ -255,9 +255,9 @@
         call exit_mpi(myrank,'SIMULATION_TYPE can only be 1, 2, or 3')
 
   ! check that optimized routines from Deville et al. (2002) can be used
-  if( USE_DEVILLE_PRODUCTS) then
-    if(NGLLX < 5 .or. NGLLY < 5 .or. NGLLZ < 5 .or. NGLLX > 10 .or. NGLLY > 10 .or. NGLLZ > 10) &
-      stop 'Deville et al. (2002) routines can only be used if NGLLX = NGLLY = NGLLZ is in [5-10]'
+  if(USE_DEVILLE_PRODUCTS) then
+    if(NGLLX /= 5 .or. NGLLY /= 5 .or. NGLLZ /= 5) &
+      stop 'Deville et al. (2002) routines can only be used if NGLLX = NGLLY = NGLLZ = 5'
   endif
 
   ! gravity only on GPU supported