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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-06-13 08:29:13 -0700 (Wed, 13 Jun 2012)
New Revision: 20370

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
Log:
reverted my change, since is_PML() was correctly initialized in the calling program


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2012-06-13 15:22:39 UTC (rev 20369)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2012-06-13 15:29:13 UTC (rev 20370)
@@ -73,9 +73,6 @@
 
   nspec_PML = 0
 
-! initialize the PML flag array
-  is_PML(:) = .false.
-
      !ibound is the side we are looking (bottom, right, top or left)
      do ibound=1,4