[cig-commits] r20788 - seismo/2D/SPECFEM2D/trunk/src/meshfem2D

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2012-09-27 08:18:42 -0700 (Thu, 27 Sep 2012)
New Revision: 20788

Modified:
   seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90
Log:
remove the unneeded read operation of CPML_element_file when using external mesh without CPML


Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90	2012-09-27 13:59:15 UTC (rev 20787)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90	2012-09-27 15:18:42 UTC (rev 20788)
@@ -452,7 +452,9 @@
   ! assigns materials to mesh elements
   if ( read_external_mesh ) then
      call read_mat(materials_file, num_material)
-     call read_pml_element(CPML_element_file, region_pml_external_mesh, nspec_cpml)
+     if(PML_BOUNDARY_CONDITIONS)then
+      call read_pml_element(CPML_element_file, region_pml_external_mesh, nspec_cpml)
+     endif
   else
      call read_regions(nbregion,nb_materials,icodemat,cp,cs, &
                       rho_s,QKappa,Qmu,aniso3,aniso4,aniso5,aniso6,aniso7,aniso8, &