bsimcmg, adms workaround, split T3 into two
This commit is contained in:
parent
f2b6d382ac
commit
1412df7bb7
|
|
@ -853,7 +853,7 @@ real ni, epssub, epssp, epsratio, Eg, Eg0, Nc;
|
||||||
real Lg, deltaL, deltaL1, deltaLCV, Leff, Leff1, LeffCV, LeffCV_acc, Weff0, WeffCV0;
|
real Lg, deltaL, deltaL1, deltaLCV, Leff, Leff1, LeffCV, LeffCV_acc, Weff0, WeffCV0;
|
||||||
real cox, cdsc, cbox;
|
real cox, cdsc, cbox;
|
||||||
real nbody, phib, deltaPhi;
|
real nbody, phib, deltaPhi;
|
||||||
real T0, T1, T2, T3, T4, T4a, T5, T6, T7, T8, T9;
|
real T0, T1, T2, T3, T3y, T4, T4a, T5, T6, T7, T8, T9;
|
||||||
real Vtm, Vtm0, nVtm;
|
real Vtm, Vtm0, nVtm;
|
||||||
real beta, beta0 ;
|
real beta, beta0 ;
|
||||||
real wf, wr;
|
real wf, wr;
|
||||||
|
|
@ -1199,7 +1199,7 @@ analog begin
|
||||||
RDDRR_t = 0.0;
|
RDDRR_t = 0.0;
|
||||||
RSDRR_t = 0.0;
|
RSDRR_t = 0.0;
|
||||||
Rdsi = 0.0;
|
Rdsi = 0.0;
|
||||||
T3 = 0.0;
|
T3y = 0.0;
|
||||||
Tcen0 = 0.0;
|
Tcen0 = 0.0;
|
||||||
veseff = 0.0;
|
veseff = 0.0;
|
||||||
U0R_t = 0.0;
|
U0R_t = 0.0;
|
||||||
|
|
@ -2211,12 +2211,12 @@ analog begin
|
||||||
eta = rhorsd * lt / RHOC;
|
eta = rhorsd * lt / RHOC;
|
||||||
T1 = T0 * (1.0 + eta);
|
T1 = T0 * (1.0 + eta);
|
||||||
T2 = T1 + 1.0 - eta;
|
T2 = T1 + 1.0 - eta;
|
||||||
T3 = T1 - 1.0 + eta;
|
T3y = T1 - 1.0 + eta;
|
||||||
end else begin
|
end else begin
|
||||||
T2 = T0 + 1.0;
|
T2 = T0 + 1.0;
|
||||||
T3 = T0 - 1.0;
|
T3y = T0 - 1.0;
|
||||||
end
|
end
|
||||||
RrsdTML = rhorsd * lt * T2 / (arsd_total * T3);
|
RrsdTML = rhorsd * lt * T2 / (arsd_total * T3y);
|
||||||
|
|
||||||
if (HEPI < -1.0e-10) begin
|
if (HEPI < -1.0e-10) begin
|
||||||
Rrsdside = RHOC / (-HEPI * TFIN * NFIN);
|
Rrsdside = RHOC / (-HEPI * TFIN * NFIN);
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue