[cig-commits] r22395 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D

[elliott.sales.de.andrade at geodynamics.org]

Author: elliott.sales.de.andrade
Date: 2013-06-20 15:04:52 -0700 (Thu, 20 Jun 2013)
New Revision: 22395

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
Log:
Add missing argument to save_regular_kernels_crust_mantle.

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90	2013-06-20 22:04:39 UTC (rev 22394)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90	2013-06-20 22:04:52 UTC (rev 22395)
@@ -4103,7 +4103,7 @@
     ! crust mantle
     if (SAVE_REGULAR_KL) then
     call save_regular_kernels_crust_mantle(myrank, &
-                  npoints_slice, hxir_reg, hetar_reg, hgammar_reg, &
+                  npoints_slice, hxir_reg, hetar_reg, hgammar_reg, ispec_reg, &
                   scale_t,scale_displ, &
                   cijkl_kl_crust_mantle,rho_kl_crust_mantle, &
                   alpha_kl_crust_mantle,beta_kl_crust_mantle, &