[cig-commits] r16300 - seismo/3D/SPECFEM3D_GLOBE/trunk

[bozdag at geodynamics.org]

Author: bozdag
Date: 2010-02-21 12:43:07 -0800 (Sun, 21 Feb 2010)
New Revision: 16300

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90
Log:
sac headers are updated in write_seismograms.f90 

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90	2010-02-21 19:26:58 UTC (rev 16299)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90	2010-02-21 20:43:07 UTC (rev 16300)
@@ -533,7 +533,7 @@
 
       B      = sngl((seismo_offset)*DT-hdur + t_cmt) ! [REQUIRED]
       E      = BYSAC       ! [REQUIRED]
-      O      = undef  !###
+      O      = 0  !
       A      = undef  !###
       !station values:
       STLA = stlat(irec)
@@ -684,7 +684,7 @@
       !  KEVNM  = ename(1:len_trim(ename))//'_sFS'! A16
       !endif
 
-      KCMPNM = chn(3:3)           ! 3A8
+      KCMPNM = chn(1:3)           ! 3A8
       KNETWK = network_name(irec) !  A6
 
       ! indicates SEM synthetics