[cig-commits] [commit] devel: fix the error of station name in adj_seismogram_Tromp2005.f90 (8b7dc04)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/d2deb1c4f3ca714ba8230050d7133f96e285962a...fcdb8c375c54dd3563c5790de6b458ec0f1f44e6

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

commit 8b7dc047dc7bc7855075a3e38d7d0be91be36243
Author: Xie Zhinan <xiezhinan1984 at gmail.com>
Date:   Fri Jan 23 11:08:30 2015 +0800

    fix the error of station name in adj_seismogram_Tromp2005.f90


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

8b7dc047dc7bc7855075a3e38d7d0be91be36243
 EXAMPLES/Tromp2005_kernel/adj_seismogram_Tromp2005.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/EXAMPLES/Tromp2005_kernel/adj_seismogram_Tromp2005.f90 b/EXAMPLES/Tromp2005_kernel/adj_seismogram_Tromp2005.f90
index 2a7528a..552e1fc 100644
--- a/EXAMPLES/Tromp2005_kernel/adj_seismogram_Tromp2005.f90
+++ b/EXAMPLES/Tromp2005_kernel/adj_seismogram_Tromp2005.f90
@@ -87,7 +87,7 @@ program adj_seismogram
 
      do icomp = 1, NDIMr
 
-        filename = 'OUTPUT_FILES/'//trim(station_name(irec))//'.AA.'// compr(icomp) // '.semd'
+        filename = 'OUTPUT_FILES/'//'AA.'//trim(station_name(irec))//'.'// compr(icomp) // '.semd'
         open(unit = 10, file = trim(filename))
 
         do itime = 1,NSTEP
@@ -119,7 +119,7 @@ program adj_seismogram
 
         print*,comp(icomp)
 
-        filename = 'SEM/'//trim(station_name(irec))//'.AA.'// comp(icomp) // '.adj'
+        filename = 'SEM/'//'AA.'//trim(station_name(irec))//'.'// comp(icomp) // '.adj'
         open(unit = 11, file = trim(filename))
 
         time_window(:) = 0.d0