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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-21 09:04:05 -0700 (Thu, 21 Mar 2013)
New Revision: 21597

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
fixed one last warning about an unused variable


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2013-03-21 15:58:32 UTC (rev 21596)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2013-03-21 16:04:05 UTC (rev 21597)
@@ -472,9 +472,6 @@
 
  subroutine define_PML_coefficients(npoin,nspec,is_PML,ibool,coord,&
           region_CPML,kmato,density,poroelastcoef,numat,f0_temp,&
-#ifdef USE_MPI
-          myrank,&
-#endif
           K_x_store,K_z_store,d_x_store,d_z_store,alpha_x_store,alpha_z_store,&
           nspec_PML,spec_to_PML)
 
@@ -518,7 +515,6 @@
 #ifdef USE_MPI
 ! for MPI and partitioning
   integer :: ier
-  integer :: myrank
 
   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,&

Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-03-21 15:58:32 UTC (rev 21596)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-03-21 16:04:05 UTC (rev 21597)
@@ -3007,9 +3007,6 @@
 
         call define_PML_coefficients(nglob,nspec,is_PML,ibool,coord,&
                 region_CPML,kmato,density,poroelastcoef,numat,f0(1),&
-#ifdef USE_MPI
-                myrank,&
-#endif
                 K_x_store,K_z_store,d_x_store,d_z_store,alpha_x_store,alpha_z_store,&
                 nspec_PML,spec_to_PML)