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

[cmorency at geodynamics.org]

Author: cmorency
Date: 2009-10-16 05:06:32 -0700 (Fri, 16 Oct 2009)
New Revision: 15814

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
Minor image output correction.


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2009-10-15 22:51:13 UTC (rev 15813)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2009-10-16 12:06:32 UTC (rev 15814)
@@ -7082,7 +7082,7 @@
 
     if (myrank == 0) write(IOUT,*) 'drawing image of z (if P-SV) or y (if SH) component of displacement vector...'
 
-    call compute_vector_whole_medium(potential_acoustic,b_displ_elastic,b_displs_poroelastic,&
+    call compute_vector_whole_medium(potential_acoustic,displ_elastic,displs_poroelastic,&
           elastic,poroelastic,vector_field_display, &
           xix,xiz,gammax,gammaz,ibool,hprime_xx,hprime_zz,nspec,npoin,numat,kmato,density,rhoext,assign_external_model)