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

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-05-02 07:23:17 -0700 (Thu, 02 May 2013)
New Revision: 21970

Modified:
   seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90
Log:
change the name of some pml variables


Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90	2013-05-01 19:09:20 UTC (rev 21969)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90	2013-05-02 14:23:17 UTC (rev 21970)
@@ -253,7 +253,7 @@
   integer, dimension(1:nelmnts), intent(out)  :: region_pml_external_mesh
   integer, intent(out)  :: nspec_cpml
 
-  integer  :: i,j,k,ier
+  integer  :: i,ier,ispec,pml_flag
 
 #ifdef USE_BINARY_FOR_EXTERNAL_MESH_DATABASE
   open(unit=992, file=trim(filename), form='unformatted' , status='old', action='read',iostat=ier)
@@ -273,11 +273,11 @@
 
   do i = 1, nspec_cpml
 #ifdef USE_BINARY_FOR_EXTERNAL_MESH_DATABASE
-     read(992) j, k
+     read(992) ispec, pml_flag
 #else
-     read(992,*) j, k
+     read(992,*) ispec, pml_flag
 #endif
-     region_pml_external_mesh(j) = k
+     region_pml_external_mesh(ispec) = pml_flag
   enddo
 
   close(992)