diff --git a/matlab/load/read_namelist.m b/matlab/load/read_namelist.m index 5dbbda9337ba82b2ff2674d9d30573dc51ba30e5..3d49e6d0406d2532eaa3fc51ee3f7b2fe84d7631 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);