Add the OpenFOAM source tree

applications/utilities/postProcessing/lagrangian/particleTracks/Make/files

@@ -0,0 +1,3 @@
+particleTracks.C
+
+EXE = $(FOAM_APPBIN)/particleTracks

applications/utilities/postProcessing/lagrangian/particleTracks/Make/options

@@ -0,0 +1,12 @@
+EXE_INC = \
+    -I$(LIB_SRC)/finiteVolume/lnInclude \
+    -I$(LIB_SRC)/meshTools/lnInclude \
+    -I$(LIB_SRC)/fileFormats/lnInclude \
+    -I$(LIB_SRC)/lagrangian/basic/lnInclude
+
+EXE_LIBS = \
+    -lfiniteVolume \
+    -lmeshTools \
+    -lfileFormats \
+    -lgenericPatchFields \
+    -llagrangian

applications/utilities/postProcessing/lagrangian/particleTracks/createFields.H

@@ -0,0 +1,23 @@
+IOdictionary propsDict
+(
+    IOobject
+    (
+        "particleTrackProperties",
+        runTime.constant(),
+        mesh,
+        IOobject::MUST_READ_IF_MODIFIED
+    )
+);
+
+const word cloudName(propsDict.lookup("cloudName"));
+
+label sampleFrequency(readLabel(propsDict.lookup("sampleFrequency")));
+
+// outputMode: compositeFile, filePerTrack
+//word outputmode(propsDict.lookup("outputMode"))
+
+label maxPositions(readLabel(propsDict.lookup("maxPositions")));
+
+// outputFormat: raw, vtk
+//word outputFormat(propsDict.lookup("outputFormat"));
+word setFormat(propsDict.lookupOrDefault<word>("setFormat", "vtk"));

applications/utilities/postProcessing/lagrangian/particleTracks/particleTrackProperties

@@ -0,0 +1,25 @@
+/*--------------------------------*- C++ -*----------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  dev                                   |
+|   \\  /    A nd           | Web:      www.OpenFOAM.org                      |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+FoamFile
+{
+    version     2.0;
+    format      ascii;
+    class       dictionary;
+    object      particleTrackProperties;
+}
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+cloudName       reactingCloud1;
+
+sampleFrequency 1;
+
+maxPositions    1000000;
+
+setFormat       vtk;    // see sampleDict for set formats
+
+// ************************************************************************* //

applications/utilities/postProcessing/lagrangian/particleTracks/particleTracks.C

@@ -0,0 +1,254 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 2011-2013 OpenFOAM Foundation
+     \\/     M anipulation  |
+-------------------------------------------------------------------------------
+License
+    This file is part of OpenFOAM.
+
+    OpenFOAM is free software: you can redistribute it and/or modify it
+    under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
+    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+    for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with OpenFOAM.  If not, see <http://www.gnu.org/licenses/>.
+
+Application
+    particleTracks
+
+Description
+    Generates a VTK file of particle tracks for cases that were computed using
+    a tracked-parcel-type cloud.
+
+\*---------------------------------------------------------------------------*/
+
+#include "argList.H"
+#include "Cloud.H"
+#include "IOdictionary.H"
+#include "fvMesh.H"
+#include "Time.H"
+#include "timeSelector.H"
+#include "OFstream.H"
+#include "passiveParticleCloud.H"
+#include "writer.H"
+
+using namespace Foam;
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+    timeSelector::addOptions();
+    #include "addRegionOption.H"
+
+    #include "setRootCase.H"
+
+    #include "createTime.H"
+    instantList timeDirs = timeSelector::select0(runTime, args);
+    #include "createNamedMesh.H"
+    #include "createFields.H"
+
+    // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    fileName vtkPath(runTime.path()/"VTK");
+    mkDir(vtkPath);
+
+    Info<< "Scanning times to determine track data for cloud " << cloudName
+        << nl << endl;
+
+    labelList maxIds(Pstream::nProcs(), -1);
+    forAll(timeDirs, timeI)
+    {
+        runTime.setTime(timeDirs[timeI], timeI);
+        Info<< "Time = " << runTime.timeName() << endl;
+
+        Info<< "    Reading particle positions" << endl;
+        passiveParticleCloud myCloud(mesh, cloudName);
+        Info<< "    Read " << returnReduce(myCloud.size(), sumOp<label>())
+            << " particles" << endl;
+
+        forAllConstIter(passiveParticleCloud, myCloud, iter)
+        {
+            label origId = iter().origId();
+            label origProc = iter().origProc();
+
+            if (origProc >= maxIds.size())
+            {
+                // Expand size
+                maxIds.setSize(origProc+1, -1);
+            }
+
+            maxIds[origProc] = max(maxIds[origProc], origId);
+        }
+    }
+
+    label maxNProcs = returnReduce(maxIds.size(), maxOp<label>());
+
+    Info<< "Detected particles originating from " << maxNProcs
+        << " processors." << nl << endl;
+
+    maxIds.setSize(maxNProcs, -1);
+
+    Pstream::listCombineGather(maxIds, maxEqOp<label>());
+    Pstream::listCombineScatter(maxIds);
+
+    labelList numIds = maxIds + 1;
+
+    Info<< nl << "Particle statistics:" << endl;
+    forAll(maxIds, procI)
+    {
+        Info<< "    Found " << numIds[procI] << " particles originating"
+            << " from processor " << procI << endl;
+    }
+    Info<< nl << endl;
+
+
+    // calc starting ids for particles on each processor
+    List<label> startIds(numIds.size(), 0);
+    for (label i = 0; i < numIds.size()-1; i++)
+    {
+        startIds[i+1] += startIds[i] + numIds[i];
+    }
+    label nParticle = startIds.last() + numIds[startIds.size()-1];
+
+
+
+    // number of tracks to generate
+    label nTracks = nParticle/sampleFrequency;
+
+    // storage for all particle tracks
+    List<DynamicList<vector> > allTracks(nTracks);
+
+    Info<< "\nGenerating " << nTracks << " particle tracks for cloud "
+        << cloudName << nl << endl;
+
+    forAll(timeDirs, timeI)
+    {
+        runTime.setTime(timeDirs[timeI], timeI);
+        Info<< "Time = " << runTime.timeName() << endl;
+
+        List<pointField> allPositions(Pstream::nProcs());
+        List<labelField> allOrigIds(Pstream::nProcs());
+        List<labelField> allOrigProcs(Pstream::nProcs());
+
+        // Read particles. Will be size 0 if no particles.
+        Info<< "    Reading particle positions" << endl;
+        passiveParticleCloud myCloud(mesh, cloudName);
+
+        // collect the track data on all processors that have positions
+        allPositions[Pstream::myProcNo()].setSize
+        (
+            myCloud.size(),
+            point::zero
+        );
+        allOrigIds[Pstream::myProcNo()].setSize(myCloud.size(), 0);
+        allOrigProcs[Pstream::myProcNo()].setSize(myCloud.size(), 0);
+
+        label i = 0;
+        forAllConstIter(passiveParticleCloud, myCloud, iter)
+        {
+            allPositions[Pstream::myProcNo()][i] = iter().position();
+            allOrigIds[Pstream::myProcNo()][i] = iter().origId();
+            allOrigProcs[Pstream::myProcNo()][i] = iter().origProc();
+            i++;
+        }
+
+        // collect the track data on the master processor
+        Pstream::gatherList(allPositions);
+        Pstream::gatherList(allOrigIds);
+        Pstream::gatherList(allOrigProcs);
+
+        Info<< "    Constructing tracks" << nl << endl;
+        if (Pstream::master())
+        {
+            forAll(allPositions, procI)
+            {
+                forAll(allPositions[procI], i)
+                {
+                    label globalId =
+                        startIds[allOrigProcs[procI][i]]
+                      + allOrigIds[procI][i];
+
+                    if (globalId % sampleFrequency == 0)
+                    {
+                        label trackId = globalId/sampleFrequency;
+                        if (allTracks[trackId].size() < maxPositions)
+                        {
+                            allTracks[trackId].append
+                            (
+                                allPositions[procI][i]
+                            );
+                        }
+                    }
+                }
+            }
+        }
+    }
+
+
+    if (Pstream::master())
+    {
+        PtrList<coordSet> tracks(allTracks.size());
+        forAll(allTracks, trackI)
+        {
+            tracks.set
+            (
+                trackI,
+                new coordSet
+                (
+                    "track" + Foam::name(trackI),
+                    "distance"
+                )
+            );
+            tracks[trackI].transfer(allTracks[trackI]);
+        }
+
+        autoPtr<writer<scalar> > scalarFormatterPtr = writer<scalar>::New
+        (
+            setFormat
+        );
+
+        //OFstream vtkTracks(vtkPath/"particleTracks.vtk");
+        fileName vtkFile
+        (
+            scalarFormatterPtr().getFileName
+            (
+                tracks[0],
+                wordList(0)
+            )
+        );
+
+        OFstream vtkTracks
+        (
+            vtkPath
+          / "particleTracks." + vtkFile.ext()
+        );
+
+        Info<< "\nWriting particle tracks in " << setFormat
+            << " format to " << vtkTracks.name()
+            << nl << endl;
+
+
+        scalarFormatterPtr().write
+        (
+            true,           // writeTracks
+            tracks,
+            wordList(0),
+            List<List<scalarField> >(0),
+            vtkTracks
+        );
+    }
+
+    return 0;
+}
+
+
+// ************************************************************************* //

applications/utilities/postProcessing/lagrangian/steadyParticleTracks/Make/files

@@ -0,0 +1,3 @@
+steadyParticleTracks.C
+
+EXE = $(FOAM_APPBIN)/steadyParticleTracks

applications/utilities/postProcessing/lagrangian/steadyParticleTracks/Make/options

@@ -0,0 +1,9 @@
+EXE_INC = \
+    -I$(LIB_SRC)/lagrangian/basic/lnInclude \
+    -I$(LIB_SRC)/meshTools/lnInclude \
+    -I$(LIB_SRC)/finiteVolume/lnInclude
+
+EXE_LIBS = \
+    -llagrangian \
+    -lmeshTools \
+    -lfiniteVolume

applications/utilities/postProcessing/lagrangian/steadyParticleTracks/createFields.H

@@ -0,0 +1,9 @@
+const word dictName("particleTrackDict");
+
+#include "setConstantMeshDictionaryIO.H"
+
+IOdictionary propsDict(dictIO);
+
+word cloudName(propsDict.lookup("cloudName"));
+
+List<word> userFields(propsDict.lookup("fields"));

applications/utilities/postProcessing/lagrangian/steadyParticleTracks/particleTrackDict

@@ -0,0 +1,22 @@
+/*--------------------------------*- C++ -*----------------------------------*\
+| =========                 |                                                 |
+| \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox           |
+|  \\    /   O peration     | Version:  dev                                   |
+|   \\  /    A nd           | Web:      www.OpenFOAM.org                      |
+|    \\/     M anipulation  |                                                 |
+\*---------------------------------------------------------------------------*/
+FoamFile
+{
+    version     2.0;
+    format      ascii;
+    class       dictionary;
+    object      particleTrackDict;
+}
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+cloudName       reactingCloud1Tracks;
+
+fields ( d U T );
+
+// ************************************************************************* //
+

applications/utilities/postProcessing/lagrangian/steadyParticleTracks/steadyParticleTracks.C

@@ -0,0 +1,340 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 2011-2013 OpenFOAM Foundation
+     \\/     M anipulation  |
+-------------------------------------------------------------------------------
+License
+    This file is part of OpenFOAM.
+
+    OpenFOAM is free software: you can redistribute it and/or modify it
+    under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
+    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+    for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with OpenFOAM.  If not, see <http://www.gnu.org/licenses/>.
+
+Application
+    steadyParticleTracks
+
+Description
+    Generates a VTK file of particle tracks for cases that were computed using
+    a steady-state cloud
+    NOTE: case must be re-constructed (if running in parallel) before use
+
+\*---------------------------------------------------------------------------*/
+
+#include "argList.H"
+#include "Cloud.H"
+#include "IOdictionary.H"
+#include "fvMesh.H"
+#include "Time.H"
+#include "timeSelector.H"
+#include "OFstream.H"
+#include "passiveParticleCloud.H"
+
+#include "SortableList.H"
+#include "IOobjectList.H"
+#include "PtrList.H"
+#include "Field.H"
+#include "steadyParticleTracksTemplates.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+using namespace Foam;
+
+namespace Foam
+{
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+label validateFields
+(
+    const List<word>& userFields,
+    const IOobjectList& cloudObjs
+)
+{
+    List<bool> ok(userFields.size(), false);
+
+    forAll(userFields, i)
+    {
+        ok[i] = ok[i] || fieldOk<label>(cloudObjs, userFields[i]);
+        ok[i] = ok[i] || fieldOk<scalar>(cloudObjs, userFields[i]);
+        ok[i] = ok[i] || fieldOk<vector>(cloudObjs, userFields[i]);
+        ok[i] = ok[i] || fieldOk<sphericalTensor>(cloudObjs, userFields[i]);
+        ok[i] = ok[i] || fieldOk<symmTensor>(cloudObjs, userFields[i]);
+        ok[i] = ok[i] || fieldOk<tensor>(cloudObjs, userFields[i]);
+    }
+
+    label nOk = 0;
+    forAll(ok, i)
+    {
+        if (ok[i])
+        {
+            nOk++;
+        }
+        else
+        {
+            Info << "\n*** Warning: user specified field '" << userFields[i]
+                 << "' unavailable" << endl;
+        }
+    }
+
+    return nOk;
+}
+
+
+template<>
+void writeVTK(OFstream& os, const label& value)
+{
+    os  << value;
+}
+
+
+template<>
+void writeVTK(OFstream& os, const scalar& value)
+{
+    os  << value;
+}
+
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+    argList::noParallel();
+    timeSelector::addOptions();
+    #include "addRegionOption.H"
+    #include "addDictOption.H"
+
+    #include "setRootCase.H"
+
+    #include "createTime.H"
+    instantList timeDirs = timeSelector::select0(runTime, args);
+    #include "createNamedMesh.H"
+    #include "createFields.H"
+
+    // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    fileName vtkPath(runTime.path()/"VTK");
+    mkDir(vtkPath);
+
+    typedef HashTable<label, labelPair, labelPair::Hash<> > trackTableType;
+
+    forAll(timeDirs, timeI)
+    {
+        runTime.setTime(timeDirs[timeI], timeI);
+        Info<< "Time = " << runTime.timeName() << endl;
+
+        fileName vtkTimePath(runTime.path()/"VTK"/runTime.timeName());
+        mkDir(vtkTimePath);
+
+        Info<< "    Reading particle positions" << endl;
+
+        PtrList<passiveParticle> particles(0);
+
+        // transfer particles to (more convenient) list
+        {
+            passiveParticleCloud ppc(mesh, cloudName);
+            Info<< "\n    Read " << returnReduce(ppc.size(), sumOp<label>())
+                << " particles" << endl;
+
+            particles.setSize(ppc.size());
+
+            label i = 0;
+            forAllIter(passiveParticleCloud, ppc, iter)
+            {
+                particles.set(i++, ppc.remove(&iter()));
+            }
+
+            // myCloud should now be empty
+        }
+
+        List<label> particleToTrack(particles.size());
+        label nTracks = 0;
+
+        {
+            trackTableType trackTable;
+            forAll(particles, i)
+            {
+                const label origProc = particles[i].origProc();
+                const label origId = particles[i].origId();
+
+                const trackTableType::const_iterator& iter =
+                    trackTable.find(labelPair(origProc, origId));
+
+                if (iter == trackTable.end())
+                {
+                    particleToTrack[i] = nTracks;
+                    trackTable.insert(labelPair(origProc, origId), nTracks);
+                    nTracks++;
+                }
+                else
+                {
+                    particleToTrack[i] = iter();
+                }
+            }
+        }
+
+
+        if (nTracks == 0)
+        {
+            Info<< "\n    No track data" << endl;
+        }
+        else
+        {
+            Info<< "\n    Generating " << nTracks << " tracks" << endl;
+
+            // determine length of each track
+            labelList trackLengths(nTracks, 0);
+            forAll(particleToTrack, i)
+            {
+                const label trackI = particleToTrack[i];
+                trackLengths[trackI]++;
+            }
+
+            // particle "age" property used to sort the tracks
+            List<SortableList<scalar> > agePerTrack(nTracks);
+            List<List<label> > particleMap(nTracks);
+
+            forAll(trackLengths, i)
+            {
+                const label length = trackLengths[i];
+                agePerTrack[i].setSize(length);
+                particleMap[i].setSize(length);
+            }
+
+            // store the particle age per track
+            IOobjectList cloudObjs
+            (
+                mesh,
+                runTime.timeName(),
+                cloud::prefix/cloudName
+            );
+
+            // TODO: gather age across all procs
+            {
+                tmp<scalarField> tage =
+                    readParticleField<scalar>("age", cloudObjs);
+                const scalarField& age = tage();
+                List<label> trackSamples(nTracks, 0);
+                forAll(particleToTrack, i)
+                {
+                    const label trackI = particleToTrack[i];
+                    const label sampleI = trackSamples[trackI];
+                    agePerTrack[trackI][sampleI] = age[i];
+                    particleMap[trackI][sampleI] = i;
+                    trackSamples[trackI]++;
+                }
+                tage.clear();
+            }
+
+
+            if (Pstream::master())
+            {
+                OFstream os(vtkTimePath/"particleTracks.vtk");
+
+                Info<< "\n    Writing particle tracks to " << os.name() << endl;
+
+                label nPoints = sum(trackLengths);
+
+                os  << "# vtk DataFile Version 2.0" << nl
+                    << "particleTracks" << nl
+                    << "ASCII" << nl
+                    << "DATASET POLYDATA" << nl
+                    << "POINTS " << nPoints << " float" << nl;
+
+                Info<< "\n    Writing points" << endl;
+
+                {
+                    forAll(agePerTrack, i)
+                    {
+                        agePerTrack[i].sort();
+
+                        const labelList& ids = agePerTrack[i].indices();
+                        labelList& particleIds = particleMap[i];
+
+                        {
+                            // update addressing
+                            List<label> sortedIds(ids);
+                            forAll(sortedIds, j)
+                            {
+                                sortedIds[j] = particleIds[ids[j]];
+                            }
+                            particleIds = sortedIds;
+                        }
+
+                        forAll(ids, j)
+                        {
+                            const label localId = particleIds[j];
+                            const vector& pos = particles[localId].position();
+                            os  << pos.x() << ' ' << pos.y() << ' ' << pos.z()
+                                << nl;
+                        }
+                    }
+                }
+
+
+                // write track (line) connectivity to file
+
+                Info<< "\n    Writing track lines" << endl;
+                os  << "\nLINES " << nTracks << ' ' << nPoints + nTracks << nl;
+
+                // Write ids of track points to file
+                {
+                    label globalPtI = 0;
+                    forAll(particleMap, i)
+                    {
+                        os  << particleMap[i].size() << nl;
+
+                        forAll(particleMap[i], j)
+                        {
+                            os  << ' ' << globalPtI++;
+
+                            if (((j + 1) % 10 == 0) && (j != 0))
+                            {
+                                os  << nl;
+                            }
+                        }
+
+                        os  << nl;
+                    }
+                }
+
+
+                const label nFields = validateFields(userFields, cloudObjs);
+
+                os  << "POINT_DATA " << nPoints << nl
+                    << "FIELD attributes " << nFields << nl;
+
+                Info<< "\n    Processing fields" << nl << endl;
+
+                processFields<label>(os, particleMap, userFields, cloudObjs);
+                processFields<scalar>(os, particleMap, userFields, cloudObjs);
+                processFields<vector>(os, particleMap, userFields, cloudObjs);
+                processFields<sphericalTensor>
+                    (os, particleMap, userFields, cloudObjs);
+                processFields<symmTensor>
+                    (os, particleMap, userFields, cloudObjs);
+                processFields<tensor>(os, particleMap, userFields, cloudObjs);
+
+            }
+        }
+        Info<< endl;
+    }
+
+    Info<< "\ndone" << endl;
+
+    return 0;
+}
+
+
+// ************************************************************************* //

applications/utilities/postProcessing/lagrangian/steadyParticleTracks/steadyParticleTracksTemplates.C

@@ -0,0 +1,207 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 2011-2013 OpenFOAM Foundation
+     \\/     M anipulation  |
+-------------------------------------------------------------------------------
+License
+    This file is part of OpenFOAM.
+
+    OpenFOAM is free software: you can redistribute it and/or modify it
+    under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
+    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+    for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with OpenFOAM.  If not, see <http://www.gnu.org/licenses/>.
+
+\*---------------------------------------------------------------------------*/
+
+#include "steadyParticleTracksTemplates.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+namespace Foam
+{
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+template<class Type>
+bool fieldOk(const IOobjectList& cloudObjs, const word& name)
+{
+    IOobjectList objects(cloudObjs.lookupClass(IOField<Type>::typeName));
+
+    return (objects.lookup(name) != NULL);
+}
+
+
+template<class Type>
+tmp<Field<Type> > readParticleField
+(
+    const word& name,
+    const IOobjectList cloudObjs
+)
+{
+    IOobjectList objects(cloudObjs.lookupClass(IOField<Type>::typeName));
+
+    const IOobject* obj = objects.lookup(name);
+    if (obj != NULL)
+    {
+        IOField<Type> newField(*obj);
+        return tmp<Field<Type> >(new Field<Type>(newField.xfer()));
+    }
+
+    FatalErrorIn
+    (
+        "template<class Type>"
+        "void readParticleField"
+        "("
+            "const word&, "
+            "const IOobjectList"
+        ")"
+    )
+        << "error: cloud field name " << name << " not found"
+        << abort(FatalError);
+
+    return Field<Type>::null();
+}
+
+
+template<class Type>
+void readFields
+(
+    PtrList<List<Type> >& values,
+    const List<word>& fieldNames,
+    const IOobjectList& cloudObjs
+)
+{
+    IOobjectList objects(cloudObjs.lookupClass(IOField<Type>::typeName));
+
+    forAll(fieldNames, j)
+    {
+        const IOobject* obj = objects.lookup(fieldNames[j]);
+        if (obj != NULL)
+        {
+            Info<< "        reading field " << fieldNames[j] << endl;
+            IOField<Type> newField(*obj);
+            values.set(j, new List<Type>(newField.xfer()));
+        }
+        else
+        {
+            FatalErrorIn
+            (
+                "template<class Type>"
+                "void readFields"
+                "("
+                    "PtrList<List<Type> >&, "
+                    "const List<word>&, "
+                    "const IOobjectList&"
+                ")"
+            )
+                << "Unable to read field " << fieldNames[j]
+                << abort(FatalError);
+        }
+    }
+}
+
+
+template<class Type>
+void writeVTK(OFstream& os, const Type& value)
+{
+    os  << value.component(0);
+    for (label i=1; i<pTraits<Type>::nComponents; i++)
+    {
+        os  << ' ' << value.component(i);
+    }
+}
+
+
+template<class Type>
+void writeVTKFields
+(
+    OFstream& os,
+    const PtrList<List<Type> >& values,
+    const List<List<label> >& addr,
+    const List<word>& fieldNames
+)
+{
+    label step = max(floor(8/pTraits<Type>::nComponents), 1);
+
+    forAll(values, fieldI)
+    {
+        Info<< "        writing field " << fieldNames[fieldI] << endl;
+        os  << nl << fieldNames[fieldI] << ' ' << pTraits<Type>::nComponents
+            << ' ' << values[fieldI].size() << " float" << nl;
+        label offset = 0;
+        forAll(addr, trackI)
+        {
+            const List<label> ids(addr[trackI]);
+
+            List<Type> data(UIndirectList<Type>(values[fieldI], ids));
+            label nData = data.size() - 1;
+            forAll(data, i)
+            {
+                writeVTK<Type>(os, data[i]);
+                if (((i + 1) % step == 0) || (i == nData))
+                {
+                    os  << nl;
+                }
+                else
+                {
+                    os  << ' ';
+                }
+            }
+            offset += ids.size();
+        }
+    }
+}
+
+
+template<class Type>
+void processFields
+(
+    OFstream& os,
+    const List<List<label> >& addr,
+    const List<word>& userFieldNames,
+    const IOobjectList& cloudObjs
+)
+{
+    IOobjectList objects(cloudObjs.lookupClass(IOField<Type>::typeName));
+
+    if (objects.size())
+    {
+        DynamicList<word> fieldNames(objects.size());
+        forAll(userFieldNames, i)
+        {
+            IOobject* obj = objects.lookup(userFieldNames[i]);
+            if (obj != NULL)
+            {
+                fieldNames.append(obj->name());
+            }
+        }
+        fieldNames.shrink();
+
+        PtrList<List<Type> > values(fieldNames.size());
+        readFields<Type>(values, fieldNames, cloudObjs);
+
+        writeVTKFields<Type>
+        (
+            os,
+            values,
+            addr,
+            fieldNames
+        );
+    }
+}
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+} // End namespace Foam
+
+// ************************************************************************* //

applications/utilities/postProcessing/lagrangian/steadyParticleTracks/steadyParticleTracksTemplates.H

@@ -0,0 +1,93 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 2011-2013 OpenFOAM Foundation
+     \\/     M anipulation  |
+-------------------------------------------------------------------------------
+License
+    This file is part of OpenFOAM.
+
+    OpenFOAM is free software: you can redistribute it and/or modify it
+    under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
+    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+    for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with OpenFOAM.  If not, see <http://www.gnu.org/licenses/>.
+
+\*---------------------------------------------------------------------------*/
+
+#ifndef steadyParticleTracksTemplates_H
+#define steadyParticleTracksTemplates_H
+
+#include "OFstream.H"
+#include "SortableList.H"
+#include "IOobjectList.H"
+#include "PtrList.H"
+#include "Field.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+namespace Foam
+{
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+    bool fieldOk(const IOobjectList& cloudObjs, const word& name);
+
+    template<class Type>
+    tmp<Field<Type> > readParticleField
+    (
+        const word& name,
+        const IOobjectList cloudObjs
+    );
+
+    template<class Type>
+    void readFields
+    (
+        PtrList<List<Type> >& values,
+        const List<word>& fields,
+        const IOobjectList& cloudObjs
+    );
+
+    template<class Type>
+    void writeVTK(OFstream& os, const Type& value);
+
+    template<class Type>
+    void writeVTKFields
+    (
+        OFstream& os,
+        const PtrList<List<Type> >& values,
+        const List<SortableList<scalar> >& agePerTrack,
+        const List<word>& fieldNames
+    );
+
+    void processFields
+    (
+        OFstream& os,
+        const List<SortableList<scalar> >& agePerTrack,
+        const List<word>& userFieldNames,
+        const IOobjectList& cloudObjs
+    );
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+} // End namespace Foam
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+#ifdef NoRepository
+    #include "steadyParticleTracksTemplates.C"
+#endif
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+#endif
+
+// ************************************************************************* //