alloc_nr.f90

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

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

SUBROUTINE ALLOC_NR

  USE PRECISION   , ONLY: WP

  USE CONTROL_DATA, ONLY: MZ

  USE NONREF_BOUND, ONLY: NR_DATA_Z, SZ_D
                          
!-----------------------------------------------------------------------

  IMPLICIT NONE

  INTEGER :: ALLOSTAT

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

  SZ_D  = NR_DATA_Z ( 0._WP, 0._WP, 0._WP, 0._WP, 0._WP, 0._WP )


END SUBROUTINE ALLOC_NR