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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-06-13 08:22:39 -0700 (Wed, 13 Jun 2012)
New Revision: 20369

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
Log:
initialized the PML flag array


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2012-06-13 15:16:26 UTC (rev 20368)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2012-06-13 15:22:39 UTC (rev 20369)
@@ -73,6 +73,9 @@
 
   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