[cig-commits] r21257 - in seismo/2D/SPECFEM2D/trunk: . src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-01-16 17:33:51 -0800 (Wed, 16 Jan 2013)
New Revision: 21257

Modified:
   seismo/2D/SPECFEM2D/trunk/flags.guess
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
got rid of CRISTINI_DO_NOT_DUMP_FICTITIOUS_REGIONS flag, now useless because we have C-PML implemented


Modified: seismo/2D/SPECFEM2D/trunk/flags.guess
===================================================================
--- seismo/2D/SPECFEM2D/trunk/flags.guess	2013-01-17 01:20:15 UTC (rev 21256)
+++ seismo/2D/SPECFEM2D/trunk/flags.guess	2013-01-17 01:33:51 UTC (rev 21257)
@@ -43,6 +43,9 @@
         # useful for debugging...
         # for debugging: change -O3 -check nobounds to      -check all -debug -g -O0 -fp-stack-check -traceback -ftrapuv
         #
+## DK DK
+## DK DK two other flags that can be useful:    USE_BINARY_FOR_EXTERNAL_MESH_DATABASE        USE_GUENNEAU
+## DK DK
         ;;
     gfortran|*/gfortran|f95|*/f95)
         #

Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-01-17 01:20:15 UTC (rev 21256)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-01-17 01:33:51 UTC (rev 21257)
@@ -8540,9 +8540,6 @@
         icounter = 0
         mask_ibool(:) = .false.
         do ispec = 1,nspec
-#ifdef CRISTINI_DO_NOT_DUMP_FICTITIOUS_REGIONS
-         if(kmato(ispec) > 2) cycle
-#endif
           do j = 1,NGLLZ
             do i = 1,NGLLX
                iglob = ibool(i,j,ispec)
@@ -8566,9 +8563,7 @@
         open(unit=27,file=wavefield_file,status='unknown',action='write')
         write(27,*) icounter
         close(27)
-#ifndef CRISTINI_DO_NOT_DUMP_FICTITIOUS_REGIONS
         if(icounter /= nglob) stop 'error: should have icounter == nglob in wavefield dumps'
-#endif
 
         this_is_the_first_time_we_dump = .false.
 
@@ -8636,9 +8631,6 @@
         icounter = 0
         mask_ibool(:) = .false.
         do ispec = 1,nspec
-#ifdef CRISTINI_DO_NOT_DUMP_FICTITIOUS_REGIONS
-         if(kmato(ispec) > 2) cycle
-#endif
           do j = 1,NGLLZ
             do i = 1,NGLLX
                iglob = ibool(i,j,ispec)