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();
  }