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
........\examples\E_DVS_02.IN
........\........\HF_1DFD_DVS
........\........\MICRO.DAT
........\........\MODEL.IN
........\........\SOURTF.IN
........\src\1DFD_DVS\alloc_nr.f90
........\...\........\alloc_wavefield.f90
........\...\........\anel_func.f90
........\...\........\aux1.f90
........\...\........\displacement.f90
........\...\........\higdce_fd.f90
........\...\........\main.f90
........\...\........\Makefile
........\...\........\mod_auxil.f90
........\...\........\mod_control_data.f90
........\...\........\mod_grid_medium.f90
........\...\........\mod_nr_bound.f90
........\...\........\mod_precision.f90
........\...\........\mod_time.f90
........\...\........\mod_wavefield.f90
........\...\........\nonref.f90
........\...\........\open_sr_file.f90
........\...\........\OptAbsBc.f90
........\...\........\pre_nr_coef1.f90
........\...\........\read_model_par.f90
........\...\........\read_open.f90
........\...\........\rec_dis.f90
........\...\........\rec_vel.f90
........\...\........\snap_dis.f90
........\...\........\snap_vel.f90
........\...\........\sto_bor.f90
........\...\........\strain.f90
........\...\........\stress.f90
........\...\........\time_loop.f90
........\...\........\velocity.f90
........\...\Model_prep_1d\allocate_arrays.f90
........\...\.............\func_m1_rho.f90
........\...\.............\func_ym.f90
........\...\.............\int1d.f90
........\...\.............\int1d_y.f90
........\...\.............\Makefile
........\...\.............\model.f90
........\...\.............\mod_atten.f90
........\...\.............\mod_const.f90
........\...\.............\mod_files.f90
........\...\.............\mod_func.f90
........\...\.............\mod_integration.f90
........\...\.............\mod_interfaces.f90
........\...\.............\mod_model.f90
........\...\.............\mod_nr.f90
........\...\.............\mod_parameterization.f90
........\...\.............\nrtype.f90
........\...\.............\nrutil.f90
........\...\.............\parameterization.f90
........\...\.............\parameterize_grid.f90
........\...\.............\prepare_fine_par.f90
........\...\.............\prepare_fine_par_y.f90
........\...\.............\prepare_int.f90
........\...\.............\prepare_y.f90
........\...\.............\print_info.f90
........\...\.............\qylsm.f90
........\...\.............\setparams.f90
........\...\.............\test_parameters.f90
........\...\.............\write_param.f90
........\...\SourTF\fcoolr.f90
........\...\......\Makefile
........\...\......\mod_prec.f90
........\...\......\sourtf.f90
........\tools\CompE02.gnuplot
........\.....\Show_STF.gnuplot
........\.....\Show_STF_spec.gnuplot
........\src\1DFD_DVS
........\...\Model_prep_1d
........\...\SourTF
........\doc
........\examples
........\output
........\src
........\tools
1DFD_DVS

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．