parameterization.f90

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

!-----------------------------------------------------------------------
SUBROUTINE PARAMETERIZATION

  USE MOD_INTERFACES      , ONLY: ALLOCATE_ARRAYS

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

  IMPLICIT NONE

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

  INTERFACE
    SUBROUTINE     PREPARE_Y
    END SUBROUTINE PREPARE_Y

    SUBROUTINE     PREPARE_INT
    END SUBROUTINE PREPARE_INT
  END INTERFACE

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

  WRITE(*,'(A)')'Parameterize medium using avaraging of physical &
                &parameters'
  
    

END SUBROUTINE PARAMETERIZATION