From e41c02128a2afe5f24aac21e11a70ae068a1dc4c Mon Sep 17 00:00:00 2001
From: Jan at TU-Delft <J.W.Thorbecke@tudelft.nl>
Date: Thu, 13 Sep 2018 14:10:36 +0200
Subject: [PATCH] corecting time-shifts to match kxmod results
---
fdelmodc/getParameters.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/fdelmodc/getParameters.c b/fdelmodc/getParameters.c
index 8200cd6..0473ec0 100644
--- a/fdelmodc/getParameters.c
+++ b/fdelmodc/getParameters.c
@@ -1110,7 +1110,7 @@ int getParameters(modPar *mod, recPar *rec, snaPar *sna, wavPar *wav, srcPar *sr
rec->skipdt=NINT(dtrcv/dt);
dtrcv = mod->dt*rec->skipdt;
if (!getparfloat("rec_delay",&rdelay)) rdelay=0.0;
- if (!getparint("rec_ntsam",&rec->nt)) rec->nt=NINT((mod->tmod-rdelay)/dtrcv)+1;
+ if (!getparint("rec_ntsam",&rec->nt)) rec->nt=NINT((mod->tmod-rdelay)/dtrcv);
if (!getparint("rec_int_p",&rec->int_p)) rec->int_p=0;
if (!getparint("rec_int_vx",&rec->int_vx)) rec->int_vx=0;
if (!getparint("rec_int_vz",&rec->int_vz)) rec->int_vz=0;
@@ -1118,7 +1118,7 @@ int getParameters(modPar *mod, recPar *rec, snaPar *sna, wavPar *wav, srcPar *sr
if (!getparint("scale",&rec->scale)) rec->scale=0;
if (!getparfloat("dxspread",&dxspread)) dxspread=0;
if (!getparfloat("dzspread",&dzspread)) dzspread=0;
- rec->nt=MIN(rec->nt, NINT((mod->tmod-rdelay)/dtrcv)+1);
+ rec->nt=MIN(rec->nt, NINT((mod->tmod-rdelay)/dtrcv));
/* allocation of receiver arrays is done in recvPar */
/*
--
GitLab