37 lines
1.2 KiB
C
37 lines
1.2 KiB
C
|
OFstream * forceFilePtr(NULL);
|
||
|
|
OFstream * stressFilePtr(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())
|
||
|
|
{
|
||
|
|
fileName historyDir = "history";
|
||
|
|
mkDir(historyDir);
|
||
|
|
|
||
|
|
{
|
||
|
|
fileName forceFileName(historyDir/"forceDisp_"+historyPatchName+".dat");
|
||
|
|
Info << "\nForce-displacement for patch " << historyPatchName
|
||
|
|
<< " will be written to " << forceFileName
|
||
|
|
<< endl;
|
||
|
|
forceFilePtr = new OFstream(forceFileName);
|
||
|
|
OFstream& forceDispFile = *forceFilePtr;
|
||
|
|
forceDispFile << "#Disp(mm)\tForce(N)" << endl;
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
fileName stressFileName(historyDir/"stressStrain_"+historyPatchName+".dat");
|
||
|
|
Info << "\nStress(2nd Piola-Kirchoff)-strain(Green) for patch "
|
||
|
|
<< historyPatchName
|
||
|
|
<< " will be written to " << stressFileName
|
||
|
|
<< endl;
|
||
|
|
stressFilePtr = new OFstream(stressFileName);
|
||
|
|
OFstream& stressStrainFile = *stressFilePtr;
|
||
|
|
stressStrainFile << "#Strain(-)\tStress(Pa)" << endl;
|
||
|
|
}
|
||
|
|
}
|