你已经派生过 tem3dfdtd-open
镜像自地址
https://gitee.com/sunhf/tem3dfdtd-open.git
已同步 2025-08-03 03:16:53 +08:00
11 行
567 B
Fortran
11 行
567 B
Fortran
!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
|
|
!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
|
|
!Code distribution @ tdem.org or sunhuaifeng.com
|
|
|
|
MODULE TIME_PARAMETER
|
|
REAL(KIND=8), DIMENSION(:), ALLOCATABLE:: CTIME,DELT
|
|
!Ctime is a Nstop length array which stores the value of time of each iteration step
|
|
! Delt is a Nstop length array which stores the value of iteration time step.
|
|
REAL TIME_RAMP2WAVE_SUM,TIME_RAMP2WAVE_TEMP
|
|
! This is used in Time_series subroutine.
|
|
ENDMODULE TIME_PARAMETER |