[cig-commits] r19403 - in seismo/3D/ADJOINT_TOMO/flexwin/user_files: global_3D japan_3D/bp06_030 japan_3D/bp12_150

[liuqy at geodynamics.org]

Author: liuqy
Date: 2012-01-20 14:13:59 -0800 (Fri, 20 Jan 2012)
New Revision: 19403

Modified:
   seismo/3D/ADJOINT_TOMO/flexwin/user_files/global_3D/user_functions.f90
   seismo/3D/ADJOINT_TOMO/flexwin/user_files/japan_3D/bp06_030/user_functions.f90
   seismo/3D/ADJOINT_TOMO/flexwin/user_files/japan_3D/bp12_150/user_functions.f90
Log:
Add modify_T0_T1_on_condition subroutine in example user_functions (except for socal)



Modified: seismo/3D/ADJOINT_TOMO/flexwin/user_files/global_3D/user_functions.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/global_3D/user_functions.f90	2012-01-20 21:55:01 UTC (rev 19402)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/global_3D/user_functions.f90	2012-01-20 22:13:59 UTC (rev 19403)
@@ -1,3 +1,21 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition 
+! Note, this function is called AFTER the seismogram has been 
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+  subroutine modify_T0_T1_on_condition
+  use seismo_variables
+  implicit none
+
+  ! do nothing
+
+  ! adjust fstart and fend accordingly
+  FSTART=1./WIN_MAX_PERIOD
+  FEND=1./WIN_MIN_PERIOD
+
+  end subroutine
+
   ! -------------------------------------------------------------
   ! edit here to change the time dependent properties of the 
   ! selection criteria

Modified: seismo/3D/ADJOINT_TOMO/flexwin/user_files/japan_3D/bp06_030/user_functions.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/japan_3D/bp06_030/user_functions.f90	2012-01-20 21:55:01 UTC (rev 19402)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/japan_3D/bp06_030/user_functions.f90	2012-01-20 22:13:59 UTC (rev 19403)
@@ -1,3 +1,20 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition 
+! Note, this function is called AFTER the seismogram has been 
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+  subroutine modify_T0_T1_on_condition
+  use seismo_variables
+  implicit none
+
+  ! do nothing
+
+  ! adjust fstart and fend accordingly
+  FSTART=1./WIN_MAX_PERIOD
+  FEND=1./WIN_MIN_PERIOD
+
+  end subroutine
   ! -------------------------------------------------------------
   ! edit here to change the time dependent properties of the 
   ! selection criteria

Modified: seismo/3D/ADJOINT_TOMO/flexwin/user_files/japan_3D/bp12_150/user_functions.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/user_files/japan_3D/bp12_150/user_functions.f90	2012-01-20 21:55:01 UTC (rev 19402)
+++ seismo/3D/ADJOINT_TOMO/flexwin/user_files/japan_3D/bp12_150/user_functions.f90	2012-01-20 22:13:59 UTC (rev 19403)
@@ -1,3 +1,20 @@
+! -------------------------------------------------------------
+! edit here to change T0 and T1 on some condition 
+! Note, this function is called AFTER the seismogram has been 
+! read but before it is filtered.
+! -------------------------------------------------------------
+
+  subroutine modify_T0_T1_on_condition
+  use seismo_variables
+  implicit none
+
+  ! do nothing
+
+  ! adjust fstart and fend accordingly
+  FSTART=1./WIN_MAX_PERIOD
+  FEND=1./WIN_MIN_PERIOD
+
+  end subroutine
   ! -------------------------------------------------------------
   ! edit here to change the time dependent properties of the 
   ! selection criteria