foam-extend4.1-coherent-io/applications/solvers/solidMechanics/elasticThermalSolidFoam/calculateDivSigmaExp.H

if(divSigmaExpMethod == "standard")
{
    divSigmaExp = fvc::div
    (
        mu*gradU.T() + lambda*(I*tr(gradU)) - (mu + lambda)*gradU,
        "div(sigma)"
    )
    - gradThreeKalphaDeltaT;
}
else if(divSigmaExpMethod == "surface")
{
    divSigmaExp = fvc::div
    (
        muf*(mesh.Sf() & fvc::interpolate(gradU.T()))
      + lambdaf*(mesh.Sf() & I*fvc::interpolate(tr(gradU)))
      - (muf + lambdaf)*(mesh.Sf() & fvc::interpolate(gradU))
      - threeKalphaDeltaTf
    );
}
else if(divSigmaExpMethod == "decompose")
{
    snGradU = fvc::snGrad(U);

    surfaceTensorField shearGradU = ((I - n*n) & fvc::interpolate(gradU));

    divSigmaExp = fvc::div
    (
        mesh.magSf()*
        (
          - (muf + lambdaf)*(snGradU & (I - n*n))
          + lambdaf*tr(shearGradU & (I - n*n))*n
          + muf*(shearGradU & n)
        )
      - threeKalphaDeltaTf
    );
}
/*
else if(divSigmaExpMethod == "expLaplacian")
{
    divSigmaExp =
      - fvc::laplacian(mu + lambda, U, "laplacian(DU,U)")
      + fvc::div(mu*gradU.T() + lambda*(I*tr(gradU)), "div(sigma)");
}
*/
else
{
    FatalErrorIn(args.executable())
        << "divSigmaExp method " << divSigmaExpMethod << " not found!" << endl;
}