fixed bug in relperm computation.

This commit is contained in:
Xavier Raynaud 2012-06-14 14:01:53 +02:00
parent 5f4b68fe33
commit 6e7980ba47

View File

@ -82,10 +82,10 @@ namespace Opm
kr[2*i] = krw(s[2*i]);
kr[2*i+1] = kro(s[2*i+1]);
if (dkrds != 0) {
dkrds[2*i] = krw_dsw(s[2*i]);
dkrds[2*i+3] = kro_dso(s[2*i+1]);
dkrds[2*i+1] = 0.0;
dkrds[2*i+2] = 0.0;
dkrds[4*i + 0] = krw_dsw(s[2*i]);
dkrds[4*i + 3] = kro_dso(s[2*i+1]);
dkrds[4*i + 1] = 0.0;
dkrds[4*i + 2] = 0.0;
}
}
}