diff --git a/src/lagrangian/intermediate/parcels/Templates/ThermoParcel/ThermoParcel.C b/src/lagrangian/intermediate/parcels/Templates/ThermoParcel/ThermoParcel.C
index 6a476110dd6be6c88f715cbb4c22a56c3f0caee5..5885512511ae853cf146ded11a2cf487cd477319 100644
--- a/src/lagrangian/intermediate/parcels/Templates/ThermoParcel/ThermoParcel.C
+++ b/src/lagrangian/intermediate/parcels/Templates/ThermoParcel/ThermoParcel.C
@@ -110,7 +110,7 @@ void Foam::ThermoParcel<ParcelType>::calc
     scalar T1 = calcHeatTransfer(td, dt, cellI, d0, U0, rho0, T0, cp0, Sh);
 
     // Calculate new enthalpy state
-    scalar H1 = cp0 - T1;
+    scalar H1 = cp0*T1;
 
 
     // Motion