17 lines
483 B
C
17 lines
483 B
C
//--------------------------------------------------//
|
|
//- rotate fields
|
|
//--------------------------------------------------//
|
|
{
|
|
Info << "Rotating Fields" << endl;
|
|
|
|
//- dF is calculated at the end of the momentum loop
|
|
F = I + DF;
|
|
volTensorField Finv = inv(F);
|
|
J = det(F);
|
|
|
|
rho = rho/J;
|
|
sigma = 1/J * symm(F & sigma & F.T());
|
|
epsilon = symm(Finv.T() & epsilon & Finv);
|
|
epsilonP = symm(Finv.T() & epsilonP & Finv);
|
|
epsilonE = symm(Finv.T() & epsilonE & Finv);
|
|
}
|