[docs]defsac_temp_slow(RH,p,eta=0.35):"""RH as fraction over liquid p in hPa"""cp=1004eps=0.622EI=1.223# WV eission index for keroseneQ=43.2e6# Lower heating valueG=EI*p*100*cp/(eps*Q*(1-eta))# Tf = -44.16 + 9.43*np.log(G-0.053) + 0.72*(np.log(G-0.053))**2Tf=-46.46+9.08*np.log(G-0.053)+0.72*(np.log(G-0.053))**2Tf=273.15+TfTt=Tf-0.001evalRH=(psat_liq(Tf)-G*(Tf-Tt))/psat_liq(Tt)whileevalRH>RH:Tt-=0.01evalRH=(psat_liq(Tf)-G*(Tf-Tt))/psat_liq(Tt)returnTt
[docs]defsac_temp(RH,p,eta=0.35):"""RH as fraction p in hPa"""cp=1004eps=0.622EI=1.223# WV eission index for keroseneQ=43.2e6# Lower heating valueG=EI*p*100*cp/(eps*Q*(1-eta))# Tf = -44.16 + 9.43*np.log(G-0.053) + 0.72*(np.log(G-0.053))**2Tf=-46.46+9.08*np.log(G-0.053)+0.72*(np.log(G-0.053))**2Tf=273.15+TfTt=Tf-0.001foriinrange(6):Tt_new=Tt-(Tt-Tf+(psat_liq(Tf)-RH*psat_liq(Tt))/G)/(1-(RH/G)*dpsat_liq(Tt))Tt=Tt_newreturnTt