adds backward compatibility for CMT source start times (when STF_IS_U…

…CB_HEAVISIDE is set)
danielpeter · Oct 31, 2024 · 63a2709 · 63a2709
1 parent 54d6e15
commit 63a2709
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/EXAMPLES/regional_Berkeley/DATA/CMTSOLUTION b/EXAMPLES/regional_Berkeley/DATA/CMTSOLUTION
@@ -1,7 +1,7 @@
 PDEW 2008  1  6  5 14 23.70  37.2200   22.6900  75.0 6.1 6.2 SOUTHERN GREECE
 event name:     200801060514A
 time shift:      0.000
-half duration:   3.0000
+half duration:   2.2000
 latitude:       36.9800
 longitude:      22.8700
 depth:          92.3900

diff --git a/src/specfem3D/setup_sources_receivers.f90 b/src/specfem3D/setup_sources_receivers.f90
@@ -806,7 +806,13 @@ subroutine setup_stf_constants()
 
   ! Berkeley stf
   if (STF_IS_UCB_HEAVISIDE) then
-    t0 = 0.d0
+    if (USE_OLD_VERSION_FORMAT) then
+      ! sets t0 to zero for force sources only
+      if (USE_FORCE_POINT_SOURCE) t0 = 0.d0
+    else
+      ! sets t0 to zero for any source type
+      t0 = 0.d0
+    endif
   endif
 
   ! checks if user set USER_T0 to fix simulation start time