spx_backup.f90 Source File


Contents

Source Code


Source Code

!> 粒子备份
module spx_backup

    use spx_kinds, only: rk
    implicit none

    private
    public :: backup_type

    !> 粒子备份物理量 @note 用以备份初始时刻的固定粒子的状态量,用于更新后恢复
    type backup_type
        real(rk), allocatable :: loc(:, :)  !! 坐标, \\( m \\)
        real(rk), allocatable :: vel(:, :)  !! 速度, \\( m/s \\)
        real(rk), allocatable :: rho(:)     !! 密度, \\( kg/m^3 \\)
        real(rk), allocatable :: p(:)       !! 压强, \\( Pa \\)
    end type backup_type

end module spx_backup