filePtr = nullptr;
historyPatchName=word(mesh.solutionDict().subDict("solidMechanics").lookup("historyPatch"));
historyPatchID = mesh.boundaryMesh().findPatchID(historyPatchName);
if(historyPatchID == -1)
{
  Warning << "history patch " << historyPatchName
          << " not found. Force-displacement will not be written"
          << endl;
} else if(Pstream::master())
{
  Info << "Force-displacement for patch " << historyPatchName
       << " will be written to forceDisp.dat"
       << endl;
  word hisDirName("history");
  mkDir(hisDirName);
  filePtr = new OFstream(hisDirName/historyPatchName+"forceDisp.dat");
  OFstream& forceDispFile = *filePtr;
  forceDispFile << "#Disp(mm)\tForce(N)" << endl;
}
