[cig-commits] [commit] devel: refactored write_seismograms (fc5c1ce)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem2d

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/0509fc8b3f04a8436eaccda15f30b6cee82c654f...5d9c6086eb1fd7747d58089e11875116d45b4277

>---------------------------------------------------------------

commit fc5c1ce3c00f0e693517114958658d0b4f941b94
Author: rmodrak <rmodrak at princeton.edu>
Date:   Wed Dec 10 16:15:33 2014 -0500

    refactored write_seismograms


>---------------------------------------------------------------

fc5c1ce3c00f0e693517114958658d0b4f941b94
 src/specfem2D/specfem2D.F90         | 2 +-
 src/specfem2D/write_seismograms.F90 | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/specfem2D/specfem2D.F90 b/src/specfem2D/specfem2D.F90
index c12578d..6eef8bb 100644
--- a/src/specfem2D/specfem2D.F90
+++ b/src/specfem2D/specfem2D.F90
@@ -8406,7 +8406,7 @@ if(coupled_elastic_poro) then
 ! suppress seismograms if we generate traces of the run for analysis with "ParaVer", because time consuming
     if(mod(it,NSTEP_BETWEEN_OUTPUT_SEISMOS) == 0 .or. it == NSTEP) then
 
-      call write_seismograms(x_source(1),z_source(1))
+      call write_seismograms_to_file(x_source(1),z_source(1))
 
       seismo_offset = seismo_offset + seismo_current
       seismo_current = 0
diff --git a/src/specfem2D/write_seismograms.F90 b/src/specfem2D/write_seismograms.F90
index 09b8c30..46acfac 100644
--- a/src/specfem2D/write_seismograms.F90
+++ b/src/specfem2D/write_seismograms.F90
@@ -44,7 +44,7 @@
 ! write seismograms to text files
 
 
-  subroutine write_seismograms(x_source,z_source)
+  subroutine write_seismograms_to_file(x_source,z_source)
 
 #ifdef USE_MPI
   use mpi
@@ -369,5 +369,5 @@
 
   deallocate(buffer_binary)
 
-  end subroutine write_seismograms
+  end subroutine write_seismograms_to_file