mod_model.f90

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

MODULE MOD_MODEL

  USE NRTYPE, ONLY: WP, SP

! module contains procedures, function and variables for
! creating and working with aproximation of sediments/bedrock interface

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

!------------------------------------------------------ public variables

  INTEGER      :: MZ
  REAL(WP)     :: H, H2
  REAL(WP)     :: ZMAX
  LOGICAL      :: KEY_Q

END MODULE MOD_MODEL