[cig-commits] r18306 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries

[yangl at geodynamics.org]

Author: yangl
Date: 2011-05-02 06:38:42 -0700 (Mon, 02 May 2011)
New Revision: 18306

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90
Log:
minor change in combine_vol_data.f90, when AVERAGE_GLOBALPOINTS = .true. (not averaging fictitious elements) 

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90	2011-05-01 18:20:31 UTC (rev 18305)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90	2011-05-02 13:38:42 UTC (rev 18306)
@@ -269,6 +269,7 @@
       ibool_dat(:) = 0.0
       if( AVERAGE_GLOBALPOINTS ) then
         do ispec=1,nspec(it)
+         if (ir/=3 .or. (ir==3 .and. idoubling_inner_core(ispec) /= IFLAG_IN_FICTITIOUS_CUBE)) then
           do k = 1, NGLLZ, dk
             do j = 1, NGLLY, dj
               do i = 1, NGLLX, di
@@ -281,6 +282,7 @@
               enddo
             enddo
           enddo
+         endif
         enddo
         do iglob=1,nglob(it)
           if( ibool_count(iglob) > 0 ) then