[cig-commits] [commit] QA: code cleanup removes outcommented middle abscissa check (e38ba40)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Tue Feb 4 06:57:44 PST 2014
Repository : ssh://geoshell/specfem3d
On branch : QA
Link : https://github.com/geodynamics/specfem3d/compare/56deeb214ac966cde7e955473d9e61288b16d98f...e38ba401e045bc221ec1099e88d3aa31e7b4773c
>---------------------------------------------------------------
commit e38ba401e045bc221ec1099e88d3aa31e7b4773c
Author: daniel peter <peterda at ethz.ch>
Date: Tue Feb 4 11:24:06 2014 +0100
code cleanup removes outcommented middle abscissa check
>---------------------------------------------------------------
e38ba401e045bc221ec1099e88d3aa31e7b4773c
src/shared/define_derivation_matrices.f90 | 5 -----
1 file changed, 5 deletions(-)
diff --git a/src/shared/define_derivation_matrices.f90 b/src/shared/define_derivation_matrices.f90
index 228698b..2dbce74 100644
--- a/src/shared/define_derivation_matrices.f90
+++ b/src/shared/define_derivation_matrices.f90
@@ -58,11 +58,6 @@
call zwgljd(yigll,wygll,NGLLY,GAUSSALPHA,GAUSSBETA)
call zwgljd(zigll,wzgll,NGLLZ,GAUSSALPHA,GAUSSBETA)
-! if number of points is odd, the middle abscissa is exactly ZERO
-! if(mod(NGLLX,2) /= 0) xigll((NGLLX-1)/2+1) = ZERO
-! if(mod(NGLLY,2) /= 0) yigll((NGLLY-1)/2+1) = ZERO
-! if(mod(NGLLZ,2) /= 0) zigll((NGLLZ-1)/2+1) = ZERO
-
! distinguish between single and double precision for reals
if(CUSTOM_REAL == SIZE_REAL) then
More information about the CIG-COMMITS
mailing list