Update CalcThermal.R