[cig-commits] r21038 - seismo/3D/SPECFEM3D/trunk/src/specfem3D

[joseph.charles at geodynamics.org]

Author: joseph.charles
Date: 2012-11-15 07:26:47 -0800 (Thu, 15 Nov 2012)
New Revision: 21038

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic.F90
Log:
updates the call to compute_forces_elastic_Dev_openmp() in compute_forces_elastic.F90


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic.F90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic.F90	2012-11-15 14:59:03 UTC (rev 21037)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_elastic.F90	2012-11-15 15:26:47 UTC (rev 21038)
@@ -417,12 +417,12 @@
 
 !----------------------------------------------------------------------------------------------
 #ifdef OPENMP_MODE
-    call compute_forces_elastic_Dev_openmp(iphase, NSPEC_AB,NGLOB_AB,displ,accel, &
+    call compute_forces_elastic_Dev_openmp(iphase, NSPEC_AB,NGLOB_AB,displ,veloc,accel, &
            xix,xiy,xiz,etax,etay,etaz,gammax,gammay,gammaz, &
            hprime_xx,hprime_xxT,hprimewgll_xx,hprimewgll_xxT, &
            wgllwgll_xy,wgllwgll_xz,wgllwgll_yz, &
            kappastore,mustore,jacobian,ibool, &
-           ATTENUATION, &
+           ATTENUATION,deltat, &
            one_minus_sum_beta,factor_common, &
            alphaval,betaval,gammaval, &
            NSPEC_ATTENUATION_AB, &