x =J/(0.69502*T)
bleabow = g^2*exp(x)/((1+3*exp(x))*(T-TH))
chi = 2*.375144*((1-ro)*(bleabow)+ro*(.25*g^2/T))+TIP