[cig-commits] r12670 - seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-08-17 17:39:47 -0700 (Sun, 17 Aug 2008)
New Revision: 12670

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/comp_mass_matrix_one_element.f90
Log:
I had forgotten to remove the second pass in one routine


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/comp_mass_matrix_one_element.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/comp_mass_matrix_one_element.f90	2008-08-17 23:12:11 UTC (rev 12669)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/comp_mass_matrix_one_element.f90	2008-08-18 00:39:47 UTC (rev 12670)
@@ -1,8 +1,6 @@
 
 !! DK DK added this for merged version
 
-  if(ipass == 2) then
-
 ! suppress fictitious elements in central cube
 ! also take into account the fact that array idoubling is not allocated for the outer core
   add_contrib_this_element = .true.
@@ -70,5 +68,3 @@
 
   endif ! of exclusion of fictitious inner core elements
 
-  endif ! of ipass == 2
-