sto_bor.f90

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

!=======================================================================

SUBROUTINE  STO_BOR (D)

  USE PRECISION   , ONLY: WP
  USE CONTROL_DATA, ONLY: MZ
  USE NONREF_BOUND, ONLY: SZ_D, SZ_DP

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

  IMPLICIT NONE

  REAL(WP), INTENT(INOUT), DIMENSION(0:MZ) :: D

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


  SZ_DP = SZ_D
  
  SZ_D%T0 = D(0)
  SZ_D%T1 = D(1)
  SZ_D%T2 = D(2)

  SZ_D%TMZ0 = D(MZ  )
  SZ_D%TMZ1 = D(MZ-1)
  SZ_D%TMZ2 = D(MZ-2)


END  SUBROUTINE  STO_BOR