[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