foam-extend4.1-coherent-io/applications/solvers/solidMechanics/elasticPlasticSolidFoam/calculateDivDSigmaExp.H

if(divDSigmaExpMethod == "standard")
{
    divDSigmaExp = fvc::div
    (
        mu*gradDU.T() + lambda*(I*tr(gradDU)) - (mu + lambda)*gradDU,
        "div(sigma)"
    );
}
else if(divDSigmaExpMethod == "surface")
{
    surfaceTensorField gradDUf = fvc::interpolate(gradDU);

    divDSigmaExp = fvc::div
    (
        mesh.magSf()*
        (
            muf*(n & gradDUf.T())
          + lambdaf*tr(gradDUf)*n
          - (muf + lambdaf)*(n & gradDUf)
         )
    );

//  divDSigmaExp = fvc::div
//  (
//     muf*(mesh.Sf() & fvc::interpolate(gradDU.T()))
//     + lambdaf*(mesh.Sf() & I*fvc::interpolate(tr(gradDU)))
//     - (muf + lambdaf)*(mesh.Sf() & fvc::interpolate(gradDU))
//     );
}
else if(divDSigmaExpMethod == "decompose")
{
    surfaceTensorField shearGradDU = ((I - n*n) & fvc::interpolate(gradDU));

    divDSigmaExp = fvc::div
    (
        mesh.magSf()*
        (
          - (muf + lambdaf)*(fvc::snGrad(DU) & (I - n*n))
          + lambdaf*tr(shearGradDU & (I - n*n))*n
          + muf*(shearGradDU & n)
        )
    );
}
else if(divDSigmaExpMethod == "laplacian")
{
    divDSigmaExp =
      - fvc::laplacian(mu + lambda, DU, "laplacian(DDU,DU)")
      + fvc::div(mu*gradDU.T() + lambda*(I*tr(gradDU)), "div(sigma)");
}
else
{
    FatalErrorIn(args.executable())
        << "divDSigmaExp method " << divDSigmaExpMethod << " not found!"
        << abort(FatalError);
}