[cig-commits] r12878 - seismo/3D/ADJOINT_TOMO/flexwin

[alessia at geodynamics.org]

Author: alessia
Date: 2008-09-15 07:16:26 -0700 (Mon, 15 Sep 2008)
New Revision: 12878

Modified:
   seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90
Log:
The if (BODY_WAVE_ONLY) condition in read_sac_files was commented out.  I have uncommented it again.

Modified: seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90	2008-09-15 14:14:36 UTC (rev 12877)
+++ seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90	2008-09-15 14:16:26 UTC (rev 12878)
@@ -330,10 +330,10 @@
   call getkhv('kcmpnm', kcmpnm, nerr)
   call getkhv('knetwk', knetwk, nerr)
 
-  !if (BODY_WAVE_ONLY) then
+  if (BODY_WAVE_ONLY) then
      call getfhv('t1', P_pick, nerr)
      call getfhv('t2', S_pick, nerr)
-  !endif
+  endif
 
   ! CHT: why does this output as:  FMP     BHR     CI      
   if (DEBUG) write(*,*) kstnm, kcmpnm, knetwk