mod_nr_bound.f90

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

!_______________________________________________________________________

MODULE NONREF_BOUND

  USE PRECISION, ONLY: WP

!-----------------------------------------------------------------------

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

  TYPE     NR_PAR_A_Z
    REAL (KIND=WP) ::                                                  &
                    ATOP01,   ATOP02,   ATOP10,   ATOP11,              &
                    ATOP12,   ATOP20,   ATOP21,   ATOP22,              &
                    ABOT01,   ABOT02,   ABOT10,   ABOT11,              &
                    ABOT12,   ABOT20,   ABOT21,   ABOT22
  END TYPE NR_PAR_A_Z

  TYPE     NR_DATA_Z
    REAL (KIND=WP) ::                                                  &
                    T0    , T1   , T2    ,                             &
                    TMZ0  , TMZ1 , TMZ2
  END TYPE NR_DATA_Z

!-----------------------------------------------------------------------

  TYPE (NR_PAR_A_Z):: AZ

  TYPE (NR_DATA_Z) :: SZ_D, SZ_DP


END MODULE NONREF_BOUND