Return energy value.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(primitive_compressible), | intent(in) | :: | self | Primitive. |
||
| class(eos_object), | intent(in) | :: | eos | Equation of state. |
Energy value.
elemental function energy(self, eos) result(energy_)
!< Return energy value.
class(primitive_compressible), intent(in) :: self !< Primitive.
class(eos_object), intent(in) :: eos !< Equation of state.
real(R8P) :: energy_ !< Energy value.
energy_ = self%pressure / (eos%g() - 1._R8P) + 0.5_R8P * self%density * self%velocity%sq_norm()
endfunction energy