diff --git a/src/surfMesh/Make/files b/src/surfMesh/Make/files
index 52966fd300..9d786fb75a 100644
--- a/src/surfMesh/Make/files
+++ b/src/surfMesh/Make/files
@@ -67,6 +67,7 @@ writers = writers
 $(writers)/common/surfaceWriter.C
 $(writers)/abaqus/abaqusSurfaceWriter.C
 $(writers)/boundary/boundaryDataSurfaceWriter.C
+$(writers)/debug/debugSurfaceWriter.C
 $(writers)/ensight/ensightSurfaceWriter.C
 $(writers)/foam/foamSurfaceWriter.C
 $(writers)/nastran/nastranSurfaceWriter.C
diff --git a/src/surfMesh/writers/debug/debugSurfaceWriter.C b/src/surfMesh/writers/debug/debugSurfaceWriter.C
new file mode 100644
index 0000000000..231d397ea0
--- /dev/null
+++ b/src/surfMesh/writers/debug/debugSurfaceWriter.C
@@ -0,0 +1,410 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | www.openfoam.com
+     \\/     M anipulation  |
+-------------------------------------------------------------------------------
+    Copyright (C) 2022 OpenCFD Ltd.
+-------------------------------------------------------------------------------
+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 "debugSurfaceWriter.H"
+#include "globalIndex.H"
+#include "argList.H"
+#include "OFstream.H"
+#include "OSspecific.H"
+#include "IOmanip.H"
+#include "Time.H"
+#include "pointIOField.H"
+#include "primitivePatch.H"
+#include "profiling.H"
+#include "surfaceWriterMethods.H"
+#include "addToRunTimeSelectionTable.H"
+
+// * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
+
+namespace Foam
+{
+namespace surfaceWriters
+{
+    defineTypeName(debugWriter);
+    addToRunTimeSelectionTable(surfaceWriter, debugWriter, word);
+    addToRunTimeSelectionTable(surfaceWriter, debugWriter, wordDict);
+}
+}
+
+
+// * * * * * * * * * * * * * Private Member Functions  * * * * * * * * * * * //
+
+template<class Type>
+Foam::tmp<Foam::Field<Type>>
+Foam::surfaceWriters::debugWriter::mergeField
+(
+    const Field<Type>& fld
+) const
+{
+    addProfiling
+    (
+        merge,
+        "debugWriter::merge-field"
+    );
+
+    if (parallel_ && Pstream::parRun())
+    {
+        // Ensure geometry is also merged
+        merge();
+
+        // Gather all values
+        auto tfield = tmp<Field<Type>>::New();
+        auto& allFld = tfield.ref();
+
+        if (mpiGatherv_)
+        {
+            globalIndex::mpiGatherOp
+            (
+                fld,
+                allFld,
+                UPstream::worldComm,
+                commType_,
+                (UPstream::msgType() + msgTag_)
+            );
+        }
+        else
+        {
+            globalIndex::gatherOp
+            (
+                fld,
+                allFld,
+                UPstream::worldComm,
+                commType_,
+                (UPstream::msgType() + msgTag_)
+            );
+        }
+
+        // Renumber (point data) to correspond to merged points
+        if
+        (
+            Pstream::master()
+         && this->isPointData()
+         && mergedSurf_.pointsMap().size()
+        )
+        {
+            inplaceReorder(mergedSurf_.pointsMap(), allFld);
+            allFld.resize(mergedSurf_.points().size());
+        }
+
+        return tfield;
+    }
+
+    // Mark that any geometry changes have been taken care of
+    upToDate_ = true;
+
+    return fld;
+}
+
+
+// * * * * * * * * * * * * * * * * Constructors  * * * * * * * * * * * * * * //
+
+Foam::surfaceWriters::debugWriter::debugWriter()
+:
+    surfaceWriter(),
+    commType_(UPstream::commsTypes::nonBlocking),
+    mpiGatherv_(false),
+    enableWrite_(false),
+    header_(true),
+    msgTag_(0),
+    streamOpt_(IOstreamOption::BINARY)
+{}
+
+
+Foam::surfaceWriters::debugWriter::debugWriter
+(
+    const dictionary& options
+)
+:
+    surfaceWriter(options),
+    commType_
+    (
+        UPstream::commsTypeNames.getOrDefault
+        (
+            "commsType",
+            options,
+            UPstream::commsTypes::nonBlocking
+        )
+    ),
+    mpiGatherv_(options.getOrDefault("gatherv", false)),
+    enableWrite_(options.getOrDefault("write", false)),
+    header_(true),
+    msgTag_(options.getOrDefault<int>("msgTag", 0)),
+    streamOpt_(IOstreamOption::BINARY)
+{
+    Info<< "Using debug surface writer ("
+        << (this->isPointData() ? "point" : "face") << " data):"
+        << " commsType=" << UPstream::commsTypeNames[commType_]
+        << " msgTag=" << msgTag_
+        << " gatherv=" << Switch::name(mpiGatherv_)
+        << " write=" << Switch::name(enableWrite_) << endl;
+}
+
+
+Foam::surfaceWriters::debugWriter::debugWriter
+(
+    const meshedSurf& surf,
+    const fileName& outputPath,
+    bool parallel,
+    const dictionary& options
+)
+:
+    debugWriter(options)
+{
+    open(surf, outputPath, parallel);
+}
+
+
+Foam::surfaceWriters::debugWriter::debugWriter
+(
+    const pointField& points,
+    const faceList& faces,
+    const fileName& outputPath,
+    bool parallel,
+    const dictionary& options
+)
+:
+    debugWriter(options)
+{
+    open(points, faces, outputPath, parallel);
+}
+
+
+// * * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * //
+
+void Foam::surfaceWriters::debugWriter::serialWriteGeometry
+(
+    const regIOobject& iopts,
+    const meshedSurf& surf
+)
+{
+    const pointField& points = surf.points();
+    const faceList& faces = surf.faces();
+
+    if (verbose_)
+    {
+        if (this->isPointData())
+        {
+            Info<< "Writing points: " << iopts.objectPath() << endl;
+        }
+        else
+        {
+            Info<< "Writing face centres: " << iopts.objectPath() << endl;
+        }
+    }
+
+    // Like regIOobject::writeObject without instance() adaptation
+    // since this would write to e.g. 0/ instead of postProcessing/
+
+    autoPtr<primitivePatch> ppPtr;
+
+    {
+        OFstream os(iopts.objectPath(), streamOpt_);
+
+        if (header_)
+        {
+            iopts.writeHeader(os);
+        }
+
+        if (this->isPointData())
+        {
+            // Just like writeData, but without copying beforehand
+            os << points;
+        }
+        else
+        {
+            ppPtr.reset(new primitivePatch(SubList<face>(faces), points));
+
+            // Just like writeData, but without copying beforehand
+            os << ppPtr().faceCentres();
+        }
+
+        if (header_)
+        {
+            IOobject::writeEndDivider(os);
+        }
+    }
+}
+
+
+Foam::fileName Foam::surfaceWriters::debugWriter::write()
+{
+    checkOpen();
+
+    // Geometry: rootdir/surfaceName/"points"
+    // Field:    rootdir/surfaceName/<TIME>/field
+
+    fileName surfaceDir = outputPath_;
+
+    const meshedSurf& surf = surface();
+    // const meshedSurfRef& surf = adjustSurface();
+
+    // Dummy Time to use as objectRegistry
+    autoPtr<Time> dummyTimePtr;
+
+    if (enableWrite_)
+    {
+        dummyTimePtr = Time::New(argList::envGlobalPath());
+    }
+    else if (verbose_)
+    {
+        Info<< "Not writing: " << surf.faces().size() << " faces" << nl;
+    }
+
+    if (enableWrite_ && (Pstream::master() || !parallel_))
+    {
+        if (!isDir(surfaceDir))
+        {
+            mkDir(surfaceDir);
+        }
+
+        // Write sample locations
+        pointIOField iopts
+        (
+            IOobject
+            (
+                surfaceDir/"points",
+                *dummyTimePtr,
+                IOobject::NO_READ,
+                IOobject::NO_WRITE,
+                false  // Do not register
+            )
+        );
+        iopts.note() = (this->isPointData() ? "point data" : "face data");
+
+        serialWriteGeometry(iopts, surf);
+    }
+
+    wroteGeom_ = true;
+    return surfaceDir;
+}
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+template<class Type>
+Foam::fileName Foam::surfaceWriters::debugWriter::writeTemplate
+(
+    const word& fieldName,
+    const Field<Type>& localValues
+)
+{
+    checkOpen();
+
+    // Geometry: rootdir/surfaceName/"points"
+    // Field:    rootdir/surfaceName/<TIME>/field
+
+    fileName surfaceDir = outputPath_;
+
+    const fileName outputFile(surfaceDir/timeName()/fieldName);
+
+    // Implicit geometry merge()
+    tmp<Field<Type>> tfield = mergeField(localValues);
+
+    // Dummy Time to use as objectRegistry
+    autoPtr<Time> dummyTimePtr;
+
+    if (enableWrite_)
+    {
+        dummyTimePtr = Time::New(argList::envGlobalPath());
+    }
+    else if (verbose_)
+    {
+        Info<< "Not writing: " << tfield().size()
+            << ' ' << pTraits<Type>::typeName
+            << " values" << nl;
+    }
+
+    const meshedSurf& surf = surface();
+    // const meshedSurfRef& surf = adjustSurface();
+
+    if (enableWrite_ && (Pstream::master() || !parallel_))
+    {
+        if (!isDir(outputFile.path()))
+        {
+            mkDir(outputFile.path());
+        }
+
+        // Write sample locations
+        {
+            pointIOField iopts
+            (
+                IOobject
+                (
+                    surfaceDir/"points",
+                    *dummyTimePtr,
+                    IOobject::NO_READ,
+                    IOobject::NO_WRITE,
+                    false  // Do not register
+                )
+            );
+            iopts.note() = (this->isPointData() ? "point data" : "face data");
+
+            serialWriteGeometry(iopts, surf);
+        }
+
+        // Write field
+        {
+            IOField<Type> iofld
+            (
+                IOobject
+                (
+                    outputFile,
+                    *dummyTimePtr,
+                    IOobject::NO_READ,
+                    IOobject::NO_WRITE,
+                    false  // Do not register
+                )
+            );
+            iofld.note() = (this->isPointData() ? "point data" : "face data");
+
+            OFstream os(iofld.objectPath(), streamOpt_);
+
+            if (header_)
+            {
+                iofld.writeHeader(os);
+            }
+
+            // Just like writeData, but without copying beforehand
+            os << tfield();
+
+            if (header_)
+            {
+                IOobject::writeEndDivider(os);
+            }
+        }
+    }
+
+    wroteGeom_ = true;
+    return surfaceDir;
+}
+
+
+// Field writing methods
+defineSurfaceWriterWriteFields(Foam::surfaceWriters::debugWriter);
+
+
+// ************************************************************************* //
diff --git a/src/surfMesh/writers/debug/debugSurfaceWriter.H b/src/surfMesh/writers/debug/debugSurfaceWriter.H
new file mode 100644
index 0000000000..cbd707b0e0
--- /dev/null
+++ b/src/surfMesh/writers/debug/debugSurfaceWriter.H
@@ -0,0 +1,182 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | www.openfoam.com
+     \\/     M anipulation  |
+-------------------------------------------------------------------------------
+    Copyright (C) 2022 OpenCFD Ltd.
+-------------------------------------------------------------------------------
+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/>.
+
+Class
+    Foam::surfaceWriters::debugWriter
+
+Description
+    A surfaceWriter for special purpose debugging.
+    Its definition and behaviour are subject to change at any time.
+
+    \verbatim
+    formatOptions
+    {
+        debug
+        {
+            write       true;
+        }
+    }
+    \endverbatim
+
+    Format options:
+    \table
+        Property    | Description                           | Required | Default
+        write       | Write boundaryData (binary with header)  | no  | false
+        commsType   | blocking/nonBlocking/scheduled        | no  | nonBlocking
+        msgTag      | increment for the message tag         | no  | 0
+        gatherv     | Use MPI gatherv when merging          | no  | false
+    \endtable
+
+SourceFiles
+    debugSurfaceWriter.C
+
+\*---------------------------------------------------------------------------*/
+
+#ifndef Foam_debugSurfaceWriter_H
+#define Foam_debugSurfaceWriter_H
+
+#include "surfaceWriter.H"
+#include "UPstream.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+namespace Foam
+{
+
+// Forward Declarations
+class regIOobject;
+
+namespace surfaceWriters
+{
+
+/*---------------------------------------------------------------------------*\
+                        Class debugWriter Declaration
+\*---------------------------------------------------------------------------*/
+
+class debugWriter
+:
+    public surfaceWriter
+{
+    // Private Data
+
+        //- Communication type for merging
+        UPstream::commsTypes commType_;
+
+        //- Use MPI gatherv in globalIndex gathering
+        bool mpiGatherv_;
+
+        //- Output writing?
+        bool enableWrite_;
+
+        //- Output files with FoamFile header
+        bool header_;
+
+        //- Increment for the message tag
+        int msgTag_;
+
+        //- Output stream option
+        IOstreamOption streamOpt_;
+
+
+    // Private Member Functions
+
+        //- Write serial surface geometry to "points" file.
+        void serialWriteGeometry(const regIOobject&, const meshedSurf& surf);
+
+        //- Gather (merge) fields with renumbering and shrinking for point data
+        template<class Type>
+        tmp<Field<Type>> mergeField(const Field<Type>& fld) const;
+
+        //- Templated write operation
+        template<class Type>
+        fileName writeTemplate
+        (
+            const word& fieldName,          //!< Name of field
+            const Field<Type>& localValues  //!< Local field values to write
+        );
+
+
+public:
+
+    //- Declare type-name, virtual type (without debug switch)
+    TypeNameNoDebug("debug");
+
+
+    // Constructors
+
+        //- Default construct
+        debugWriter();
+
+        //- Construct with some output options
+        explicit debugWriter(const dictionary& options);
+
+        //- Construct from components
+        debugWriter
+        (
+            const meshedSurf& surf,
+            const fileName& outputPath,
+            bool parallel = Pstream::parRun(),
+            const dictionary& options = dictionary()
+        );
+
+        //- Construct from components
+        debugWriter
+        (
+            const pointField& points,
+            const faceList& faces,
+            const fileName& outputPath,
+            bool parallel = Pstream::parRun(),
+            const dictionary& options = dictionary()
+        );
+
+
+    //- Destructor
+    virtual ~debugWriter() = default;
+
+
+    // Member Functions
+
+        //- Write surface geometry to file.
+        virtual fileName write(); // override
+
+        declareSurfaceWriterWriteMethod(label);
+        declareSurfaceWriterWriteMethod(scalar);
+        declareSurfaceWriterWriteMethod(vector);
+        declareSurfaceWriterWriteMethod(sphericalTensor);
+        declareSurfaceWriterWriteMethod(symmTensor);
+        declareSurfaceWriterWriteMethod(tensor);
+};
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+} // End namespace surfaceWriters
+} // End namespace Foam
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+#endif
+
+// ************************************************************************* //