update CalcTH