mod_parameterization.f90

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

MODULE MOD_PARAMETERIZATION

USE NRTYPE,    ONLY: WP, SP
USE MOD_CONST, ONLY: N_E_PAR, N_Y_PAR

!------------------------------------------------------------- constants
IMPLICIT NONE

!------------------------------------------------------------- variables
INTEGER  :: NRFREQ
REAL(WP) :: FRJMAX, FRANGE, FREF, Q_OLD
REAL(WP), DIMENSION(:    ), ALLOCATABLE :: YM_OLD

REAL(SP), DIMENSION(:,:  ), ALLOCATABLE :: CELLS
REAL(SP), DIMENSION(:,:,:), ALLOCATABLE :: CELLSY

END MODULE MOD_PARAMETERIZATION