mod_grid_medium.f90

1D有限差分波动方程模拟

!_______________________________________________________________________

MODULE GRID_MEDIUM
  USE PRECISION, ONLY: WP
  IMPLICIT NONE

  CHARACTER(LEN=40) :: TEXT

  REAL (KIND=WP) :: H

  REAL (KIND=WP), DIMENSION (:)  , ALLOCATABLE ::  DEN, M
  
  REAL (KIND=WP), DIMENSION (:,:), ALLOCATABLE ::  YM
                          
END MODULE GRID_MEDIUM