/*--------------------------------*- C++ -*----------------------------------*\
  =========                 |
  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
   \\    /   O peration     | Website:  https://openfoam.org
    \\  /    A nd           | Version:  dev
     \\/     M anipulation  |
\*---------------------------------------------------------------------------*/

type            coded;

libs            ("libutilityFunctionObjects.so");

name            R;

codeInclude
#{
    #include "volFields.H"
#};

codeWrite
#{
    const tensor XY(1, 0, 0, 0, 1, 0, 0, 0, 0);

    volScalarField
    (
        IOobject
        (
            "R",
            mesh().time().timeName(),
            mesh()
        ),
        mag(XY & mesh().C())
    ).write();
#};

// ************************************************************************* //