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();
  }