MITgcm_contrib/mitgcm_tools/grepparameter.m

function [parval] = grepparameter(datafile,str)
%parval=grepparameter(DATAFILE,STRING)
%
%Extracts a parameter value from the input parameter file (e.g. "data") based
%on a parameter name. e.g.
%>> tauxfile=grepparameter(datafile,'zonalwindfile');
%
%Written by adcroft@mit.edu, 2001
%$header

Ltrue='true';
Lfalse='false';

parval=[];
strc=evalc([ ...
     '!fgrep -v "#" ' datafile ...
     '| grep -i ''' str ''' - ' ...
     '| tail -1 ' ...
     '| sed ''s/.*=//'' ' ...
     '| sed ''s/,.*/;/'' ' ...
     '| sed ''s/\.[tT][rR][uU][eE]\./Ltrue/'' ' ...
     '| sed ''s/\.[fF][aA][lL][sS][eE]\./Lfalse/'' ' ...
     ]);
if ~isempty(strc)
 eval([ 'parval=' strc ]);
end
1	function [parval] = grepparameter(datafile,str)
2	%parval=grepparameter(DATAFILE,STRING)
3	%
4	%Extracts a parameter value from the input parameter file (e.g. "data") based
5	%on a parameter name. e.g.
6	%>> tauxfile=grepparameter(datafile,'zonalwindfile');
7	%
8	%Written by adcroft@mit.edu, 2001
9	%$header
10
11	Ltrue='true';
12	Lfalse='false';
13
14	parval=[];
15	strc=evalc([ ...
16	'!fgrep -v "#" ' datafile ...
17	'\| grep -i ''' str ''' - ' ...
18	'\| tail -1 ' ...
19	'\| sed ''s/.*=//'' ' ...
20	'\| sed ''s/,.*/;/'' ' ...
21	'\| sed ''s/\.[tT][rR][uU][eE]\./Ltrue/'' ' ...
22	'\| sed ''s/\.[fF][aA][lL][sS][eE]\./Lfalse/'' ' ...
23	]);
24	if ~isempty(strc)
25	eval([ 'parval=' strc ]);
26	end