enthalpy_from_temperature_value Function

private pure function enthalpy_from_temperature_value(params, temperature) result(h_value)

Constant-cp helper for a single boundary/face temperature value.

Arguments

Type IntentOptional Attributes Name
type(case_params_t), intent(in) :: params
real(kind=rk), intent(in) :: temperature

Return Value real(kind=rk)


Source Code

   pure function enthalpy_from_temperature_value(params, temperature) result(h_value)
      type(case_params_t), intent(in) :: params
      real(rk), intent(in) :: temperature
      real(rk) :: h_value

      h_value = params%energy_reference_h + &
                params%energy_cp * (temperature - params%energy_reference_T)
   end function enthalpy_from_temperature_value