[1D] Fixed calculation of diffusion flux due to Soret effect

Resolves Issue 132.
This commit is contained in:
Ray Speth 2012-12-13 22:46:10 +00:00
parent c4e62b72ed
commit 5b423847f2

View file

@ -979,7 +979,8 @@ void StFlow::updateDiffFluxes(const doublereal* x, size_t j0, size_t j1)
if (m_do_soret) {
for (m = j0; m < j1; m++) {
gradlogT = 2.0*(T(x,m+1) - T(x,m))/(T(x,m+1) + T(x,m));
gradlogT = 2.0 * (T(x,m+1) - T(x,m)) /
((T(x,m+1) + T(x,m)) * (z(m+1) - z(m)));
for (k = 0; k < m_nsp; k++) {
m_flux(k,m) -= m_dthermal(k,m)*gradlogT;
}