[cig-commits] r22793 - seismo/2D/SPECFEM2D/trunk/src/specfem2D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Mon Sep 16 16:49:30 PDT 2013
Author: dkomati1
Date: 2013-09-16 16:49:30 -0700 (Mon, 16 Sep 2013)
New Revision: 22793
Modified:
seismo/2D/SPECFEM2D/trunk/src/specfem2D/gmat01.f90
Log:
fixed a comment
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/gmat01.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/gmat01.f90 2013-09-16 23:48:28 UTC (rev 22792)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/gmat01.f90 2013-09-16 23:49:30 UTC (rev 22793)
@@ -225,9 +225,6 @@
!
!---- set elastic coefficients and density
!
- ! Isotropic : lambda, mu, K (= lambda + 2*mu), zero
- ! Transverse anisotropic : c11, c13, c33, c44
- !
if(indic == 1) then
density_array(1,n) = density(1)
poroelastcoef(1,1,n) = lambda
More information about the CIG-COMMITS
mailing list