[cig-commits] [commit] devel: renames adjoint seismogram names (displacement and strain) to format /NT.S000001.** instead of /S000001.NT.** (87f62f6)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Tue Dec 23 05:06:54 PST 2014
Repository : https://github.com/geodynamics/specfem3d
On branch : devel
Link : https://github.com/geodynamics/specfem3d/compare/c92aeae6613ca38c29e96dd169c292160dc53e21...c3b9c7ef07feb7d057fa71da18323d53b9c27233
>---------------------------------------------------------------
commit 87f62f630edf3804f7b033efc6b02cfb5bd2cd32
Author: daniel peter <peterda at ethz.ch>
Date: Tue Dec 23 11:29:38 2014 +0100
renames adjoint seismogram names (displacement and strain) to format /NT.S000001.** instead of /S000001.NT.**
>---------------------------------------------------------------
87f62f630edf3804f7b033efc6b02cfb5bd2cd32
src/specfem3D/write_seismograms.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/specfem3D/write_seismograms.f90 b/src/specfem3D/write_seismograms.f90
index 90ff69d..37d1fce 100644
--- a/src/specfem3D/write_seismograms.f90
+++ b/src/specfem3D/write_seismograms.f90
@@ -589,7 +589,7 @@
! create the name of the seismogram file for each slice
! file name includes the name of the station, the network and the component
- write(sisname,"(a2,i6.6,'.',a,'.',a3,'.sem',a1)") '/S',irec,'NT',channel,component
+ write(sisname,"(a3,'.',a1,i6.6,'.',a3,'.sem',a1)") '/NT','S',irec,channel,component
! save seismograms in text format with no subsampling.
! Because we do not subsample the output, this can result in large files
@@ -676,7 +676,7 @@
! create the name of the seismogram file for each slice
! file name includes the name of the station, the network and the component
- write(sisname,"(a2,i6.6,'.',a,'.',a3,'.sem',a1)") '/S',irec,'NT',chn,component
+ write(sisname,"(a3,'.',a1,i6.6,'.',a3,'.sem',a1)") '/NT','S',irec,chn,component
! save seismograms in text format with no subsampling.
! Because we do not subsample the output, this can result in large files
More information about the CIG-COMMITS
mailing list