mod_integration.f90

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

MODULE MOD_INTEGRATION

  USE NRTYPE   , ONLY: WP

  IMPLICIT NONE

  INTEGER  :: PTS, PTS2

  REAL(WP)   , DIMENSION (:)  , ALLOCATABLE ::                         &
               M1_FINE,  RHO_FINE

  COMPLEX(WP), DIMENSION (:,:), ALLOCATABLE ::                         &
              YM1_FINE

END MODULE MOD_INTEGRATION