[cig-commits] [commit] devel: Merge branch 'devel' of https://github.com/geodynamics/specfem3d_globe into devel (38846e0)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Aug 27 08:07:42 PDT 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branch : devel
Link : https://github.com/geodynamics/specfem3d_globe/compare/6271dcdae3579ea9e7131e156f86a410ad1cdf56...d73e17b31b8ef6d1938aca80ad74120cd1d91699
>---------------------------------------------------------------
commit 38846e02cfeff520a050d76cd408bbedc5c05366
Merge: 94bbd45 6271dcd
Author: daniel peter <peterda at ethz.ch>
Date: Wed Aug 27 16:36:55 2014 +0200
Merge branch 'devel' of https://github.com/geodynamics/specfem3d_globe into devel
>---------------------------------------------------------------
38846e02cfeff520a050d76cd408bbedc5c05366
setup/constants.h.in | 3 ++
src/specfem3D/comp_source_time_function.f90 | 66 ++++++++++++++++++++++++++++-
src/specfem3D/get_cmt.f90 | 5 +++
src/specfem3D/rules.mk | 2 +-
src/specfem3D/setup_sources_receivers.f90 | 5 +++
src/specfem3D/specfem3D_par.F90 | 3 ++
6 files changed, 81 insertions(+), 3 deletions(-)
diff --cc src/specfem3D/setup_sources_receivers.f90
index e004874,644b7d3..0a522f4
--- a/src/specfem3D/setup_sources_receivers.f90
+++ b/src/specfem3D/setup_sources_receivers.f90
@@@ -178,8 -178,13 +178,13 @@@
! define t0 as the earliest start time
t0 = - 1.5d0*minval( tshift_cmt(:) - hdur(:) )
+ if ( EXTERNAL_SOURCE_TIME_FUNCTION ) then
+ hdur(:) = 0._CUSTOM_REAL
+ t0 = 0.d0
+ end if
+
! point force sources will start depending on the frequency given by hdur
- if( USE_FORCE_POINT_SOURCE ) then
+ if (USE_FORCE_POINT_SOURCE) then
! note: point force sources will give the dominant frequency in hdur,
! thus the main period is 1/hdur.
! also, these sources use a Ricker source time function instead of a Gaussian.
More information about the CIG-COMMITS
mailing list