calcATHBset function

SET based on Adaptive Thermal Heat Balance Framework