mod_control_data.f90

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

!_______________________________________________________________________

MODULE CONTROL_DATA
  USE PRECISION, ONLY: WP

  IMPLICIT NONE

  LOGICAL       ::           KEY_TLD,          KEY_SND

  INTEGER       ::  MZ, MT1, MT2, IPAS1, IPAS2, MR, LS, NRFREQ
                                        
  INTEGER       ::  KTTO, KTBO

  REAL (KIND=WP)::  DT, FRJMAX, FRANGE

  REAL (KIND=WP)::  OMG, WB

  INTEGER, DIMENSION (:) , ALLOCATABLE :: LREC
                    
END MODULE CONTROL_DATA