OFstream * filePtr(NULL);
word historyPatchName(mesh.solutionDict().subDict("stressedFoam").lookup("historyPatch"));
label 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/"forceDisp.dat");
    OFstream& forceDispFile = *filePtr;
    forceDispFile << "#Disp(mm)\tForce(N)" << endl;
  }


clipGauge* clipGPtr = NULL;
if(mesh.solutionDict().subDict("stressedFoam").found("clipGauge"))
  {
    if(Switch(mesh.solutionDict().subDict("stressedFoam").lookup("clipGauge")))
      {
	clipGPtr = new clipGauge("clipGauge1", U);
      }
  }