alloc_nr.f90

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

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

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