travt.h

计算一维均匀半无限层状介质的初至走时

Author

Zhu Dengda (zhudengda@mail.iggcas.ac.cn)

Date

2024-08

Functions

real_t grt_compute_travt1d(const real_t *Thk, const real_t *Vel0, const size_t nlay, const size_t isrc, const size_t ircv, const real_t dist)

已知每层的厚度和速度，且震源和场点位于（虚拟）界面上, 且不共享层位，即使深度相同，中间也考虑一个厚度为0的层。 故当abs(isrc-ircv)==1时，说明两点位于同一物理层

参数:

• Thk – [in] 每层厚度

• Vel0 – [in] 每层速度

• nlay – [in] 层数

• isrc – [in] 震源所在层位

• ircv – [in] 场点所在层位

• dist – [in] 震中距