From e6e7be221556b7989c4e320c29644b5372468731 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Tue, 26 Dec 2023 15:22:01 +0100
Subject: [PATCH] std N* writing
---
matlab/load/read_namelist.m | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/matlab/load/read_namelist.m b/matlab/load/read_namelist.m
index 5dbbda93..3d49e6d0 100644
--- a/matlab/load/read_namelist.m
+++ b/matlab/load/read_namelist.m
@@ -81,6 +81,20 @@ while i < c;
% Parse current namelist (set of variables)
S.(namelst) = parse_namelist(nmlst_bdy);
end
+ if isfield(S,'GRID')
+ if isfield(S.GRID,'nx')
+ S.GRID.Nx = S.GRID.nx;
+ S.GRID = rmfield(S.GRID,'nx');
+ end
+ if isfield(S.GRID,'ny')
+ S.GRID.Ny = S.GRID.ny;
+ S.GRID = rmfield(S.GRID,'ny');
+ end
+ if isfield(S.GRID,'nz')
+ S.GRID.Nz = S.GRID.nz;
+ S.GRID = rmfield(S.GRID,'nz');
+ end
+ end
end
function S = parse_namelist(strng)
% Internal function to parse the body text of a namelist section.
@@ -150,6 +164,7 @@ for k = 1:nvars,
% Eval the modified syntax in Matlab
eval([vars{k} ' = ' arg]);
end
+
function [strng, is_lit] = parse_literal_strings(strng)
% Parse the literal declarations of strings and change to Matlab syntax
len = length(strng);
--
GitLab