Compute derived reference values.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(non_dimensional_numbers_object), | intent(inout) | :: | self | Non dimensional numbers. |
elemental subroutine compute_reference_values(self)
!< Compute derived reference values.
class(non_dimensional_numbers_object), intent(inout) :: self !< Non dimensional numbers.
self%mu0 = (self%r0 * self%v0 * self%L0) / self%Re
self%f0 = (self%v0 * self%v0) / (self%L0 * self%Fr * self%Fr)
self%k0 = (self%mu0 * self%c0) / self%Pr
self%Dt0 = self%L0 / self%v0
self%p0 = self%r0 * self%v0 * self%v0
self%a0 = self%v0
self%T0 = (self%v0 * self%v0) / self%c0
self%E0 = self%v0 * self%v0
self%q0 = (self%v0 * self%v0 * self%v0) / self%L0
self%Re_inv = 1._R8P / self%Re
self%Fr2_inv = 1._R8P / (self%Fr * self%Fr)
self%PrRe_inv = 1._R8P / (self%Pr * self%Re)
endsubroutine compute_reference_values