[cig-commits] r13371 - seismo/2D/SPECFEM2D/branches/BIOT

[cmorency at geodynamics.org]

Author: cmorency
Date: 2008-11-21 14:49:23 -0800 (Fri, 21 Nov 2008)
New Revision: 13371

Modified:
   seismo/2D/SPECFEM2D/branches/BIOT/compute_forces_solid.f90
Log:
Yang : compute_forces_solid corrected


Modified: seismo/2D/SPECFEM2D/branches/BIOT/compute_forces_solid.f90
===================================================================
--- seismo/2D/SPECFEM2D/branches/BIOT/compute_forces_solid.f90	2008-11-21 19:30:17 UTC (rev 13370)
+++ seismo/2D/SPECFEM2D/branches/BIOT/compute_forces_solid.f90	2008-11-21 22:49:23 UTC (rev 13371)
@@ -81,7 +81,8 @@
   logical :: anyabs,assign_external_model,initialfield,TURN_ATTENUATION_ON,TURN_ANISOTROPY_ON
   logical :: save_forward
 
-  double precision :: angleforce,deltatcube,deltatfourth,twelvedeltat,fourdeltatsquare
+  double precision :: deltatcube,deltatfourth,twelvedeltat,fourdeltatsquare
+  double precision, dimension(NSOURCE) :: angleforce
 
   integer, dimension(NGLLX,NGLLZ,nspec) :: ibool
   integer, dimension(nspec) :: kmato