[cig-commits] [commit] devel: Move variable from module to subroutine. (2cc93c3)

[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 2cc93c33966a370878432590563633b66f4a1f90
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Sat Dec 6 19:40:15 2014 -0500

    Move variable from module to subroutine.
    
    It's only used in one subroutine and even then for some really small
    portion.


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

2cc93c33966a370878432590563633b66f4a1f90
 src/meshfem3D/create_regions_mesh.F90 | 1 +
 src/meshfem3D/meshfem3D_par.f90       | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/meshfem3D/create_regions_mesh.F90 b/src/meshfem3D/create_regions_mesh.F90
index 5615ed7..98d353a 100644
--- a/src/meshfem3D/create_regions_mesh.F90
+++ b/src/meshfem3D/create_regions_mesh.F90
@@ -847,6 +847,7 @@
   integer :: NEX_PER_PROC_ETA
 
   ! local parameters
+  integer :: cpt
   integer :: i,ier
 
   ! initializes element layers
diff --git a/src/meshfem3D/meshfem3D_par.f90 b/src/meshfem3D/meshfem3D_par.f90
index 649506c..af1e394 100644
--- a/src/meshfem3D/meshfem3D_par.f90
+++ b/src/meshfem3D/meshfem3D_par.f90
@@ -344,7 +344,7 @@
   double precision :: T_c_source
 
   ! element layers
-  integer :: NUMBER_OF_MESH_LAYERS,layer_shift,cpt, &
+  integer :: NUMBER_OF_MESH_LAYERS,layer_shift, &
     first_layer_aniso,last_layer_aniso
   logical :: USE_ONE_LAYER_SB