matlab_class/gcmfaces_IO/rdmds_meta.m

function [meta]=rdmds_meta(fileName);

%read meta file
tmp1=dir([fileName '*.meta']); tmp1=tmp1(1).name;
tmp2=strfind(fileName,filesep);
if ~isempty(tmp2); tmp2=tmp2(end); else; tmp2=0; end;
tmp1=[fileName(1:tmp2) tmp1]; fid=fopen(tmp1);
while 1;
    tline = fgetl(fid);
    if ~ischar(tline), break, end
    if isempty(whos('tmp3')); tmp3=tline; else; tmp3=[tmp3 ' ' tline]; end;
end
fclose(fid);

%add meta variables to workspace
eval(tmp3);

%reformat to meta structure
meta.dataprec=dataprec;
meta.nDims=nDims;
meta.nFlds=nFlds;
meta.nrecords=nrecords;
meta.fldList=fldList;
meta.dimList=dimList;
if ~isempty(who('timeInterval')); meta.timeInterval=timeInterval; end;
if ~isempty(who('timeStepNumber'));  meta.timeStepNumber=timeStepNumber; end;

1	function [meta]=rdmds_meta(fileName);
2
3	%read meta file
4	tmp1=dir([fileName '*.meta']); tmp1=tmp1(1).name;
5	tmp2=strfind(fileName,filesep);
6	if ~isempty(tmp2); tmp2=tmp2(end); else; tmp2=0; end;
7	tmp1=[fileName(1:tmp2) tmp1]; fid=fopen(tmp1);
8	while 1;
9	tline = fgetl(fid);
10	if ~ischar(tline), break, end
11	if isempty(whos('tmp3')); tmp3=tline; else; tmp3=[tmp3 ' ' tline]; end;
12	end
13	fclose(fid);
14
15	%add meta variables to workspace
16	eval(tmp3);
17
18	%reformat to meta structure
19	meta.dataprec=dataprec;
20	meta.nDims=nDims;
21	meta.nFlds=nFlds;
22	meta.nrecords=nrecords;
23	meta.fldList=fldList;
24	meta.dimList=dimList;
25	if ~isempty(who('timeInterval')); meta.timeInterval=timeInterval; end;
26	if ~isempty(who('timeStepNumber')); meta.timeStepNumber=timeStepNumber; end;
27