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

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2012-07-07 08:47:01 -0700 (Sat, 07 Jul 2012)
New Revision: 20489

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
Log:
rm some unused parameter in pml_init.F90


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2012-07-07 15:17:36 UTC (rev 20488)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2012-07-07 15:47:01 UTC (rev 20489)
@@ -253,9 +253,6 @@
 #ifdef USE_MPI
 ! for MPI and partitioning
   integer  :: ier
-!  integer  :: nproc
-!  integer  :: iproc
-!  character(len=256)  :: prname
 
   double precision :: thickness_PML_z_min_bottom_glob,thickness_PML_z_max_bottom_glob,&
        thickness_PML_x_min_right_glob,thickness_PML_x_max_right_glob,&
@@ -264,7 +261,7 @@
 !       thickness_PML_z_bottom_glob,thickness_PML_x_right_glob,&
 !       thickness_PML_z_top_glob,thickness_PML_x_left_glob
 
-  double precision :: xmin_glob, xmax_glob, zmin_glob, zmax_glob, vpmax_glob, d0
+  double precision :: xmin_glob, xmax_glob, zmin_glob, zmax_glob, vpmax_glob
 #endif
 
   integer :: myrank