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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-21 08:58:32 -0700 (Thu, 21 Mar 2013)
New Revision: 21596

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.F90
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
suppressed warnings about unused variables in my new MPI_REDUCE statements from yesterday when USE_MPI is off


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2013-03-21 02:46:44 UTC (rev 21595)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2013-03-21 15:58:32 UTC (rev 21596)
@@ -76,23 +76,25 @@
   integer, dimension(nspec) :: region_CPML
   logical :: SAVE_FORWARD
 
+  integer :: nspec_PML_tot
+
 #ifdef USE_MPI
-  integer :: nspec_PML_tot,ier
+  integer :: ier
 #endif
 
-  !!!detection of PML elements
+  ! detection of PML elements
 
   if(.not. read_external_mesh) then
   nspec_PML = 0
 
-     !ibound is the side we are looking (bottom, right, top or left)
+     ! ibound is the side we are looking (bottom, right, top or left)
      do ibound=1,4
 
      icorner_iglob = ZERO
      ncorner=0
 
      if (anyabs) then
-     !mark any elements on the boundary as PML and list their corners
+     ! mark any elements on the boundary as PML and list their corners
      do ispecabs = 1,nelemabs
         ispec = numabs(ispecabs)
 
@@ -470,7 +472,9 @@
 
  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)
 
@@ -513,7 +517,8 @@
 
 #ifdef USE_MPI
 ! for MPI and partitioning
-  integer  :: ier
+  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,&
@@ -522,10 +527,8 @@
   double precision :: xmin_glob, xmax_glob, zmin_glob, zmax_glob, vpmax_glob
 #endif
 
-  integer :: myrank
+! PML fixed parameters
 
-  !PML fixed parameters
-
 ! power to compute d0 profile
   double precision, parameter :: NPOWER = 2.d0
 

Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.F90	2013-03-21 02:46:44 UTC (rev 21595)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.F90	2013-03-21 15:58:32 UTC (rev 21596)
@@ -707,8 +707,10 @@
   logical :: codeabsread(4)
   character(len=80) :: datlin
 
+  integer :: nelemabs_tot,nspec_left_tot,nspec_right_tot,nspec_bottom_tot,nspec_top_tot
+
 #ifdef USE_MPI
-  integer :: nelemabs_tot,nspec_left_tot,nspec_right_tot,nspec_bottom_tot,nspec_top_tot,ier
+  integer :: ier
 #endif
 
   ! initializes

Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-03-21 02:46:44 UTC (rev 21595)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-03-21 15:58:32 UTC (rev 21596)
@@ -3007,7 +3007,9 @@
 
         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)