粒子二进制文件对象
粒子集数组分区:| 实弹性粒子 | 实刚体粒子 | 虚粒子 |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=8), | private | :: | fid |
输出文件句柄 |
|||
| integer, | private | :: | fid_stat |
stat.csv 文件句柄 |
|||
| integer, | private | :: | fid_float |
float.csv 文件句柄 |
|||
| integer, | public, | pointer | :: | numbers(:) |
弹性实、刚性浮体实、边界虚、总粒子数,刚性浮体数量 |
||
| integer, | public, | pointer | :: | float_objects(:,:) |
浮体对象 |
||
| integer, | public | :: | nreal |
实粒子数 |
|||
| integer(kind=8), | public | :: | istep |
步数 |
|||
| type(particle_type), | public, | pointer | :: | ptc |
粒子集 |
||
| real(kind=rk), | public, | allocatable | :: | z(:) |
关闭
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(pif_h5part_type), | intent(inout) | :: | self |
打开
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(pif_h5part_type), | intent(inout) | :: | self |
写入
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(pif_h5part_type), | intent(inout) | :: | self | |||
| real(kind=rk), | intent(in) | :: | t |
读取粒子二进制文件
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(pif_h5part_type), | intent(inout) | :: | self | |||
| type(particle_type), | intent(inout), | target | :: | region |
type pif_h5part_type
integer(8), private :: fid !! 输出文件句柄
integer, private :: fid_stat !! stat.csv 文件句柄
integer, private :: fid_float !! float.csv 文件句柄
integer, pointer :: numbers(:) !! 弹性实、刚性浮体实、边界虚、总粒子数,刚性浮体数量
integer, pointer :: float_objects(:, :) !! 浮体对象
integer :: nreal !! 实粒子数
integer(8) :: istep !! 步数
type(particle_type), pointer :: ptc !! 粒子集
real(rk), allocatable :: z(:)
contains
procedure :: read, write, open, close
end type pif_h5part_type