[cig-commits] r8513 - seismo/2D/SPECFEM2D/trunk
walter at geodynamics.org
walter at geodynamics.org
Fri Dec 7 15:52:30 PST 2007
Author: walter
Date: 2007-12-07 15:52:30 -0800 (Fri, 07 Dec 2007)
New Revision: 8513
Modified:
seismo/2D/SPECFEM2D/trunk/specfem2D.f90
Log:
updated three comments
Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.f90 2007-04-17 09:58:28 UTC (rev 8512)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.f90 2007-12-07 23:52:30 UTC (rev 8513)
@@ -1303,11 +1303,12 @@
jend_left(:) = NGLLZ
jend_right(:) = NGLLZ
-! exclude common points between acoustic absorbing edges and acoustic/elastic matching interface
+! exclude common points between acoustic absorbing edges and acoustic/elastic matching interfaces
if(coupled_acoustic_elastic .and. anyabs) then
- print *,'excluding common points between acoustic absorbing edges and acoustic/elastic matching interface, if any'
+ print *,'excluding common points between acoustic absorbing edges and acoustic/elastic matching interfaces, if any'
+! loop on all the absorbing elements
do ispecabs = 1,nelemabs
ispec = numabs(ispecabs)
More information about the cig-commits
mailing list