[cig-commits] [commit] devel: fix the bug on seismogram simulation (8baeffb)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem2d

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/fcdb8c375c54dd3563c5790de6b458ec0f1f44e6...8baeffbdb460a04e95ab9ceacec67a1545d6c86a

>---------------------------------------------------------------

commit 8baeffbdb460a04e95ab9ceacec67a1545d6c86a
Author: EtienneBachmann <etiennebachmann at hotmail.fr>
Date:   Fri Jan 23 14:54:59 2015 +0100

    fix the bug on seismogram simulation


>---------------------------------------------------------------

8baeffbdb460a04e95ab9ceacec67a1545d6c86a
 src/specfem2D/write_seismograms.F90 | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/specfem2D/write_seismograms.F90 b/src/specfem2D/write_seismograms.F90
index d8bc18f..bcac2dc 100644
--- a/src/specfem2D/write_seismograms.F90
+++ b/src/specfem2D/write_seismograms.F90
@@ -58,11 +58,17 @@
                           potential_dot_gravitoacoustic, potential_dot_dot_gravitoacoustic, &
                           potential_gravito, potential_dot_gravito, potential_dot_dot_gravito, &
                           elastic, accel_elastic, veloc_elastic, displ_elastic, &
-                          poroelastic, accels_poroelastic, velocs_poroelastic, displs_poroelastic
+                          poroelastic, accels_poroelastic, velocs_poroelastic, displs_poroelastic, &
+                          acoustic,gravitoacoustic,elastic,poroelastic,vector_field_display, &
+                          xix,xiz,gammax,gammaz,ibool,hprime_xx,hprime_zz, &
+                          ispec,hprime_xx,hprime_zz, &
+                          AXISYM,is_on_the_axis,hprimeBar_xx, &
+                          nspec,nglob_acoustic,nglob_gravitoacoustic,nglob_elastic,nglob_poroelastic, &
+                          numat,kmato,density,rhoext,gravityext,assign_external_model
 
   include "constants.h"
 
-  integer :: i, j, iglob, ispec, irecloc, irec
+  integer :: i, j, iglob, irecloc, irec
   double precision :: dxd,dyd,dzd !,vxd,vyd,vzd,axd,ayd,azd
   double precision :: valux, valuy, valuz
   double precision :: valcurl, dcurld, hlagrange