remove derivative in thermal flux for injectors

This commit is contained in:
Tor Harald Sandve 2022-11-10 12:57:21 +01:00
parent d8c0057601
commit 7553e22726

View File

@ -681,12 +681,15 @@ namespace Opm
fs.setDensity(phaseIdx, rho);
const auto& h = FluidSystem::enthalpy(fs, paramCache, phaseIdx);
fs.setEnthalpy(phaseIdx, h);
}
cq_r_thermal *= this->extendEval(fs.enthalpy(phaseIdx)) * this->extendEval(fs.density(phaseIdx));
connectionRates[perf][Indices::contiEnergyEqIdx] += getValue(cq_r_thermal);
} else {
// compute the thermal flux
cq_r_thermal *= this->extendEval(fs.enthalpy(phaseIdx)) * this->extendEval(fs.density(phaseIdx));
connectionRates[perf][Indices::contiEnergyEqIdx] += Base::restrictEval(cq_r_thermal);
}
}
}
if constexpr (has_polymer) {
// TODO: the application of well efficiency factor has not been tested with an example yet