foam-extend4.1-coherent-io/applications/solvers/solidMechanics/elasticPlasticNonLinULSolidFoam/writeFields.H

if (runTime.outputTime())
  {
    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;

    pointMesh pMesh(mesh);
    pointScalarField contactPointGap
      (
       IOobject
       (
    "contactPointGap",
    runTime.timeName(),
    mesh,
    IOobject::NO_READ,
    IOobject::AUTO_WRITE
    ),
       pMesh,
       dimensionedScalar("zero", dimless, 0.0)
       );

    forAll(mesh.boundary(), patchi)
      {
    if(DU.boundaryField()[patchi].type() == solidContactFvPatchVectorField::typeName)
      {
        const solidContactFvPatchVectorField& DUpatch =
          refCast<const solidContactFvPatchVectorField>
          (DU.boundaryField()[patchi]);

        if(!DUpatch.master())
          {
            const labelList& meshPoints = mesh.boundaryMesh()[patchi].meshPoints();
            const scalarField gap = DUpatch.normalContactModelPtr()->slaveContactPointGap();
            forAll(meshPoints, pointi)
              {
            contactPointGap[meshPoints[pointi]] = gap[pointi];
              }
          }
      }
      }


    //- total force
    /*    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);
        //vectorField nCurrent = Finv & n.boundaryField()[patchi];
        //nCurrent /= mag(nCurrent);
        //scalar normalForce = sum( nCurrent & totalForce );
        scalar normalForce = sum( n.boundaryField()[patchi] & totalForce );
        Info << "\tnormal force is " << normalForce << " N" << endl;
        //scalar shearForce = mag(sum( (I - sqr(nCurrent)) & totalForce ));
        scalar shearForce = mag(sum( (I - sqr(n.boundaryField()[patchi])) & totalForce ));
        Info << "\tshear force is " << shearForce << " N" << endl;

        // if(mesh.boundary()[patchi].type() != "empty")
        //   {
    //     vector Sf0 = Sf.boundaryField()[patchi][0];
    //     symmTensor sigma0 = sigma.boundaryField()[patchi][0];
    //     Info << "sigmab[0] is " << sigma0 << nl
    //      << "Sfb is " << Sf0 << nl
    //      << "force is " << (Sf.boundaryField()[patchi][0]&sigma.boundaryField()[patchi][0]) << nl
    //      << "Sfx*sigmaxx " << (Sf0[vector::X]*sigma0[symmTensor::XX]) << nl
    //      << "Sfy*sigmaxy " << (Sf0[vector::Y]*sigma0[symmTensor::XY]) << nl
    //      << "Sfx*sigmayx " << (Sf0[vector::X]*sigma0[symmTensor::XY]) << nl
    //      << "Sfy*sigmayy " << (Sf0[vector::Y]*sigma0[symmTensor::YY]) << nl
    //      << endl;
        //vector SfTL(-0.000137451, 0.00383599, -4.76878e-20);
        // vector SfTL = Finv[0] & vector(0,0.004,0);
        // Info << "SfTLx*sigmaxx " << (SfTL[vector::X]*sigma0[symmTensor::XX]) << nl
        //      << "SfTLy*sigmaxy " << (SfTL[vector::Y]*sigma0[symmTensor::XY]) << nl
        //      << "SfTLx*sigmayx " << (SfTL[vector::X]*sigma0[symmTensor::XY]) << nl
        //      << "SfTLy*sigmayy " << (SfTL[vector::Y]*sigma0[symmTensor::YY]) << nl
        //      << endl;
    //      }
    }*/

    runTime.write();
  }