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

[cmorency at geodynamics.org]

Author: cmorency
Date: 2010-05-06 13:36:11 -0700 (Thu, 06 May 2010)
New Revision: 16660

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
Corrected bug regarding generating images using pressure as the variable, following Paul Cristini email.


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2010-05-06 17:13:32 UTC (rev 16659)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2010-05-06 20:36:11 UTC (rev 16660)
@@ -7372,7 +7372,7 @@
          displs_poroelastic,displw_poroelastic,elastic,poroelastic,vector_field_display, &
          xix,xiz,gammax,gammaz,ibool,hprime_xx,hprime_zz,nspec,npoin,assign_external_model, &
          numat,kmato,density,porosity,tortuosity,poroelastcoef,vpext,vsext,rhoext, &
-         c11ext,c13ext,c15ext,c33ext,c35ext,c55ext,e1,e11, &
+         c11ext,c13ext,c15ext,c33ext,c35ext,c55ext,anisotropic,anisotropy,e1,e11, &
          TURN_ATTENUATION_ON,Mu_nu1,Mu_nu2,N_SLS)
 
   else if(imagetype == 4 .and. .not. p_sv) then