model.f90

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

PROGRAM MODEL_PREP_1D

USE MOD_INTERFACES, ONLY: SETPARAMS, PRINT_INFO,                       &
                          WRITE_PARAM
        
!-----------------------------------------------------------------------

IMPLICIT NONE

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

  CALL SETPARAMS

  CALL PREPARE_Y

  CALL PREPARE_INT

  CALL ALLOCATE_ARRAYS
      
  CALL PARAMETERIZE_GRID

  CALL WRITE_PARAM

  CALL LOG_INFO

END