Commit 16f54561 authored by Pierre Cazenave's avatar Pierre Cazenave
Browse files

Add initial version of the file to generate a file for the...

Add initial version of the file to generate a file for the SEDIMENT_PARAMETER_FILE namelist option (i.e. varying initial sediment cover).
parent 78a7a888
function write_FVCOM_sediment(sediment, filename)
% Write spatially-varying sediment threshold data.
% function write_FVCOM_sediment(sediment, filename)
% Generate a netCDF file containing spatially variable sediment propoerties
% for FVCOM
% sediment = struct with nodal data in the following fields:
% - tau_ce
% - tau_cd
% - erate
% filename = filename to which to write the outputs.
% netCDF file: filename of the output netCDF file to generate.
% write_FVCOM_sediment(sediment, '')
% Author(s):
% Pierre Cazenave (Plymouth Marine Laboratory)
% Revision history
% 2017-03-27 New function to create a netCDF for the SEDIMENT_PARAMETER_FILE
% section in the model namelist.
global ftbverbose
[~, subname] = fileparts(mfilename('fullpath'));
if ftbverbose
fprintf('\nbegin : %s\n', subname)
% Check inputs.
assert(exist('sediment', 'var') == 1, 'incorrect usage of %s, must provide sediment struct', subname)
assert(exist('filename', 'var') == 1, 'incorrect usage of %s, must provide ''filename''', subname)
% Check dimensions
nVerts = numel(sediment.tau_cd);
assert(nVerts ~= 0, 'dimension of sediment data is 0, something is wrong')
% Dump to netCDF file
if ftbverbose
fprintf('Writing sediment data to netCDF file: %s\n', filename);
fprintf('nodes dimension: %d\n', nVerts);
nc = netcdf.create(filename, 'clobber');
netcdf.putAtt(nc,netcdf.getConstant('NC_GLOBAL'), 'history', ...
sprintf('File created using %s from the MATLAB fvcom-toolbox', subname))
% define dimensions
node_dimid = netcdf.defDim(nc, 'node', nVerts);
% define variables and attributes
erate_varid = netcdf.defVar(nc, 'erate', 'NC_INT', node_dimid);
netcdf.putAtt(nc, erate_varid, 'long_name', 'bed erodibility constant');
netcdf.putAtt(nc, erate_varid, 'units', '-');
tau_ce_varid = netcdf.defVar(nc, 'tau_ce', 'NC_INT', node_dimid);
netcdf.putAtt(nc, tau_ce_varid, 'long_name', 'critical shear stress for erosion');
netcdf.putAtt(nc, tau_ce_varid, 'units', 'N/m^2');
tau_cd_varid = netcdf.defVar(nc, 'tau_cd', 'NC_INT', node_dimid);
netcdf.putAtt(nc, tau_cd_varid, 'long_name', 'critical shear stress for deposition');
netcdf.putAtt(nc, tau_cd_varid, 'units', 'N/m^2');
% end definitions
% dump data
netcdf.putVar(nc, erate_varid, sediment.erate);
netcdf.putVar(nc, tau_ce_varid, sediment.tau_ce);
netcdf.putVar(nc, tau_cd_varid, sediment.tau_cd);
% close netCDF
if ftbverbose
fprintf('end : %s\n', subname)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment