[cig-commits] r16531 - seismo/2D/SPECFEM2D/trunk

[cmorency at geodynamics.org]

Author: cmorency
Date: 2010-04-12 13:12:15 -0700 (Mon, 12 Apr 2010)
New Revision: 16531

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
Initialized all_anistropic flag to .false.
Corrected acoustic case displacement seismograms in p_sv case.


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2010-04-12 20:03:30 UTC (rev 16530)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2010-04-12 20:12:15 UTC (rev 16531)
@@ -1029,6 +1029,7 @@
   any_acoustic = .false.
   any_elastic = .false.
   any_poroelastic = .false.
+  all_anisotropic = .false.
   anisotropic(:) = .false.
   do ispec = 1,nspec
 
@@ -6772,7 +6773,7 @@
         else if(.not. elastic(ispec) .and. .not. poroelastic(ispec) .and.  seismotype /= 6) then
 
           dxd = vector_field_element(1,i,j)
-          dzd = vector_field_element(2,i,j)
+          dzd = vector_field_element(3,i,j)
 
         else if(seismotype == 6) then