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	adcroft	1.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