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

[cmorency at geodynamics.org]

Author: cmorency
Date: 2008-11-24 15:25:47 -0800 (Mon, 24 Nov 2008)
New Revision: 13388

Modified:
   seismo/2D/SPECFEM2D/branches/BIOT/compute_forces_fluid.f90
Log:
bug fixed with compute_force_fluid and multi sources


Modified: seismo/2D/SPECFEM2D/branches/BIOT/compute_forces_fluid.f90
===================================================================
--- seismo/2D/SPECFEM2D/branches/BIOT/compute_forces_fluid.f90	2008-11-24 23:17:19 UTC (rev 13387)
+++ seismo/2D/SPECFEM2D/branches/BIOT/compute_forces_fluid.f90	2008-11-24 23:25:47 UTC (rev 13388)
@@ -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