mod_time.f90

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

MODULE TIME

  IMPLICIT NONE
  CHARACTER(LEN=10) :: BIG_BEN(3)
  INTEGER           :: DATE_TIME(8)
  REAL              :: time_begin, time_end

END MODULE TIME