1DFD_DVS
所属分类：数学计算
开发工具：Fortran
文件大小：3219KB
下载次数：56
上传日期：2012-04-23 13:08:09
上 传 者：
skyey
说明： 利用位移-速度-应力交错网格有限差分方法进行一维粘弹性介质地震波场生成和模拟，对于做波场模拟的同学有很好的参考价值，更详细的介绍见英文描述。
(The Fortran95 Computer Code for Finite-Difference Numerical Generation and Simulation of a 1D Seismic Wavefield in a 1D Heterogeneous Viscoelastic Medium Using the Displacement-Velocity-Stress Staggered-Grid Finite-Difference Scheme
The program 1DFD_DVS performs FD computations according to the displacement-velocity-stress staggered-grid FD scheme for a 1D wavefield in a 1D heterogeneous viscoelastic medium.
Two other programs,
• program MODEL_PREP_1D,
• program SOURTF,
perform the model and source-time function preparation as input data for the computational program 1DFD_DVS.
The medium can be bounded from one side (in the programs it is the upper horizontal plane z=0) by either of the following boundaries:
• free surface (traction-free condition),
• plane of symmetry,
• rigid boundary,
• nonreflecting boundary (several types).
The medium can be bounded from the other side (the bottom horizontal plane z=z_max>0 ) by )
文件列表:
1DFD_DVS\doc\Moczo_et_al_FDM_Intro.pdf (4154503, 2005-03-10)
1DFD_DVS\examples\E_DVS_02.IN (441, 2004-10-15)
1DFD_DVS\examples\HF_1DFD_DVS (9, 2004-10-15)
1DFD_DVS\examples\MICRO.DAT (753664, 2004-10-15)
1DFD_DVS\examples\MODEL.IN (187, 2004-10-15)
1DFD_DVS\examples\SOURTF.IN (103, 2004-10-15)
1DFD_DVS\src\1DFD_DVS\alloc_nr.f90 (503, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\alloc_wavefield.f90 (804, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\anel_func.f90 (753, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\aux1.f90 (1384, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\displacement.f90 (589, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\higdce_fd.f90 (903, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\main.f90 (865, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\Makefile (2538, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\mod_auxil.f90 (601, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\mod_control_data.f90 (491, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\mod_grid_medium.f90 (353, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\mod_nr_bound.f90 (1072, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\mod_precision.f90 (198, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\mod_time.f90 (160, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\mod_wavefield.f90 (368, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\nonref.f90 (3436, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\open_sr_file.f90 (701, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\OptAbsBc.f90 (3218, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\pre_nr_coef1.f90 (2119, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\read_model_par.f90 (1191, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\read_open.f90 (7954, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\rec_dis.f90 (737, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\rec_vel.f90 (739, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\snap_dis.f90 (741, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\snap_vel.f90 (743, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\sto_bor.f90 (520, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\strain.f90 (1783, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\stress.f90 (768, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\time_loop.f90 (3593, 2004-09-27)
1DFD_DVS\src\1DFD_DVS\velocity.f90 (3761, 2004-09-27)
1DFD_DVS\src\Model_prep_1d\allocate_arrays.f90 (685, 2004-09-26)
1DFD_DVS\src\Model_prep_1d\func_m1_rho.f90 (741, 2004-09-26)
1DFD_DVS\src\Model_prep_1d\func_ym.f90 (1165, 2004-09-26)
1DFD_DVS\src\Model_prep_1d\int1d.f90 (900, 2004-09-26)
... ...
近期下载者：
相关文件：
收藏者：