[cig-commits] [commit] master: removing unused matrices (88ba07b)

[cig_noreply at geodynamics.org]

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

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/3a7fbbac2b69a2178e788da14208ab04e301cc5e...6446c3c69458f843a58231451968e55551c41501

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

commit 88ba07bfad1b387db040b92c21eb89f0045880d2
Author: martinvandriel <martin at vandriel.de>
Date:   Wed Sep 17 13:49:07 2014 +0200

    removing unused matrices


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

88ba07bfad1b387db040b92c21eb89f0045880d2
 SOLVER/data_matr.f90         | 2 --
 SOLVER/def_precomp_terms.f90 | 2 --
 2 files changed, 4 deletions(-)

diff --git a/SOLVER/data_matr.f90 b/SOLVER/data_matr.f90
index cf903dc..61e504b 100644
--- a/SOLVER/data_matr.f90
+++ b/SOLVER/data_matr.f90
@@ -88,8 +88,6 @@ module data_matr
   !++++++++++++++++++++++++++++++++++++++++++++++++++++
   ! Solid-fluid boundary matrix
   real(kind=realkind), dimension(:,:,:), allocatable :: bdry_matr
-  real(kind=realkind), dimension(:,:,:), allocatable :: bdry_matr_fluid
-  real(kind=realkind), dimension(:,:,:), allocatable :: bdry_matr_solid
   real(kind=dp), dimension(:)          , allocatable :: solflubdry_radius
   
   !++++++++++++++++++++++++++++++++++++++++++++++++++++
diff --git a/SOLVER/def_precomp_terms.f90 b/SOLVER/def_precomp_terms.f90
index 2d3acb9..51369f6 100644
--- a/SOLVER/def_precomp_terms.f90
+++ b/SOLVER/def_precomp_terms.f90
@@ -2590,8 +2590,6 @@ subroutine def_solid_fluid_boundary_terms
   integer                      :: count_lower_disc,count_upper_disc
 
   allocate(bdry_matr(0:npol,nel_bdry,2))   
-  allocate(bdry_matr_fluid(0:npol,nel_bdry,2))    
-  allocate(bdry_matr_solid(0:npol,nel_bdry,2))   
   allocate(solflubdry_radius(nel_bdry))
 
   bdry_sum = zero