[cig-commits] [commit] devel: removed an unused variable (ee89692)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/7e3133fb85a1be9aa04f961c1a1a0689cd3c243c...ee89692ecb585fa42c4a5ec823d8dffc273127ef

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

commit ee89692ecb585fa42c4a5ec823d8dffc273127ef
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Tue Aug 19 23:58:10 2014 +0200

    removed an unused variable


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

ee89692ecb585fa42c4a5ec823d8dffc273127ef
 src/specfem2D/specfem2D.F90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/specfem2D/specfem2D.F90 b/src/specfem2D/specfem2D.F90
index bf38e33..afc1672 100644
--- a/src/specfem2D/specfem2D.F90
+++ b/src/specfem2D/specfem2D.F90
@@ -593,7 +593,7 @@
 ! AXISYM parameters
 
   logical :: AXISYM ! .true. if we are performing a 2.5D simulation
-  ! Nember of elements on the symmetry axis
+  ! Number of elements on the symmetry axis
   integer :: nelem_on_the_axis
   ! Flag to know if an element is on the axis
   logical, dimension(:), allocatable :: is_on_the_axis
@@ -605,7 +605,6 @@
   real(kind=CUSTOM_REAL), dimension(NGLJ,NGLJ) :: hprimeBar_xx,hprimeBarwglj_xx
   ! Shape functions (and their derivatives) evaluated at the GLJ points
   double precision, dimension(:,:), allocatable :: flagrange_GLJ
-  real(kind=CUSTOM_REAL), dimension(NGLJ,NGLLZ) :: r_xiplus1
 
 ! for CPML_element_file
   logical :: read_external_mesh