mod_const.f90

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

MODULE MOD_CONST

! module contains all build-time constants
  IMPLICIT NONE

  INTEGER, PARAMETER  :: N_E_PAR = 2 , N_Y_PAR = 1 

END MODULE MOD_CONST