foam-extend4.1-coherent-io/applications/solvers/solidMechanics/elasticIncrSolidFoam/writeForceDisplacement.H

//- write force displacement to file

label leftPatchID = mesh.boundaryMesh().findPatchID("leftClamp");
if(leftPatchID == -1)
  {
    FatalError << "Cannot find patch left for calculating force" << endl;
  }

//- calculate force in x direction on leftClamp patch
scalar leftForce = gSum(
            vector(1, 0, 0) &
            (mesh.boundary()[leftPatchID].Sf() & sigma.boundaryField()[leftPatchID])
            );

//- patchIntegrate utility integrates it this way but this is worng because the sigma tensor should
//- be dotted with the surface normal to give the actual traction/force
//- you cannot just take the component of the sigma tensor
//scalar leftForcePatchIntegrateMethod = gSum(
//                        mesh.magSf().boundaryField()[leftPatchID]
//                        *sigma.boundaryField()[leftPatchID].component(symmTensor::XY)
//                        );

vector gaugeU1 = vector::zero;
vector gaugeU2 = vector::zero;
if(gaugeFaceID1 != -1)
  {
    gaugeU1 = U.boundaryField()[gaugeFacePatchID1][gaugeFaceID1];
  }
if(gaugeFaceID2 != -1)
  {
    gaugeU2 = U.boundaryField()[gaugeFacePatchID2][gaugeFaceID2];
  }

//- reduce across procs
reduce(gaugeU1, sumOp<vector>());
reduce(gaugeU2, sumOp<vector>());

Pout << "gaugeU1 is " << gaugeU1 << nl
     << "gaugeU2 is " << gaugeU2 << endl;

scalar gaugeDisp = mag(gaugeU1 - gaugeU2);

//- write to file
if(Pstream::master())
  {
    OFstream& forceDispFile = *filePtr;
    forceDispFile << 1000*gaugeDisp << "\t" << -1*leftForce << endl;
  }