[cig-commits] [commit] devel, master: Merge branch 'devel' of https://github.com/geodynamics/specfem3d_globe into devel (38846e0)

[cig_noreply at geodynamics.org]

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

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

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

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.