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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2014-03-06 19:18:22 -0800 (Thu, 06 Mar 2014)
New Revision: 23006

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90
Log:
temporary fix for an 'optional' argument forgotten by Matthieu; I have contacted him about this


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90	2014-03-07 03:05:46 UTC (rev 23005)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90	2014-03-07 03:18:22 UTC (rev 23006)
@@ -313,7 +313,9 @@
 
            total_seismos = total_seismos + 1
            ! write this seismogram
-           call write_one_seismogram(one_seismogram,irec,irec_local)
+!! DK DK added this temporarily to suppress a warning
+!! DK DK and contacte Matthieu about this           call write_one_seismogram(one_seismogram,irec,irec_local)
+           call write_one_seismogram(one_seismogram,irec,irec_local,asdf_container) !! DK DK last argument is fictitious
 
          enddo
        endif