gis_vector.cpp

Go to the documentation of this file.

 
/* ===============================================================================================================================
   This file is part of CoastalME, the Coastal Modelling Environment.
 
   CoastalME 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.
 
   This program 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 this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
===============================================================================================================================*/
#include <cstdio>
 
#include <iostream>
using std::cerr;
using std::endl;
using std::ios;
 
#include <sstream>
using std::stringstream;
 
#include <gdal.h>
#include <gdal_priv.h>
#include <ogr_core.h>
#include <ogrsf_frmts.h>
#include <ogr_feature.h>
#include <ogr_geometry.h>
#include <cpl_error.h>
 
#include "cme.h"
#include "simulation.h"
#include "coast.h"
#include "cliff.h"
 
//===============================================================================================================================
//===============================================================================================================================
int CSimulation::nReadVectorGISFile(int const nDataItem)
{
   int nMaxLayer = 0;
   int nNeedGeometry = 0;
 
   string strGISFile;
   string strGeometry;
 
   // Set up file name and constraints
   switch (nDataItem)
   {
   case (DEEP_WATER_WAVE_STATIONS_VEC):
      strGISFile = m_strDeepWaterWaveStationsShapefile;
      nMaxLayer = DEEP_WATER_WAVE_STATIONS_MAX_LAYER;
      nNeedGeometry = DEEP_WATER_WAVE_STATIONS_POINT_GEOMETRY;
      break;
 
   case (SEDIMENT_INPUT_EVENT_LOCATION_VEC):
      strGISFile = m_strSedimentInputEventShapefile;
      nMaxLayer = SEDIMENT_INPUT_EVENT_LOCATION_MAX_LAYER;
 
      if (m_bSedimentInputAtPoint || m_bSedimentInputAtCoast)
         nNeedGeometry = SEDIMENT_INPUT_EVENT_LOCATION_POINT_GEOMETRY;
 
      else if (m_bSedimentInputAlongLine)
         nNeedGeometry = SEDIMENT_INPUT_EVENT_LOCATION_LINE_GEOMETRY;
 
      break;
 
   case (FLOOD_LOCATION_VEC):
      strGISFile = m_strFloodLocationShapefile;
      nMaxLayer = FLOOD_LOCATION_MAX_LAYER;
      nNeedGeometry = FLOOD_LOCATION_POINT_GEOMETRY;
      break;
   }
 
   // Open the GDAL/OGR datasource
   GDALDataset* pOGRDataSource = static_cast<GDALDataset*>(GDALOpenEx(strGISFile.c_str(), GDAL_OF_VECTOR, NULL, NULL, NULL));
 
   if (pOGRDataSource == NULL)
   {
      // Can't open file (note will already have sent GDAL error message to stdout)
      cerr << ERR << "cannot open " << strGISFile << " for input: " << CPLGetLastErrorMsg() << endl;
      return RTN_ERR_VECTOR_FILE_READ;
   }
 
   // Find out number of layers, and compare with the required number
   int const nLayer = pOGRDataSource->GetLayerCount();
 
   if (nLayer > nMaxLayer)
      LogStream << WARN << "need " << nMaxLayer << (nMaxLayer > 1 ? "layers" : "layer") << " in " << strGISFile << ", " << nLayer << " found. Only the first " << nMaxLayer << (nMaxLayer > 1 ? "layers" : "layer") << " will be read." << endl;
 
   for (int n = 0; n < nMaxLayer; n++)
   {
      // Open this layer
      OGRLayer* pOGRLayer;
      pOGRLayer = pOGRDataSource->GetLayer(n);
 
      // Get features from the layer
      OGRFeature* pOGRFeature;
 
      // Make sure we are at the beginning of the layer
      pOGRLayer->ResetReading();
 
      // Now iterate for all features in the layer
      while ((pOGRFeature = pOGRLayer->GetNextFeature()) != NULL)
      {
         // First get the geometry for this feature
         OGRGeometry* pOGRGeometry;
         pOGRGeometry = pOGRFeature->GetGeometryRef();
 
         if (pOGRGeometry == NULL)
         {
            cerr << ERR << " null geometry in " << strGISFile << "." << endl;
            return RTN_ERR_VECTOR_FILE_READ;
         }
 
         // Now get the geometry type
         int const nGeometry = wkbFlatten(pOGRGeometry->getGeometryType());
         int nThisGeometry = 0;
 
         switch (nGeometry)
         {
         case wkbPoint:
            nThisGeometry = VEC_GEOMETRY_POINT;
            strGeometry = "point";
            break;
 
         case wkbLineString:
            nThisGeometry = VEC_GEOMETRY_LINE;
            strGeometry = "line";
            break;
 
         case wkbPolygon:
            nThisGeometry = VEC_GEOMETRY_POLYGON;
            strGeometry = "polygon";
            break;
 
         default:
            nThisGeometry = VEC_GEOMETRY_OTHER;
            strGeometry = "other";
            break;
         }
 
         // Have we got the expected geometry type?
         if (nThisGeometry != nNeedGeometry)
         {
            // Error, we do not have the desired geometry
            string strNeedGeometry;
 
            switch (nNeedGeometry)
            {
            case VEC_GEOMETRY_POINT:
               strNeedGeometry = "point";
               break;
 
            case VEC_GEOMETRY_LINE:
               strNeedGeometry = "line";
               break;
 
            case VEC_GEOMETRY_POLYGON:
               strNeedGeometry = "polygon";
               break;
 
            case VEC_GEOMETRY_OTHER:
               strNeedGeometry = "other";
               break;
            }
 
            cerr << strGeometry << " data found in " << strGISFile << ", but " << strNeedGeometry << " data is needed" << endl;
            return RTN_ERR_VECTOR_FILE_READ;
         }
 
         // The geometry type is OK, so process the geometry data
         int nPoints = 0;
         OGRPoint* pOGRPoint;
         OGRLineString* pOGRLineString;
         double dPointGridX;
         double dPointGridY;
 
         switch (nDataItem)
         {
         case (DEEP_WATER_WAVE_STATIONS_VEC):
            // Point data: convert the wave station coordinates from ext CRS to grid CRS
            pOGRPoint = static_cast<OGRPoint*>(pOGRGeometry);
            dPointGridX = dExtCRSXToGridX(pOGRPoint->getX());
            dPointGridY = dExtCRSYToGridY(pOGRPoint->getY());
 
            // Safety check to ensure that point is inside the grid in the +ve direction
            if (dPointGridX >= m_nXGridSize)
               return RTN_ERR_WAVESTATION_LOCATION;
 
            if (dPointGridY >= m_nYGridSize)
               return RTN_ERR_WAVESTATION_LOCATION;
 
            // Now store the wave station coordinates, we will use these in the spatial interpolation of deep water waves
            m_VdDeepWaterWaveStationX.push_back(dExtCRSXToGridX(dPointGridX));
            m_VdDeepWaterWaveStationY.push_back(dExtCRSYToGridY(dPointGridY));
            break;
 
         case (SEDIMENT_INPUT_EVENT_LOCATION_VEC):
            if (m_bSedimentInputAtPoint || m_bSedimentInputAtCoast)
            {
               // Point data: convert the sediment input coordinates from ext CRS to grid CRS
               pOGRPoint = static_cast<OGRPoint*>(pOGRGeometry);
               dPointGridX = dExtCRSXToGridX(pOGRPoint->getX());
               dPointGridY = dExtCRSYToGridY(pOGRPoint->getY());
 
               // Check point data is inside the grid in the +ve direction
               if (dPointGridX >= m_nXGridSize)
                  return RTN_ERR_SEDIMENT_INPUT_EVENT_LOCATION;
 
               if (dPointGridY >= m_nYGridSize)
                  return RTN_ERR_SEDIMENT_INPUT_EVENT_LOCATION;
 
               // Now store the sediment input coordinates
               m_VdSedimentInputLocationX.push_back(dPointGridX);
               m_VdSedimentInputLocationY.push_back(dPointGridY);
            }
 
            else if (m_bSedimentInputAlongLine)
            {
               // Line data: convert the sediment input coordinates from ext CRS to grid CRS
               pOGRLineString = static_cast<OGRLineString*>(pOGRGeometry);
 
               nPoints = pOGRLineString->getNumPoints();
 
               for (int i = 0; i < nPoints; i++)
               {
                  double const dX = dExtCRSXToGridX(pOGRLineString->getX(i));
                  double const dY = dExtCRSYToGridY(pOGRLineString->getY(i));
 
                  // Check point data is inside the grid in the +ve direction
                  if (dX >= m_nXGridSize)
                     continue;
 
                  if (dY >= m_nYGridSize)
                     continue;
 
                  // Now store the sediment input coordinates
                  m_VdSedimentInputLocationX.push_back(dX);
                  m_VdSedimentInputLocationY.push_back(dY);
               }
            }
 
            break;
 
         case (FLOOD_LOCATION_VEC):
            // Point data: convert the flood location coordinates from ext CRS to grid CRS
            pOGRPoint = static_cast<OGRPoint*>(pOGRGeometry);
            dPointGridX = dExtCRSXToGridX(pOGRPoint->getX());
            dPointGridY = dExtCRSYToGridY(pOGRPoint->getY());
 
            // Check point data is inside the grid in the +ve direction
            if (dPointGridX >= m_nXGridSize)
               return RTN_ERR_SEDIMENT_INPUT_EVENT_LOCATION;
 
            if (dPointGridY >= m_nYGridSize)
               return RTN_ERR_SEDIMENT_INPUT_EVENT_LOCATION;
 
            // Now stote the flood location coordinates
            m_VdFloodLocationX.push_back(dPointGridX);
            m_VdFloodLocationY.push_back(dPointGridY);
            break;
         }
 
         // Next get the attributes of this feature
         OGRFeatureDefn* pOGRFeatureDefn = pOGRLayer->GetLayerDefn();
 
         int nFieldIndex = -1;
         int nID = -1;
 
         switch (nDataItem)
         {
         case (DEEP_WATER_WAVE_STATIONS_VEC):
            // First get the station ID
            nFieldIndex = pOGRFeatureDefn->GetFieldIndex(DEEP_WATER_WAVE_STATION_ID.c_str());
 
            if (nFieldIndex == -1)
            {
               // Can't find this field in the vector file
               cerr << ERR << "cannot find " << DEEP_WATER_WAVE_STATION_ID << " field in " << strGISFile << ": " << CPLGetLastErrorMsg() << endl;
               return RTN_ERR_VECTOR_FILE_READ;
            }
 
            // Get the Station ID for this point
            nID = pOGRFeature->GetFieldAsInteger(nFieldIndex);
            m_VnDeepWaterWaveStationID.push_back(nID);
 
            break;
 
         case (SEDIMENT_INPUT_EVENT_LOCATION_VEC):
            // First get the station ID
            nFieldIndex = pOGRFeatureDefn->GetFieldIndex(SEDIMENT_INPUT_EVENT_LOCATION_ID.c_str());
 
            if (nFieldIndex == -1)
            {
               // Can't find this field in the vector file
               cerr << ERR << "cannot find " << SEDIMENT_INPUT_EVENT_LOCATION_ID << " field in " << strGISFile << ": " << CPLGetLastErrorMsg() << endl;
               return RTN_ERR_VECTOR_FILE_READ;
            }
 
            // Get the Station ID for this point (note that we read it as an integer, not caring what type of field is actually in the shapefile)
            nID = pOGRFeature->GetFieldAsInteger(nFieldIndex);
 
            if (m_bSedimentInputAtPoint || m_bSedimentInputAtCoast)
               // Save the ID for the point
               m_VnSedimentInputLocationID.push_back(nID);
 
            else if (m_bSedimentInputAlongLine)
            {
               // Save the ID for every point in the line
               for (int i = 0; i < nPoints; i++)
                  m_VnSedimentInputLocationID.push_back(nID);
            }
 
            break;
 
         case (FLOOD_LOCATION_VEC):
            // First get the station ID
            nFieldIndex = pOGRFeatureDefn->GetFieldIndex(FLOOD_LOCATION_ID.c_str());
 
            if (nFieldIndex == -1)
            {
               // Can't find this field in the vector file
               cerr << ERR << "cannot find " << FLOOD_LOCATION_ID << " field in " << strGISFile << ": " << CPLGetLastErrorMsg() << endl;
               return RTN_ERR_VECTOR_FILE_READ;
            }
 
            // Get the Station ID for this point (note that we read it as an integer, not caring what type of field is actually in the shapefile)
            nID = pOGRFeature->GetFieldAsInteger(nFieldIndex);
 
            // Save the ID for the point
            m_VnFloodLocationID.push_back(nID);
            break;
         }
      }
 
      // Get rid of the Feature object
      OGRFeature::DestroyFeature(pOGRFeature);
   }
 
   // Save some info, to be shown in the text output
   switch (nDataItem)
   {
   case (DEEP_WATER_WAVE_STATIONS_VEC):
      m_strOGRDWWVDriverCode = pOGRDataSource->GetDriverName();
 
      for (auto&& oFeatureLayerPair : pOGRDataSource->GetFeatures())
      {
         m_strOGRDWWVDriverDesc += oFeatureLayerPair.layer->GetName();
         m_strOGRDWWVDriverDesc += SPACE;
      }
 
      m_strOGRDWWVDataType = "integer";
      m_strOGRDWWVGeometry = strGeometry;
      break;
 
   case (SEDIMENT_INPUT_EVENT_LOCATION_VEC):
      m_strOGRSedInputDriverCode = pOGRDataSource->GetDriverName();
 
      for (auto&& oFeatureLayerPair : pOGRDataSource->GetFeatures())
      {
         m_strOGRSedInputDriverDesc += oFeatureLayerPair.layer->GetName();
         m_strOGRSedInputDriverDesc += SPACE;
      }
 
      m_strOGRSedInputGeometry = "integer";
      m_strOGRSedInputDataType = strGeometry;
      break;
 
   case (FLOOD_LOCATION_VEC):
      m_strOGRFloodDriverCode = pOGRDataSource->GetDriverName();
 
      for (auto&& oFeatureLayerPair : pOGRDataSource->GetFeatures())
      {
         m_strOGRFloodDriverDesc += oFeatureLayerPair.layer->GetName();
         m_strOGRFloodDriverDesc += SPACE;
      }
 
      m_strOGRFloodGeometry = "integer";
      m_strOGRFloodDataType = strGeometry;
      break;
   }
 
   // Clean up: get rid of the data source object
   GDALClose(pOGRDataSource);
 
   return RTN_OK;
}
 
//===============================================================================================================================
//===============================================================================================================================
bool CSimulation::bWriteVectorGISFile(int const nDataItem, string const* strPlotTitle)
{
   // Begin constructing the file name for this save
   string strFilePathName(m_strOutPath);
   stringstream strstrFileName;
 
   OGRwkbGeometryType eGType = wkbUnknown;
   string strType = "unknown";
 
   switch (nDataItem)
   {
   case (VECTOR_PLOT_COAST):
      strFilePathName.append(VECTOR_COAST_NAME);
      strstrFileName << VECTOR_COAST_NAME;
 
      eGType = wkbLineString;
      strType = "line";
 
      break;
 
   case (VECTOR_PLOT_COAST_SWL_HIGHEST):
      strFilePathName.append(VECTOR_COAST_SWL_HIGHEST_NAME);
      strstrFileName << VECTOR_COAST_SWL_HIGHEST_NAME;
 
      eGType = wkbLineString;
      strType = "line";
 
      break;
 
   case (VECTOR_PLOT_COAST_SWL_LOWEST):
      strFilePathName.append(VECTOR_COAST_SWL_LOWEST_NAME);
      strstrFileName << VECTOR_COAST_SWL_LOWEST_NAME;
 
      eGType = wkbLineString;
      strType = "line";
 
      break;
 
   case (VECTOR_PLOT_CLIFF_EDGE):
      strFilePathName.append(VECTOR_CLIFF_EDGE_NAME);
      strstrFileName << VECTOR_CLIFF_EDGE_NAME;
 
      eGType = wkbLineString;
      strType = "line";
 
      break;
 
   case (VECTOR_PLOT_NORMALS):
      strFilePathName.append(VECTOR_NORMALS_NAME);
      strstrFileName << VECTOR_NORMALS_NAME;
 
      eGType = wkbLineString;
      strType = "line";
 
      break;
 
   case (VECTOR_PLOT_INVALID_NORMALS):
      strFilePathName.append(VECTOR_INVALID_NORMALS_NAME);
 
      eGType = wkbLineString;
      strType = "line";
 
      break;
 
   case (VECTOR_PLOT_COAST_CURVATURE):
      strFilePathName.append(VECTOR_COAST_CURVATURE_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_WAVE_ANGLE_AND_HEIGHT):
      strFilePathName.append(VECTOR_WAVE_ANGLE_AND_HEIGHT_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_AVG_WAVE_ANGLE_AND_HEIGHT):
      strFilePathName.append(VECTOR_AVG_WAVE_ANGLE_AND_HEIGHT_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_WAVE_ENERGY_SINCE_COLLAPSE):
      strFilePathName.append(VECTOR_WAVE_ENERGY_SINCE_COLLAPSE_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_MEAN_WAVE_ENERGY):
      strFilePathName.append(VECTOR_MEAN_WAVE_ENERGY_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_BREAKING_WAVE_HEIGHT):
      strFilePathName.append(VECTOR_BREAKING_WAVE_HEIGHT_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_POLYGON_NODES):
      strFilePathName.append(VECTOR_POLYGON_NODE_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_POLYGON_BOUNDARY):
      strFilePathName.append(VECTOR_POLYGON_BOUNDARY_NAME);
 
      eGType = wkbLineString;
      strType = "line";
 
      break;
 
   case (VECTOR_PLOT_CLIFF_NOTCH_ACTIVE):
      strFilePathName.append(VECTOR_CLIFF_NOTCH_ACTIVE_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_SHADOW_ZONE_BOUNDARY):
      strFilePathName.append(VECTOR_SHADOW_ZONE_BOUNDARY_NAME);
 
      eGType = wkbLineString;
      strType = "line";
 
      break;
 
   case (VECTOR_PLOT_DOWNDRIFT_ZONE_BOUNDARY):
      strFilePathName.append(VECTOR_DOWNDRIFT_ZONE_BOUNDARY_NAME);
 
      eGType = wkbLineString;
      strType = "line";
 
      break;
 
   case (VECTOR_PLOT_DEEP_WATER_WAVE_ANGLE_AND_HEIGHT):
      strFilePathName.append(VECTOR_DEEP_WATER_WAVE_ANGLE_AND_HEIGHT_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_WAVE_SETUP):
      strFilePathName.append(VECTOR_WAVE_SETUP_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_STORM_SURGE):
      strFilePathName.append(VECTOR_STORM_SURGE_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_WAVE_TRANSECT_POINTS):
      strFilePathName.append(VECTOR_WAVE_TRANSECT_POINTS_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_RUN_UP):
      strFilePathName.append(VECTOR_RUN_UP_NAME);
 
      eGType = wkbPoint;
      strType = "point";
 
      break;
 
   case (VECTOR_PLOT_FLOOD_LINE):
      strFilePathName.append(VECTOR_FLOOD_LINE_NAME);
      strstrFileName << VECTOR_FLOOD_LINE_NAME;
 
      eGType = wkbLineString;
      strType = "line";
 
      break;
 
      // case (VECTOR_PLOT_FLOOD_SWL_SETUP_SURGE_LINE):
      // strFilePathName.append(VECTOR_FLOOD_SWL_SETUP_SURGE_LINE_NAME);
      // strstrFileName << VECTOR_FLOOD_SWL_SETUP_SURGE_LINE_NAME;
      // break;
 
      // case (VECTOR_PLOT_FLOOD_SWL_SETUP_SURGE_RUNUP_LINE):
      // strFilePathName.append(VECTOR_FLOOD_SWL_SETUP_SURGE_RUNUP_LINE_NAME);
      // strstrFileName << VECTOR_FLOOD_SWL_SETUP_SURGE_RUNUP_LINE_NAME;
      // break;
   }
 
   // Append the 'save number' to the filename, and prepend zeros to the save number
   strFilePathName.append("_");
   stringstream ststrTmp;
 
   if (m_bGISSaveDigitsSequential)
   {
      // Save number is sequential
      ststrTmp << FillToWidth('0', m_nGISMaxSaveDigits) << m_nGISSave;
   }
 
   else
   {
      // Save number is iteration
      ststrTmp << FillToWidth('0', m_nGISMaxSaveDigits) << m_ulIter;
   }
 
   strFilePathName.append(ststrTmp.str());
   strstrFileName << ststrTmp.str();
 
   // Make a copy of the filename without any extension
   // string strFilePathNameNoExt = strFilePathName;
 
   // If desired, append an extension
   if (! m_strOGRVectorOutputExtension.empty())
      strFilePathName.append(m_strOGRVectorOutputExtension);
 
   // Set up the vector driver
   GDALDriver* pGDALDriver = GetGDALDriverManager()->GetDriverByName(m_strVectorGISOutFormat.c_str());
 
   if (pGDALDriver == NULL)
   {
      cerr << ERR << "vector GIS output driver " << m_strVectorGISOutFormat << CPLGetLastErrorMsg() << endl;
      return false;
   }
 
   // Now create the dataset
   GDALDataset* pGDALDataSet = pGDALDriver->Create(strFilePathName.c_str(), 0, 0, 0, GDT_Unknown, m_papszGDALVectorOptions);
 
   if (pGDALDataSet == NULL)
   {
      cerr << ERR << "cannot create " << m_strVectorGISOutFormat << " named " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
      return false;
   }
 
   // Create a spatial reference object
   OGRSpatialReference OGRSpatialRef;
 
   // And tell it about the coordinate system used by the basement raster layer
   if (m_strGDALBasementDEMProjection.empty())
   {
      OGRSpatialRef.importFromWkt(m_strGDALBasementDEMProjection.c_str());
   }
 
   else
   {
      OGRSpatialRef.importFromEPSG(25830); // TODO 035 Also handle other EPSG for vector spatial reference systems
   }
 
   // Now create the output layer
   // // OGRLayer* pOGRLayer = pGDALDataSet->CreateLayer(strFilePathNameNoExt.c_str(), &OGRSpatialRef, eGType, m_papszGDALVectorOptions);
   // if (EQUAL(m_strVectorGISOutFormat.c_str(), "geojson"))
   // {
   // CPLSetConfigOption("GDAL_VALIDATE_CREATION_OPTIONS", "NO");
   // m_papszGDALVectorOptions = CSLSetNameValue(m_papszGDALVectorOptions, "COORDINATE_PRECISION", "2");
   // }
 
   OGRLayer* pOGRLayer = pGDALDataSet->CreateLayer(strstrFileName.str().c_str(), &OGRSpatialRef, eGType, m_papszGDALVectorOptions);
 
   if (pOGRLayer == NULL)
   {
      cerr << ERR << "cannot create '" << strType << "' layer in " << strFilePathName << endl
           << CPLGetLastErrorMsg() << endl;
      return false;
   }
 
   // Need to switch off GDAL/OGR error messages here, since real (floating point) fields in ESRI shapefiles are treated as width 24 with 15 decimal places of precision (unless an explicit width is given). If fields exceed this, then a "not successfully written. Possibly due to too larger number with respect to field width" error message is shown. Get this to fail silently
   CPLPushErrorHandler(CPLQuietErrorHandler);
 
   switch (nDataItem)
   {
   case (VECTOR_PLOT_COAST):
   {
      // The layer has been created, so create an integer-numbered value (the number of the coast object) for the multi-line
      string const strFieldValue1 = "Coast";
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTInteger);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now do features
      OGRLineString OGRls;
 
      for (int i = 0; i < static_cast<int>(m_VCoast.size()); i++)
      {
         // Create a feature object, one per coast
         OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
         // Set the feature's attribute (the coast number)
         pOGRFeature->SetField(strFieldValue1.c_str(), i);
 
         // Now attach a geometry to the feature object
         for (int j = 0; j < m_VCoast[i].pLGetCoastlineExtCRS()->nGetSize(); j++)
            // In external CRS
            OGRls.addPoint(m_VCoast[i].pPtGetCoastlinePointExtCRS(j)->dGetX(), m_VCoast[i].pPtGetCoastlinePointExtCRS(j)->dGetY());
 
         pOGRFeature->SetGeometry(&OGRls);
 
         // Create the feature in the output layer
         if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
         {
            cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << " for coast " << i << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
            return false;
         }
 
         // Tidy up: empty the line string and get rid of the feature object
         OGRls.empty();
         OGRFeature::DestroyFeature(pOGRFeature);
      }
 
      break;
   }
 
   case (VECTOR_PLOT_COAST_SWL_HIGHEST):
   {
      // The layer has been created, so create an integer-numbered value (the number of the coast object) for the multi-line
      string const strFieldValue1 = "Coast";
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTInteger);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now do features
      OGRLineString OGRls;
 
      for (int i = 0; i < static_cast<int>(m_VHighestSWLCoastLine.size()); i++)
      {
         // Create a feature object, one per coast
         OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
         // Set the feature's attribute (the coast number)
         pOGRFeature->SetField(strFieldValue1.c_str(), i);
 
         // Now attach a geometry to the feature object
         for (int j = 0; j < m_VHighestSWLCoastLine[i].nGetSize(); j++)
            // In external CRS
            OGRls.addPoint(m_VHighestSWLCoastLine[i].dGetXAt(j), m_VHighestSWLCoastLine[i].dGetYAt(j));
 
         pOGRFeature->SetGeometry(&OGRls);
 
         // Create the feature in the output layer
         if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
         {
            cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << " for highest SWL coast " << i << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
            return false;
         }
 
         // Tidy up: empty the line string and get rid of the feature object
         OGRls.empty();
         OGRFeature::DestroyFeature(pOGRFeature);
      }
 
      break;
   }
 
   case (VECTOR_PLOT_COAST_SWL_LOWEST):
   {
      // The layer has been created, so create an integer-numbered value (the number of the coast object) for the multi-line
      string const strFieldValue1 = "Coast";
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTInteger);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now do features
      OGRLineString OGRls;
 
      for (int i = 0; i < static_cast<int>(m_VLowestSWLCoastLine.size()); i++)
      {
         // Create a feature object, one per coast
         OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
         // Set the feature's attribute (the coast number)
         pOGRFeature->SetField(strFieldValue1.c_str(), i);
 
         // Now attach a geometry to the feature object
         for (int j = 0; j < m_VLowestSWLCoastLine[i].nGetSize(); j++)
            // In external CRS
            OGRls.addPoint(m_VLowestSWLCoastLine[i].dGetXAt(j), m_VLowestSWLCoastLine[i].dGetYAt(j));
 
         pOGRFeature->SetGeometry(&OGRls);
 
         // Create the feature in the output layer
         if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
         {
            cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << " for lowest SWL coast " << i << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
            return false;
         }
 
         // Tidy up: empty the line string and get rid of the feature object
         OGRls.empty();
         OGRFeature::DestroyFeature(pOGRFeature);
      }
 
      break;
   }
 
 
   case (VECTOR_PLOT_FLOOD_LINE):
   {
      // The layer has been created, so create an integer-numbered value (the number of the coast object) for the multi-line
      string const strFieldValue1 = "NMR";
      string const strFieldValue2 = "tiempo";
      string const strFieldValue3 = "surge_mm";
      // string strFieldValue4 = "eta-surge(mm)";
      string const strFieldValue4 = "runup_mm";
 
      // Create a feature with general properties
      // OGRLineString OGRls;
      // OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
      // Testing coordinate system
      // if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      // {
      // cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
      // return false;
      // }
      // if (pOGRLayer->CreateField(&OGRField2) != OGRERR_NONE)
      // {
      // cerr << ERR << "cannot create " << strType << " attribute field 2 '" << strFieldValue2 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
      // return false;
      // }
 
      // pOGRFeature->SetGeometry(&OGRls);
      // Create the feature in the output layer
      // if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
      // {
      // cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
      // return false;
      // }
      // OGRFeature::DestroyFeature(pOGRFeature);
      // Create a feature object, one per coast
 
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTReal);
      OGRFieldDefn const OGRField2(strFieldValue2.c_str(), OFTReal);
      OGRFieldDefn const OGRField3(strFieldValue3.c_str(), OFTInteger64);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField2) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 2 '" << strFieldValue2 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField3) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 3 '" << strFieldValue3 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now do features
      OGRLineString const OGR2ls;
 
      // for (int i = 0; i < static_cast<int>(m_VFloodWaveSetupSurge.size()); i++)
      // {
      // OGRFeature* pOGR2Feature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
      // pOGR2Feature->SetField(strFieldValue1.c_str(), m_dThisIterSWL);
      // pOGR2Feature->SetField(strFieldValue2.c_str(), m_ulIter);
      // int setup_level = int(m_dThisIterDiffWaveSetupWaterLevel * 1000);
      // pOGR2Feature->SetField(strFieldValue3.c_str(), setup_level);
      //    // Set the feature's attribute (the coast number)
      //    // Now attach a geometry to the feature object
      // for (int j = 0; j < m_VFloodWaveSetup[i].pLGetCoastlineExtCRS()->nGetSize(); j++)
      // {
      //       //  In external CRS
      //       // Add SWL + wave setup line
      // OGR2ls.addPoint(m_VFloodWaveSetup[i].pPtGetCoastlinePointExtCRS(j)->dGetX(), m_VFloodWaveSetup[i].pPtGetCoastlinePointExtCRS(j)->dGetY());
      // }
 
      // pOGR2Feature->SetGeometry(&OGR2ls);
      // OGR2ls.empty();
 
      //    // Create the feature in the output layer
      // if (pOGRLayer->CreateFeature(pOGR2Feature) != OGRERR_NONE)
      // {
      // cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << " for coast " << i << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
      // return false;
      // }
 
      //    // Tidy up: empty the line string and get rid of the feature object
      //    // OGRls.empty();
      // OGRFeature::DestroyFeature(pOGR2Feature);
      // }
      if (m_bFloodSWLSetupSurgeLine)
      {
         // Create a feature object, one per coast
         OGRFeature* pOGR3Feature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
         OGRFieldDefn const OGRField6(strFieldValue1.c_str(), OFTReal);
         OGRFieldDefn const OGRField7(strFieldValue2.c_str(), OFTReal);
         OGRFieldDefn const OGRField4(strFieldValue3.c_str(), OFTInteger64);
 
         if (pOGRLayer->CreateField(&OGRField6) != OGRERR_NONE)
         {
            cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
            return false;
         }
 
         if (pOGRLayer->CreateField(&OGRField7) != OGRERR_NONE)
         {
            cerr << ERR << "cannot create " << strType << " attribute field 2 '" << strFieldValue2 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
            return false;
         }
 
         if (pOGRLayer->CreateField(&OGRField4) != OGRERR_NONE)
         {
            cerr << ERR << "cannot create " << strType << " attribute field 4 '" << strFieldValue4 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
            return false;
         }
 
         // OK, now do features
         OGRLineString OGR3ls;
 
         for (int i = 0; i < static_cast<int>(m_VFloodWaveSetupSurge.size()); i++)
         {
            pOGR3Feature->SetField(strFieldValue1.c_str(), m_dThisIterSWL);
            pOGR3Feature->SetField(strFieldValue2.c_str(), static_cast<double>(m_bGISSaveDigitsSequential ? m_nGISSave : m_ulIter));
            int const surge_level = int(m_dThisIterDiffWaveSetupSurgeWaterLevel * 1000);
            pOGR3Feature->SetField(strFieldValue3.c_str(), surge_level);
 
            // Set the feature's attribute (the coast number)
            // Now attach a geometry to the feature object
            for (int j = 0; j < m_VFloodWaveSetupSurge[i].pLGetCoastlineExtCRS()->nGetSize(); j++)
            {
               // In external CRS
               // Add SWL + wave setup + storm surge line
               OGR3ls.addPoint(m_VFloodWaveSetupSurge[i].pPtGetCoastlinePointExtCRS(j)->dGetX(), m_VFloodWaveSetupSurge[i].pPtGetCoastlinePointExtCRS(j)->dGetY());
            }
 
            pOGR3Feature->SetGeometry(&OGR3ls);
            OGR3ls.empty();
 
            // Create the feature in the output layer
            if (pOGRLayer->CreateFeature(pOGR3Feature) != OGRERR_NONE)
            {
               cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << " for coast " << i << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
               return false;
            }
 
            // Tidy up: empty the line string and get rid of the feature object
            // OGRls.empty();
            OGRFeature::DestroyFeature(pOGR3Feature);
         }
      }
 
      if (m_bFloodSWLSetupSurgeRunupLineSave)
      {
         // Create a feature object, one per coast
         OGRFeature* pOGR4Feature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
         OGRFieldDefn const OGRField8(strFieldValue1.c_str(), OFTReal);
         OGRFieldDefn const OGRField9(strFieldValue2.c_str(), OFTReal);
         OGRFieldDefn const OGRField5(strFieldValue4.c_str(), OFTInteger64);
 
         if (pOGRLayer->CreateField(&OGRField8) != OGRERR_NONE)
         {
            cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
            return false;
         }
 
         if (pOGRLayer->CreateField(&OGRField9) != OGRERR_NONE)
         {
            cerr << ERR << "cannot create " << strType << " attribute field 2 '" << strFieldValue2 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
            return false;
         }
 
         if (pOGRLayer->CreateField(&OGRField5) != OGRERR_NONE)
         {
            cerr << ERR << "cannot create " << strType << " attribute field 5 '" << strFieldValue4 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
            return false;
         }
 
         // OK, now do features
         OGRLineString OGR4ls;
 
         for (int i = 0; i < static_cast<int>(m_VFloodWaveSetupSurgeRunup.size()); i++)
         {
            pOGR4Feature->SetField(strFieldValue1.c_str(), m_dThisIterSWL);
            pOGR4Feature->SetField(strFieldValue2.c_str(), static_cast<double>(m_bGISSaveDigitsSequential ? m_nGISSave : m_ulIter));
            int const runup_level = int(m_dThisIterDiffWaveSetupSurgeRunupWaterLevel * 1000);
            pOGR4Feature->SetField(strFieldValue4.c_str(), runup_level);
 
            // Set the feature's attribute (the coast number)
            // Now attach a geometry to the feature object
            for (int j = 0; j < m_VFloodWaveSetupSurgeRunup[i].pLGetCoastlineExtCRS()->nGetSize(); j++)
            {
               // In external CRS
               // Add SWL + wave setup + surge + runup line
               OGR4ls.addPoint(m_VFloodWaveSetupSurgeRunup[i].pPtGetCoastlinePointExtCRS(j)->dGetX(), m_VFloodWaveSetupSurgeRunup[i].pPtGetCoastlinePointExtCRS(j)->dGetY());
            }
 
            pOGR4Feature->SetGeometry(&OGR4ls);
            OGR4ls.empty();
 
            // Create the feature in the output layer
            if (pOGRLayer->CreateFeature(pOGR4Feature) != OGRERR_NONE)
            {
               cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << " for coast " << i << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
               return false;
            }
 
            // Tidy up: empty the line string and get rid of the feature object
            // OGRls.empty();
            OGRFeature::DestroyFeature(pOGR4Feature);
         }
      }
 
      // OGRls.empty();
 
      break;
   }
 
   case (VECTOR_PLOT_CLIFF_EDGE):
   {
      // The layer has been created, so create an integer-numbered value (the number of the cliff edge object) for the multi-line
      string const strFieldValue1 = "CliffEdge";
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTInteger);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now do features
      OGRLineString OGRls;
 
      for (int i = 0; i < static_cast<int>(m_VCliffToe.size()); i++)
      {
         // Create a feature object, one per cliff edge
         OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
         // Set the feature's attribute (the cliff edge number)
         pOGRFeature->SetField(strFieldValue1.c_str(), i);
 
         // Now attach a geometry to the feature object
         for (int j = 0; j < m_VCliffToe[i].nGetSize(); j++)
         {
            // Use external CRS coordinates directly (already smoothed)
            OGRls.addPoint(m_VCliffToe[i].dGetXAt(j), m_VCliffToe[i].dGetYAt(j));
         }
 
         pOGRFeature->SetGeometry(&OGRls);
 
         // Create the feature in the output layer
         if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
         {
            cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << " for cliff edge " << i << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
            return false;
         }
 
         // Tidy up: empty the line string and destroy the feature object
         OGRls.empty();
         OGRFeature::DestroyFeature(pOGRFeature);
      }
 
      break;
   }
 
   case (VECTOR_PLOT_NORMALS):
   case (VECTOR_PLOT_INVALID_NORMALS):
   {
      // The layer has been created, so create an integer-numbered value (the number of the normal) associated with the line
      string const strFieldValue1 = "NormalID";
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTInteger);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // Also create other integer-numbered values for the category codes of the coastline-normal profile
      string const strFieldValue2 = "Coast";
      string const strFieldValue3 = "StartCoast";
      string const strFieldValue4 = "EndCoast";
      string const strFieldValue5 = "HitLand";
      string const strFieldValue6 = "HitIntervention";
      string const strFieldValue7 = "HitCoast";
      string const strFieldValue8 = "HitNormal";
      string const strFieldValue9 = "TooShort";
      string const strFieldValue10 = "TruncSame";
      string const strFieldValue11 = "TruncDiff";
      string const strFieldValue12 = "CShore";
 
      OGRFieldDefn const OGRField2(strFieldValue2.c_str(), OFTInteger);
      OGRFieldDefn const OGRField3(strFieldValue3.c_str(), OFTInteger);
      OGRFieldDefn const OGRField4(strFieldValue4.c_str(), OFTInteger);
      OGRFieldDefn const OGRField5(strFieldValue5.c_str(), OFTInteger);
      OGRFieldDefn const OGRField6(strFieldValue6.c_str(), OFTInteger);
      OGRFieldDefn const OGRField7(strFieldValue7.c_str(), OFTInteger);
      OGRFieldDefn const OGRField8(strFieldValue8.c_str(), OFTInteger);
      OGRFieldDefn const OGRField9(strFieldValue9.c_str(), OFTInteger);
      OGRFieldDefn const OGRField10(strFieldValue10.c_str(), OFTInteger);
      OGRFieldDefn const OGRField11(strFieldValue11.c_str(), OFTInteger);
      OGRFieldDefn const OGRField12(strFieldValue12.c_str(), OFTInteger);
 
      if (pOGRLayer->CreateField(&OGRField2) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 2 '" << strFieldValue2 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField3) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 3 '" << strFieldValue3 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField4) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 4 '" << strFieldValue4 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField5) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 5 '" << strFieldValue5 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField6) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 6 '" << strFieldValue6 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField7) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 7 '" << strFieldValue7 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField8) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 8 '" << strFieldValue8 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField9) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 9 '" << strFieldValue9 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField10) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 10 '" << strFieldValue10 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField11) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 11 '" << strFieldValue11 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      if (pOGRLayer->CreateField(&OGRField12) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 12 '" << strFieldValue12 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now create features
      OGRLineString OGRls;
 
      for (int i = 0; i < static_cast<int>(m_VCoast.size()); i++)
      {
         for (int j = 0; j < m_VCoast[i].nGetNumProfiles(); j++)
         {
            CGeomProfile* pProfile = m_VCoast[i].pGetProfile(j);
 
            if (((nDataItem == VECTOR_PLOT_NORMALS) && (pProfile->bOKIncStartAndEndOfCoast())) || ((nDataItem == VECTOR_PLOT_INVALID_NORMALS) && (! pProfile->bOKIncStartAndEndOfCoast())))
            {
               // Create a feature object, one per profile
               OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
               // Set the feature's attributes
               pOGRFeature->SetField(strFieldValue1.c_str(), j);
               pOGRFeature->SetField(strFieldValue2.c_str(), pProfile->nGetCoastID());
               pOGRFeature->SetField(strFieldValue3.c_str(), pProfile->bStartOfCoast());
               pOGRFeature->SetField(strFieldValue4.c_str(), pProfile->bEndOfCoast());
               pOGRFeature->SetField(strFieldValue5.c_str(), pProfile->bHitLand());
               pOGRFeature->SetField(strFieldValue6.c_str(), pProfile->bHitIntervention());
               pOGRFeature->SetField(strFieldValue7.c_str(), pProfile->bHitCoast());
               pOGRFeature->SetField(strFieldValue8.c_str(), pProfile->bHitAnotherProfile());
               pOGRFeature->SetField(strFieldValue9.c_str(), pProfile->bTooShort());
               pOGRFeature->SetField(strFieldValue10.c_str(), pProfile->bTruncatedSameCoast());
               pOGRFeature->SetField(strFieldValue11.c_str(), pProfile->bTruncatedDifferentCoast());
               pOGRFeature->SetField(strFieldValue12.c_str(), pProfile->bCShoreProblem());
 
               // Now attach a geometry to the feature object
               for (int k = 0; k < pProfile->nGetProfileSize(); k++)
                  OGRls.addPoint(pProfile->pPtGetPointInProfile(k)->dGetX(), pProfile->pPtGetPointInProfile(k)->dGetY());
 
               pOGRFeature->SetGeometry(&OGRls);
               OGRls.empty();
 
               // Create the feature in the output layer
               if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
               {
                  cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << " for coast " << i << " and profile " << j << " in " << strFilePathName << endl
                       << CPLGetLastErrorMsg() << endl;
                  return false;
               }
 
               // Tidy up: get rid of the feature object
               OGRFeature::DestroyFeature(pOGRFeature);
            }
         }
      }
 
      break;
   }
 
   case (VECTOR_PLOT_COAST_CURVATURE):
   case (VECTOR_PLOT_WAVE_ENERGY_SINCE_COLLAPSE):
   case (VECTOR_PLOT_MEAN_WAVE_ENERGY):
   case (VECTOR_PLOT_BREAKING_WAVE_HEIGHT):
   case (VECTOR_PLOT_POLYGON_NODES):
   case (VECTOR_PLOT_CLIFF_NOTCH_ACTIVE):
   case (VECTOR_PLOT_WAVE_SETUP):
   case (VECTOR_PLOT_STORM_SURGE):
   case (VECTOR_PLOT_RUN_UP):
   {
      // The layer has been created, so create a real-numbered value associated with each point
      string strFieldValue1;
 
      if (nDataItem == VECTOR_PLOT_COAST_CURVATURE)
         strFieldValue1 = "Curve";
      else if (nDataItem == VECTOR_PLOT_WAVE_ENERGY_SINCE_COLLAPSE)
         strFieldValue1 = "SC_Energy";
      else if (nDataItem == VECTOR_PLOT_MEAN_WAVE_ENERGY)
         strFieldValue1 = "MeanEnergy";
      else if (nDataItem == VECTOR_PLOT_BREAKING_WAVE_HEIGHT)
         strFieldValue1 = "Height";
      else if (nDataItem == VECTOR_PLOT_POLYGON_NODES)
         strFieldValue1 = "Node";
      else if (nDataItem == VECTOR_PLOT_CLIFF_NOTCH_ACTIVE)
         strFieldValue1 = "Notch";
      else if (nDataItem == VECTOR_PLOT_WAVE_SETUP)
         strFieldValue1 = "Wavesetup";
      else if (nDataItem == VECTOR_PLOT_STORM_SURGE)
         strFieldValue1 = "Stormsurge";
      else if (nDataItem == VECTOR_PLOT_RUN_UP)
         strFieldValue1 = "Runup";
 
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTReal);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now create features
      OGRLineString const OGRls;
      OGRMultiLineString const OGRmls;
      OGRPoint OGRPt;
 
      for (int i = 0; i < static_cast<int>(m_VCoast.size()); i++)
      {
         for (int j = 0; j < m_VCoast[i].pLGetCoastlineExtCRS()->nGetSize(); j++)
         {
            // Create a feature object, one per coastline point
            OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
            // Set the feature's geometry (in external CRS)
            OGRPt.setX(m_VCoast[i].pPtGetCoastlinePointExtCRS(j)->dGetX());
            OGRPt.setY(m_VCoast[i].pPtGetCoastlinePointExtCRS(j)->dGetY());
            pOGRFeature->SetGeometry(&OGRPt);
 
            if (nDataItem == VECTOR_PLOT_COAST_CURVATURE)
            {
               double const dCurvature = m_VCoast[i].dGetDetailedCurvature(j);
 
               if (bFPIsEqual(dCurvature, DBL_NODATA, TOLERANCE))
                  continue;
 
               // Set the feature's attribute
               pOGRFeature->SetField(strFieldValue1.c_str(), dCurvature);
            }
 
            else if (nDataItem == VECTOR_PLOT_WAVE_ENERGY_SINCE_COLLAPSE)
            {
               // Set the feature's attribute
               if (m_VCoast[i].pGetCoastLandform(j) == NULL)
                  pOGRFeature->SetField(strFieldValue1.c_str(), DBL_NODATA);
               else
                  pOGRFeature->SetField(strFieldValue1.c_str(), m_VCoast[i].pGetCoastLandform(j)->dGetTotAccumWaveEnergy());
            }
 
            else if (nDataItem == VECTOR_PLOT_MEAN_WAVE_ENERGY)
            {
               // Set the feature's attribute
               if (m_VCoast[i].pGetCoastLandform(j) == NULL)
                  pOGRFeature->SetField(strFieldValue1.c_str(), DBL_NODATA);
               else
               {
                  double dEnergy = m_VCoast[i].pGetCoastLandform(j)->dGetTotAccumWaveEnergy();
                  dEnergy *= 24;
                  dEnergy /= m_dSimElapsed; // Is in energy units per day
 
                  pOGRFeature->SetField(strFieldValue1.c_str(), dEnergy);
               }
            }
            else if (nDataItem == VECTOR_PLOT_BREAKING_WAVE_HEIGHT)
            {
               // Set the feature's attribute
               double const dHeight = m_VCoast[i].dGetBreakingWaveHeight(j);
               pOGRFeature->SetField(strFieldValue1.c_str(), dHeight);
            }
            else if (nDataItem == VECTOR_PLOT_WAVE_SETUP)
            {
               // Set the feature's attribute
               double const dWaveSetupSurge = m_VCoast[i].dGetWaveSetupSurge(j);
               pOGRFeature->SetField(strFieldValue1.c_str(), dWaveSetupSurge);
            }
 
            // else if (nDataItem == VECTOR_PLOT_STORM_SURGE)
            // {
            //    // Set the feature's attribute
            // double dStormSurge = m_VCoast[i].dGetStormSurge(j);
            // pOGRFeature->SetField(strFieldValue1.c_str(), dStormSurge);
            // }
            else if (nDataItem == VECTOR_PLOT_RUN_UP)
            {
               // Set the feature's attribute
               double const dRunUp = m_VCoast[i].dGetRunUp(j);
               pOGRFeature->SetField(strFieldValue1.c_str(), dRunUp);
            }
            else if (nDataItem == VECTOR_PLOT_POLYGON_NODES)
            {
               int const nNode = m_VCoast[i].nGetPolygonNode(j);
 
               if (nNode == INT_NODATA)
                  continue;
 
               // Set the feature's attribute
               pOGRFeature->SetField(strFieldValue1.c_str(), nNode);
            }
            else if (nDataItem == VECTOR_PLOT_CLIFF_NOTCH_ACTIVE)
            {
               CACoastLandform* pCoastLandform = m_VCoast[i].pGetCoastLandform(j);
 
               if (pCoastLandform == NULL)
                  pOGRFeature->SetField(strFieldValue1.c_str(), DBL_NODATA);
               else
               {
                  int const nCategory = pCoastLandform->nGetLandFormCategory();
                  double dNotchDepth = 0.0;
 
                  if ((nCategory == LF_CLIFF_ON_COASTLINE) || (nCategory == LF_CLIFF_INLAND))
                  {
                     CRWCliff const* pCliff = reinterpret_cast<CRWCliff*>(pCoastLandform);
 
                     // Get attribute values from the cliff object
                     if (pCliff->bHasCollapsed())
                        dNotchDepth = m_dCellSide;
                     else
                        dNotchDepth = pCliff->dGetNotchIncision();
                  }
 
                  // Set the feature's attribute
                  pOGRFeature->SetField(strFieldValue1.c_str(), dNotchDepth);
               }
            }
 
            // Create the feature in the output layer
            if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
            {
               cerr << ERR << "cannot create " << strType << " feature " << strPlotTitle << " for coast " << i << " point " << j << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
               return false;
            }
 
            // Get rid of the feature object
            OGRFeature::DestroyFeature(pOGRFeature);
         }
      }
 
      break;
   }
 
   case (VECTOR_PLOT_WAVE_ANGLE_AND_HEIGHT):
   {
      // The layer has been created, so create real-numbered values associated with each point
      string const strFieldValue1 = "Angle";
      string const strFieldValue2 = "Height";
 
      // Create the first field
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTReal);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // Create the second field
      OGRFieldDefn const OGRField2(strFieldValue2.c_str(), OFTReal);
 
      if (pOGRLayer->CreateField(&OGRField2) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 2 '" << strFieldValue2 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now create features
      OGRLineString const OGRls;
      OGRMultiLineString const OGRmls;
      OGRPoint OGRPt;
 
      for (int nX = 0; nX < m_nXGridSize; nX++)
      {
         for (int nY = 0; nY < m_nYGridSize; nY++)
         {
            // Only output a value if the cell is a sea cell which is not in the active zone (wave height and angle values are meaningless if in the active zone)
            if ((m_pRasterGrid->m_Cell[nX][nY].bIsInContiguousSea()) && (!m_pRasterGrid->m_Cell[nX][nY].bIsInActiveZone()))
            {
               // Create a feature object, one per sea cell
               OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
               // Set the feature's geometry (in external CRS)
               OGRPt.setX(dGridCentroidXToExtCRSX(nX));
               OGRPt.setY(dGridCentroidYToExtCRSY(nY));
               pOGRFeature->SetGeometry(&OGRPt);
 
               double const dOrientation = m_pRasterGrid->m_Cell[nX][nY].dGetWaveAngle();
               double const dHeight = m_pRasterGrid->m_Cell[nX][nY].dGetWaveHeight();
 
               if (bFPIsEqual(dHeight, DBL_NODATA, TOLERANCE) || bFPIsEqual(dOrientation, DBL_NODATA, TOLERANCE))
                  continue;
 
               // Set the feature's attributes
               pOGRFeature->SetField(strFieldValue1.c_str(), dOrientation);
               pOGRFeature->SetField(strFieldValue2.c_str(), dHeight);
 
               // Create the feature in the output layer
               if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
               {
                  cerr << ERR << "cannot create " << strType << " feature " << strPlotTitle << " for cell [" << nX << "][" << nY << "] in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
                  return false;
               }
 
               // Get rid of the feature object
               OGRFeature::DestroyFeature(pOGRFeature);
            }
         }
      }
 
      break;
   }
 
   case (VECTOR_PLOT_WAVE_TRANSECT_POINTS):
   {
      // The layer has been created, so create fields for wave transect point attributes
      string const strFieldValue1 = "ProfileID";
      string const strFieldValue2 = "CoastID";
      string const strFieldValue3 = "HeightX";
      string const strFieldValue4 = "HeightY";
      string const strFieldValue5 = "Height";
      string const strFieldValue6 = "Angle";
      string const strFieldValue7 = "Breaking";
      string const strFieldValue8 = "IsSynthetic";
 
      // Create field definitions
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTInteger);
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField2(strFieldValue2.c_str(), OFTInteger);
      if (pOGRLayer->CreateField(&OGRField2) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 2 '" << strFieldValue2 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField3(strFieldValue3.c_str(), OFTReal);
      if (pOGRLayer->CreateField(&OGRField3) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 3 '" << strFieldValue3 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField4(strFieldValue4.c_str(), OFTReal);
      if (pOGRLayer->CreateField(&OGRField4) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 4 '" << strFieldValue4 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField5(strFieldValue5.c_str(), OFTReal);
      if (pOGRLayer->CreateField(&OGRField5) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 5 '" << strFieldValue5 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField6(strFieldValue6.c_str(), OFTReal);
      if (pOGRLayer->CreateField(&OGRField6) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 6 '" << strFieldValue6 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField7(strFieldValue7.c_str(), OFTInteger);
      if (pOGRLayer->CreateField(&OGRField7) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 7 '" << strFieldValue7 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField8(strFieldValue8.c_str(), OFTInteger);
      if (pOGRLayer->CreateField(&OGRField8) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 8 '" << strFieldValue8 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // Now create features for each point in each transect
      OGRPoint OGRPt;
 
      for (size_t nTransect = 0; nTransect < m_VAllTransectsWithSynthetic.size(); nTransect++)
      {
         TransectWaveData const& transect = m_VAllTransectsWithSynthetic[nTransect];
 
         for (size_t nPoint = 0; nPoint < transect.VdX.size(); nPoint++)
         {
            // Create a feature object for this point
            OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
            // Set the feature's geometry (convert from grid CRS to external CRS)
            OGRPt.setX(dGridCentroidXToExtCRSX(static_cast<int>(transect.VdX[nPoint])));
            OGRPt.setY(dGridCentroidYToExtCRSY(static_cast<int>(transect.VdY[nPoint])));
            pOGRFeature->SetGeometry(&OGRPt);
 
            // Calculate wave height and angle from components
            double const dHeightX = transect.VdHeightX[nPoint];
            double const dHeightY = transect.VdHeightY[nPoint];
            double const dHeight = sqrt(dHeightX * dHeightX + dHeightY * dHeightY);
            double dAngle = atan2(dHeightX, dHeightY) * 180.0 / PI;
            if (dAngle < 0)
               dAngle += 360.0;
 
            // Set the feature's attributes
            pOGRFeature->SetField(strFieldValue1.c_str(), transect.nProfileID);
            pOGRFeature->SetField(strFieldValue2.c_str(), transect.nCoastID);
            pOGRFeature->SetField(strFieldValue3.c_str(), dHeightX);
            pOGRFeature->SetField(strFieldValue4.c_str(), dHeightY);
            pOGRFeature->SetField(strFieldValue5.c_str(), dHeight);
            pOGRFeature->SetField(strFieldValue6.c_str(), dAngle);
            pOGRFeature->SetField(strFieldValue7.c_str(), transect.VbBreaking[nPoint] ? 1 : 0);
            pOGRFeature->SetField(strFieldValue8.c_str(), (transect.nProfileID == -1) ? 1 : 0);
 
            // Create the feature in the output layer
            if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
            {
               cerr << ERR << "cannot create " << strType << " feature " << strPlotTitle << " for transect " << nTransect << " point " << nPoint << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
               return false;
            }
 
            // Get rid of the feature object
            OGRFeature::DestroyFeature(pOGRFeature);
         }
      }
 
      break;
   }
 
   case (VECTOR_PLOT_AVG_WAVE_ANGLE_AND_HEIGHT):
   {
      // The layer has been created, so create real-numbered values associated with each point
      string const strFieldValue1 = "Angle";
      string const strFieldValue2 = "Height";
 
      // Create the first field
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTReal);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // Create the second field
      OGRFieldDefn const OGRField2(strFieldValue2.c_str(), OFTReal);
 
      if (pOGRLayer->CreateField(&OGRField2) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 2 '" << strFieldValue2 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now create features
      OGRLineString const OGRls;
      OGRMultiLineString const OGRmls;
      OGRPoint OGRPt;
 
      for (int nX = 0; nX < m_nXGridSize; nX++)
      {
         for (int nY = 0; nY < m_nYGridSize; nY++)
         {
            // Create a feature object, one per sea cell
            OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
            // Set the feature's geometry (in external CRS)
            OGRPt.setX(dGridCentroidXToExtCRSX(nX));
            OGRPt.setY(dGridCentroidYToExtCRSY(nY));
            pOGRFeature->SetGeometry(&OGRPt);
 
            double const dOrientation = m_pRasterGrid->m_Cell[nX][nY].dGetTotWaveAngle() / static_cast<double>(m_ulIter);
            double const dHeight = m_pRasterGrid->m_Cell[nX][nY].dGetWaveHeight() / static_cast<double>(m_ulIter);
 
            if (bFPIsEqual(dHeight, DBL_NODATA, TOLERANCE) || bFPIsEqual(dOrientation, DBL_NODATA, TOLERANCE))
               continue;
 
            // Set the feature's attributes
            pOGRFeature->SetField(strFieldValue1.c_str(), dOrientation);
            pOGRFeature->SetField(strFieldValue2.c_str(), dHeight);
 
            // Create the feature in the output layer
            if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
            {
               cerr << ERR << "cannot create " << strType << " feature " << strPlotTitle << " for cell [" << nX << "][" << nY << "] in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
               return false;
            }
 
            // Get rid of the feature object
            OGRFeature::DestroyFeature(pOGRFeature);
         }
      }
 
      break;
   }
 
   case (VECTOR_PLOT_POLYGON_BOUNDARY):
   {
      // The layer has been created, so create seven integer-numbered values for the polygon
      string const strFieldValue1 = "Coast";
      string const strFieldValue2 = "Polygon";
      string const strFieldValue3 = "CoastNode";
      string const strFieldValue4 = "TotSedChng";
      string const strFieldValue5 = "FinSedChng";
      string const strFieldValue6 = "SndSedChng";
      string const strFieldValue7 = "CrsSedChng";
 
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTInteger);
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField2(strFieldValue2.c_str(), OFTInteger);
      if (pOGRLayer->CreateField(&OGRField2) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 2 '" << strFieldValue2 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField3(strFieldValue3.c_str(), OFTReal);
      if (pOGRLayer->CreateField(&OGRField3) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 3 '" << strFieldValue3 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField4(strFieldValue4.c_str(), OFTReal);
      if (pOGRLayer->CreateField(&OGRField4) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 4 '" << strFieldValue4 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField5(strFieldValue5.c_str(), OFTReal);
      if (pOGRLayer->CreateField(&OGRField5) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 5 '" << strFieldValue5 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField6(strFieldValue6.c_str(), OFTReal);
      if (pOGRLayer->CreateField(&OGRField6) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 6 '" << strFieldValue6 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      OGRFieldDefn const OGRField7(strFieldValue7.c_str(), OFTReal);
      if (pOGRLayer->CreateField(&OGRField7) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 7 '" << strFieldValue6 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now do features
      OGRLineString OGRls;
 
      for (int i = 0; i < static_cast<int>(m_VCoast.size()); i++)
      {
         for (int j = 0; j < m_VCoast[i].nGetNumPolygons(); j++)
         {
            // Create a feature object, one per polygon
            OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
            CGeomCoastPolygon* pPolygon = m_VCoast[i].pGetPolygon(j);
 
            // Set the feature's attributes
            pOGRFeature->SetField(strFieldValue1.c_str(), i);
            pOGRFeature->SetField(strFieldValue2.c_str(), j);
            pOGRFeature->SetField(strFieldValue3.c_str(), pPolygon->nGetNodeCoastPoint());
            pOGRFeature->SetField(strFieldValue4.c_str(), pPolygon->dGetBeachDepositionAndSuspensionAllUncons());
            pOGRFeature->SetField(strFieldValue5.c_str(), pPolygon->dGetSuspensionUnconsFine());
            pOGRFeature->SetField(strFieldValue6.c_str(), pPolygon->dGetBeachDepositionUnconsSand());
            pOGRFeature->SetField(strFieldValue7.c_str(), pPolygon->dGetBeachDepositionUnconsCoarse());
 
            // Now attach a geometry to the feature object
            for (int n = 0; n < pPolygon->nGetBoundarySize(); n++)
               // In external CRS
               OGRls.addPoint(pPolygon->pPtGetBoundaryPoint(n)->dGetX(), pPolygon->pPtGetBoundaryPoint(n)->dGetY());
 
            pOGRFeature->SetGeometry(&OGRls);
 
            // Create the feature in the output layer
            if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
            {
               cerr << ERR << "cannot create " << strType << " feature " << strPlotTitle << " for coast " << i << " polygon " << j << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
               return false;
            }
 
            // Tidy up: empty the line string and get rid of the feature object
            OGRls.empty();
            OGRFeature::DestroyFeature(pOGRFeature);
         }
      }
 
      break;
   }
 
   case (VECTOR_PLOT_SHADOW_ZONE_BOUNDARY):
   {
      // Create an integer-numbered value (the number of the shadow boundary line object) for the multi-line
      string const strFieldValue1 = "ShadowLine";
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTInteger);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now do features
      OGRLineString OGRls;
 
      for (int i = 0; i < static_cast<int>(m_VCoast.size()); i++)
      {
         for (int j = 0; j < m_VCoast[i].nGetNumShadowBoundaries(); j++)
         {
            // Create a feature object, one per coast
            OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
            // Set the feature's attribute (the shadow boundary line number)
            pOGRFeature->SetField(strFieldValue1.c_str(), j);
 
            // Now attach a geometry to the feature object
            CGeomLine LShadow = *m_VCoast[i].pGetShadowBoundary(j);
 
            for (int nn = 0; nn < LShadow.nGetSize(); nn++)
               OGRls.addPoint(LShadow.dGetXAt(nn), LShadow.dGetYAt(nn));
 
            pOGRFeature->SetGeometry(&OGRls);
 
            // Create the feature in the output layer
            if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
            {
               cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << j << " for coast " << i << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
               return false;
            }
 
            // Tidy up: empty the line string and get rid of the feature object
            OGRls.empty();
            OGRFeature::DestroyFeature(pOGRFeature);
         }
      }
 
      break;
   }
 
   case (VECTOR_PLOT_DOWNDRIFT_ZONE_BOUNDARY):
   {
      // Create an integer-numbered value (the number of the downdrift boundary line object) for the multi-line
      string const strFieldValue1 = "DdriftLine";
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTInteger);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now do features
      OGRLineString OGRls;
 
      for (int i = 0; i < static_cast<int>(m_VCoast.size()); i++)
      {
         for (int j = 0; j < m_VCoast[i].nGetNumShadowDowndriftBoundaries(); j++)
         {
            // Create a feature object, one per coast
            OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
            // Set the feature's attribute (the downdrift boundary line number)
            pOGRFeature->SetField(strFieldValue1.c_str(), j);
 
            // Now attach a geometry to the feature object
            CGeomLine LDowndrift = *m_VCoast[i].pGetShadowDowndriftBoundary(j);
 
            for (int nn = 0; nn < LDowndrift.nGetSize(); nn++)
               OGRls.addPoint(LDowndrift.dGetXAt(nn), LDowndrift.dGetYAt(nn));
 
            pOGRFeature->SetGeometry(&OGRls);
 
            // Create the feature in the output layer
            if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
            {
               cerr << ERR << "cannot create  " << strType << " feature " << strPlotTitle << j << " for coast " << i << " in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
               return false;
            }
 
            // Tidy up: empty the line string and get rid of the feature object
            OGRls.empty();
            OGRFeature::DestroyFeature(pOGRFeature);
         }
      }
 
      break;
   }
 
   case (VECTOR_PLOT_DEEP_WATER_WAVE_ANGLE_AND_HEIGHT):
   {
      // The layer has been created, so create real-numbered values associated with each point
      string const strFieldValue1 = "Angle";
      string const strFieldValue2 = "Height";
 
      // Create the first field
      OGRFieldDefn const OGRField1(strFieldValue1.c_str(), OFTReal);
 
      if (pOGRLayer->CreateField(&OGRField1) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 1 '" << strFieldValue1 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // Create the second field
      OGRFieldDefn const OGRField2(strFieldValue2.c_str(), OFTReal);
 
      if (pOGRLayer->CreateField(&OGRField2) != OGRERR_NONE)
      {
         cerr << ERR << "cannot create " << strType << " attribute field 2 '" << strFieldValue2 << "' in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
         return false;
      }
 
      // OK, now create features
      OGRLineString const OGRls;
      OGRMultiLineString const OGRmls;
      OGRPoint OGRPt;
 
      for (int nX = 0; nX < m_nXGridSize; nX++)
      {
         for (int nY = 0; nY < m_nYGridSize; nY++)
         {
            // Create a feature object, one per cell (does this whether the sea is a sea cell or a land cell)
            OGRFeature* pOGRFeature = OGRFeature::CreateFeature(pOGRLayer->GetLayerDefn());
 
            // Set the feature's geometry (in external CRS)
            OGRPt.setX(dGridCentroidXToExtCRSX(nX));
            OGRPt.setY(dGridCentroidYToExtCRSY(nY));
            pOGRFeature->SetGeometry(&OGRPt);
 
            double const dOrientation = m_pRasterGrid->m_Cell[nX][nY].dGetCellDeepWaterWaveAngle();
            double const dHeight = m_pRasterGrid->m_Cell[nX][nY].dGetCellDeepWaterWaveHeight();
 
            if (bFPIsEqual(dHeight, DBL_NODATA, TOLERANCE) || bFPIsEqual(dOrientation, DBL_NODATA, TOLERANCE) || (!m_pRasterGrid->m_Cell[nX][nY].bIsInContiguousSea()))
               continue;
 
            // Set the feature's attributes
            pOGRFeature->SetField(strFieldValue1.c_str(), dOrientation);
            pOGRFeature->SetField(strFieldValue2.c_str(), dHeight);
 
            // Create the feature in the output layer
            if (pOGRLayer->CreateFeature(pOGRFeature) != OGRERR_NONE)
            {
               cerr << ERR << "cannot create " << strType << " feature " << strPlotTitle << " for cell [" << nX << "][" << nY << "] in " << strFilePathName << endl << CPLGetLastErrorMsg() << endl;
               return false;
            }
 
            // Get rid of the feature object
            OGRFeature::DestroyFeature(pOGRFeature);
         }
      }
 
      break;
   }
   }
 
   CPLPopErrorHandler();
 
   // Get rid of the dataset object
   GDALClose(pGDALDataSet);
 
   return true;
}