[cig-commits] [commit] devel: refactored write_seismograms (fc5c1ce)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Dec 10 14:45:25 PST 2014
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
More information about the CIG-COMMITS
mailing list