DropletEquationSolver Derived Type
type, public, extends(BasicParameter) :: DropletEquationSolver
飛沫方程式ソルバクラス 蒸発方程式や運動方程式を解くメソッドを保持
Inherits
Inherited by
Type-Bound Procedures
procedure, public, :: repValue => representativeValue
-
private function representativeValue(self, name)
Arguments
Type Intent Optional Attributes Name class(BasicParameter) :: self character(len=*), intent(in) :: name Return Value doubleprecision
procedure, public, :: TimeStep2RealTime
-
private function TimeStep2RealTime(self, step, dimension)
Arguments
Type Intent Optional Attributes Name class(BasicParameter) :: self integer, intent(in) :: step logical, intent(in) :: dimension Return Value doubleprecision
procedure, public, :: dropletEnvironment
-
private function dropletEnvironment(self, name)
Arguments
Type Intent Optional Attributes Name class(DropletEquationSolver) :: self character(len=*), intent(in) :: name Return Value real
procedure, public, :: set_dropletEnvironment
-
private subroutine set_dropletEnvironment(self, Temperature, RelativeHumidity)
Arguments
Type Intent Optional Attributes Name class(DropletEquationSolver) :: self real, intent(in) :: Temperature real, intent(in) :: RelativeHumidity
procedure, public, :: set_gravity_acceleration
-
private subroutine set_gravity_acceleration(self, direction_g)
Arguments
Type Intent Optional Attributes Name class(DropletEquationSolver) :: self double precision, intent(in) :: direction_g(3)
procedure, public, :: set_minimumRadiusRatio
-
private subroutine set_minimumRadiusRatio(self)
湿度から、飛沫の下限半径と初期半径との比を求める。
Arguments
Type Intent Optional Attributes Name class(DropletEquationSolver) :: self
procedure, public, :: set_coeff_drdt
-
private subroutine set_coeff_drdt(self)
Arguments
Type Intent Optional Attributes Name class(DropletEquationSolver) :: self
procedure, public, :: next_velocity
-
private function next_velocity(self, vel_d, vel_a, radius_d) result(vel_d_next)
次時刻における速度を計算
Arguments
Type Intent Optional Attributes Name class(DropletEquationSolver) :: self double precision, intent(in) :: vel_d(3) double precision, intent(in) :: vel_a(3) double precision, intent(in) :: radius_d Return Value double precision, (3)
procedure, public, :: next_position
-
private function next_position(self, x1, v1, v2) result(x2)
次時刻における位置を返す
Arguments
Type Intent Optional Attributes Name class(DropletEquationSolver) :: self double precision, intent(in) :: x1(3) double precision, intent(in) :: v1(3) double precision, intent(in) :: v2(3) Return Value double precision, (3)
procedure, public, :: get_radiusLowerLimitRatio
-
private function get_radiusLowerLimitRatio(self)
下限半径と初期半径との比を返す
Arguments
Type Intent Optional Attributes Name class(DropletEquationSolver), intent(in) :: self Return Value doubleprecision
procedure, public, :: evaporationEq => evaporationEquation
-
private function evaporationEquation(self, radius) result(dr)
蒸発方程式。半径変化量を返す。
Arguments
Type Intent Optional Attributes Name class(DropletEquationSolver) :: self double precision, intent(in) :: radius Return Value double precision
procedure, public, :: solve_motionEquation
-
private subroutine solve_motionEquation(self, X, V, Va, R)
運動方程式を解く。 引数の値が上書きされる。
Arguments
Type Intent Optional Attributes Name class(DropletEquationSolver) :: self double precision, intent(inout) :: X(3) double precision, intent(inout) :: V(3) double precision, intent(in) :: Va(3) double precision, intent(in) :: R