spx_dynamics Module

动力学例程，求解单步加速度

Note

粒子加速度受多个粒子影响，不可简单并行加速

Uses

Contents

Variables

is_first

Subroutines

solver

Variables

Type	Visibility	Attributes		Name		Initial
logical,	private		::	is_first	=	.true.	flag for first time step

Subroutines

public subroutine solver(loc, vel, acc, t)

求解实弹性、刚性粒子单步的加速度（受力）

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	loc(:)
real(kind=rk),	intent(in)			::	vel(:)
real(kind=rk),	intent(out)			::	acc(:)
real(kind=rk),	intent(in)			::	t