mod_wavefield.f90

来自「1D有限差分波动方程模拟」· F90 代码 · 共 14 行

!_______________________________________________________________________

MODULE WAVEFIELD
  USE PRECISION, ONLY: WP
  IMPLICIT NONE

  REAL    (KIND=WP), DIMENSION (:)    , ALLOCATABLE ::                 &
                    E, T, D, DM

  REAL    (KIND=WP), DIMENSION (:,:  ), ALLOCATABLE ::                 &
                    Z, SEIS

END MODULE WAVEFIELD