[cig-commits] r22922 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-10-04 00:54:03 -0700 (Fri, 04 Oct 2013)
New Revision: 22922

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
put back one line back to make sure that NSPEC_PML is not zero


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-10-03 22:48:42 UTC (rev 22921)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-10-04 07:54:03 UTC (rev 22922)
@@ -3004,7 +3004,7 @@
 
       deallocate(which_PML_elem)
 
-!      if (nspec_PML==0) nspec_PML=1 ! DK DK added this
+      if (nspec_PML==0) nspec_PML=1 ! DK DK added this
 
       if (nspec_PML > 0) then
         allocate(K_x_store(NGLLX,NGLLZ,nspec_PML),stat=ier)