function Haout = fHa(Ha,Ta,Fa)
Tref = 298.15;
Cp = CpAiravg(Ta);
Haout = Ha - Fa*Cp*(Ta-Tref);

