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

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-04-10 11:59:44 -0700 (Wed, 10 Apr 2013)
New Revision: 21794

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
fix one bug


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-04-10 15:44:24 UTC (rev 21793)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-04-10 18:59:44 UTC (rev 21794)
@@ -2943,12 +2943,10 @@
       is_PML(:) = .false.
       which_PML_elem(:,:) = .false.
 !   DK DK add support for using pml in mpi mode with external mesh
-      if((SIMULATION_TYPE == 3 .or. (SIMULATION_TYPE == 1 .and. SAVE_FORWARD)) .and. PML_BOUNDARY_CONDITIONS)then
-        if(read_external_mesh)then
+      if(read_external_mesh)then
             allocate(mask_ibool(nglob))
-        else
+      else
             allocate(mask_ibool(1))
-        endif
       endif
 
       call pml_init(nspec,nglob,anyabs,ibool,nelemabs,codeabs,numabs,&