时间积分器
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=rk), | public | :: | dt |
单步时间步长 |
|||
| real(kind=rk), | public | :: | cur_time |
当前时刻 |
时间积分
例程修改了粒子域的位置、速度和加速度
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(time_integrator), | intent(inout) | :: | self |
初始化时间积分器
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(time_integrator), | intent(inout) | :: | self |
type time_integrator
real(rk) :: dt !! 单步时间步长
real(rk) :: cur_time !! 当前时刻
contains
procedure :: init, run
end type time_integrator