时间积分参数
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=rk), | public | :: | cfl |
CFL 数 |
|||
| real(kind=rk), | public | :: | stop_time |
停止计算时间 |
|||
| real(kind=rk), | public | :: | dt |
输出时间间隔 |
读取时间积分参数
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(time_integration_configuration), | intent(inout) | :: | self |
打印时间积分参数
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(time_integration_configuration), | intent(in) | :: | self |
type time_integration_configuration
real(rk) :: cfl !! CFL 数
real(rk) :: stop_time !! 停止计算时间
real(rk) :: dt !! 输出时间间隔
contains
procedure :: read => tic_read
procedure, private :: print => tic_print
end type time_integration_configuration