foam-extend4.1-coherent-io/applications/solvers/solidMechanics/elasticOrthoNonLinULSolidFoam/writeFields.H

if (runTime.outputTime())
{
    //C.write();

    volScalarField epsilonEq
    (
        IOobject
        (
            "epsilonEq",
            runTime.timeName(),
            mesh,
            IOobject::NO_READ,
            IOobject::AUTO_WRITE
        ),
        sqrt((2.0/3.0)*magSqr(dev(epsilon)))
    );

    Info<< "Max epsilonEq = " << max(epsilonEq).value() << endl;

    volScalarField sigmaEq
    (
        IOobject
        (
            "sigmaEq",
            runTime.timeName(),
            mesh,
            IOobject::NO_READ,
            IOobject::AUTO_WRITE
        ),
        sqrt((3.0/2.0)*magSqr(dev(sigma)))
    );

    Info<< "Max sigmaEq = " << max(sigmaEq).value() << endl;

// volVectorField traction
// (
//     IOobject
//     (
//         "traction",
//         runTime.timeName(),
//         mesh,
//         IOobject::NO_READ,
//         IOobject::AUTO_WRITE
//     ),
//     mesh,
//     dimensionedVector("zero", dimForce/dimArea, vector::zero)
// );
// forAll(mesh.boundary(), patchi)
// {
//     traction.boundaryField()[patchi] =
//         n.boundaryField()[patchi] & sigma.boundaryField()[patchi];
// }

//     //- patch forces
//     forAll(mesh.boundary(), patchi)
//     {
//         Info << "Patch " << mesh.boundary()[patchi].name() << endl;
//         vectorField totalForce = mesh.Sf().boundaryField()[patchi] & sigma.boundaryField()[patchi];
//         vector force = sum( totalForce );
//         Info << "\ttotal force is " << force << " N" << endl;
//     tensorField F = I + gradDU.boundaryField()[patchi];
//         tensorField Finv = inv(F);
//         scalar normalForce = sum( n.boundaryField()[patchi] & totalForce );
//         Info << "\tnormal force is " << normalForce << " N" << endl;
//         scalar shearForce = mag(sum( (I - sqr(n.boundaryField()[patchi])) & totalForce ));
//         Info << "\tshear force is " << shearForce << " N" << endl;
//     }

    runTime.write();
}