TPC Function

public elemental function TPC(rho, Aw)

每厘米吃水吨数 $TPC = rho*Aw/100$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sk_real_kind),	intent(in)			::	rho	水密度
real(kind=sk_real_kind),	intent(in)			::	Aw	水线面面积

Return Value real(kind=sk_real_kind)

Contents