[cig-commits] [commit] devel: Remove some unused variables. (49b5cd6)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/40c52f83f4555803baa5b574535e4a7e4f391884...2cc93c33966a370878432590563633b66f4a1f90

>---------------------------------------------------------------

commit 49b5cd6fa49025532a3a232cddd03ba103928fb7
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Sat Dec 6 19:11:29 2014 -0500

    Remove some unused variables.
    
    They're set, but not used for anything.


>---------------------------------------------------------------

49b5cd6fa49025532a3a232cddd03ba103928fb7
 src/meshfem3D/create_regions_mesh.F90 | 10 +---------
 src/meshfem3D/initialize_layers.f90   |  6 ++----
 src/meshfem3D/meshfem3D_par.f90       |  3 +--
 3 files changed, 4 insertions(+), 15 deletions(-)

diff --git a/src/meshfem3D/create_regions_mesh.F90 b/src/meshfem3D/create_regions_mesh.F90
index 6116800..5615ed7 100644
--- a/src/meshfem3D/create_regions_mesh.F90
+++ b/src/meshfem3D/create_regions_mesh.F90
@@ -859,7 +859,7 @@
                         NEX_PER_PROC_ETA,nex_eta_moho,RMOHO,R400,R670,r_moho,r_400,r_670, &
                         ONE_CRUST,NUMBER_OF_MESH_LAYERS,layer_shift, &
                         iregion_code,ifirst_region,ilast_region, &
-                        first_layer_aniso,last_layer_aniso,nb_layer_above_aniso,is_on_a_slice_edge)
+                        first_layer_aniso,last_layer_aniso,is_on_a_slice_edge)
 
   ! to consider anisotropic elements first and to build the mesh from the bottom to the top of the region
   allocate (perm_layer(ifirst_region:ilast_region),stat=ier)
@@ -982,14 +982,6 @@
     rmin = rmins(ilayer)
     rmax = rmaxs(ilayer)
 
-    if (iregion_code == IREGION_CRUST_MANTLE .and. ilayer_loop == 3) then
-      FIRST_ELT_NON_ANISO = ispec+1
-    endif
-    if (iregion_code == IREGION_CRUST_MANTLE &
-      .and. ilayer_loop==(ilast_region-nb_layer_above_aniso+1)) then
-      FIRST_ELT_ABOVE_ANISO = ispec+1
-    endif
-
     ner_without_doubling = ner(ilayer)
 
     ! if there is a doubling at the top of this region, we implement it in the last two layers of elements
diff --git a/src/meshfem3D/initialize_layers.f90 b/src/meshfem3D/initialize_layers.f90
index 389bece..693d83e 100644
--- a/src/meshfem3D/initialize_layers.f90
+++ b/src/meshfem3D/initialize_layers.f90
@@ -34,7 +34,7 @@
                         NEX_PER_PROC_ETA,nex_eta_moho,RMOHO,R400,R670,r_moho,r_400,r_670, &
                         ONE_CRUST,NUMBER_OF_MESH_LAYERS,layer_shift, &
                         iregion_code,ifirst_region,ilast_region, &
-                        first_layer_aniso,last_layer_aniso,nb_layer_above_aniso,is_on_a_slice_edge)
+                        first_layer_aniso,last_layer_aniso,is_on_a_slice_edge)
 
 ! create the different regions of the mesh
 
@@ -77,7 +77,7 @@
 
   ! code for the four regions of the mesh
   integer iregion_code,ifirst_region,ilast_region
-  integer first_layer_aniso,last_layer_aniso,nb_layer_above_aniso
+  integer first_layer_aniso,last_layer_aniso
 
 ! this for non blocking MPI
   logical, dimension(nspec) :: is_on_a_slice_edge
@@ -136,11 +136,9 @@
   if (ONE_CRUST) then
     first_layer_aniso = 2
     last_layer_aniso = 3
-    nb_layer_above_aniso = 1
   else
     first_layer_aniso = 3
     last_layer_aniso = 4
-    nb_layer_above_aniso = 2
   endif
 
 ! initialize mesh arrays
diff --git a/src/meshfem3D/meshfem3D_par.f90 b/src/meshfem3D/meshfem3D_par.f90
index 0fd3051..649506c 100644
--- a/src/meshfem3D/meshfem3D_par.f90
+++ b/src/meshfem3D/meshfem3D_par.f90
@@ -345,12 +345,11 @@
 
   ! element layers
   integer :: NUMBER_OF_MESH_LAYERS,layer_shift,cpt, &
-    first_layer_aniso,last_layer_aniso,FIRST_ELT_NON_ANISO
+    first_layer_aniso,last_layer_aniso
   logical :: USE_ONE_LAYER_SB
 
   ! layer stretching
   double precision, dimension(:,:), allocatable :: stretch_tab
-  integer :: nb_layer_above_aniso,FIRST_ELT_ABOVE_ANISO
 
   ! Boundary Mesh
   integer :: NSPEC2D_MOHO,NSPEC2D_400,NSPEC2D_670,nex_eta_moho