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

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

Author: elliott.sales.de.andrade
Date: 2013-01-16 17:51:13 -0800 (Wed, 16 Jan 2013)
New Revision: 21258

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

I was sure I did this already the first time. Times like this, I
wish the code used modules or explicit interfaces.

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90	2013-01-17 01:33:51 UTC (rev 21257)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90	2013-01-17 01:51:13 UTC (rev 21258)
@@ -1079,7 +1079,7 @@
                 hprime_xx,hprime_yy,hprime_zz,hprime_xxT, &
                 hprimewgll_xx,hprimewgll_yy,hprimewgll_zz,hprimewgll_xxT, &
                 wgllwgll_xy,wgllwgll_xz,wgllwgll_yz, &
-                rec_filename,STATIONS,nrec,NOISE_TOMOGRAPHY)
+                rec_filename,STATIONS,nrec,NOISE_TOMOGRAPHY,SAVE_REGULAR_KL)
 !
 !-------------------------------------------------------------------------------------------------
 !-------------------------------------------------------------------------------------------------