profilesMatlabProcessing/ecco_v4/insitu_diags.m

function []=insitu_diags(dirModel,doComp,varargin);
%object:        driver for insitu_misfit and insitu_cost
%inputs:        dirModel is the model run directory     
%               doComp states whether to compute (1) or display (0)

if nargin==3; addToTex={'addToTex',varargin{1}}; else; addToTex={'addToTex',0}; end;

if doComp;
insitu_misfit(dirModel,1);
insitu_cost(dirModel,1);
else;
insitu_misfit(dirModel,0,addToTex);
insitu_cost(dirModel,0,addToTex);
end;

return

dirModel='./apr1alpha_it0/';
listData={'listData','WOD09_XBT*'};
listVar={'listVar','T'};
suffMat={'suffMat','XBT'};
addToTex={'addToTex',1};

insitu_misfit(dirModel,1,listData,listVar,suffMat);
insitu_cost(dirModel,1,listData,listVar,suffMat);

mkdir([dirModel 'tex']);
write2tex([dirModel 'tex/myPlots.tex'],0);
insitu_misfit(dirModel,0,suffMat,addToTex);
insitu_cost(dirModel,0,suffMat,addToTex);
write2tex([dirModel 'tex/myPlots.tex'],4);

1	function []=insitu_diags(dirModel,doComp,varargin);
2	%object: driver for insitu_misfit and insitu_cost
3	%inputs: dirModel is the model run directory
4	% doComp states whether to compute (1) or display (0)
5
6	if nargin==3; addToTex={'addToTex',varargin{1}}; else; addToTex={'addToTex',0}; end;
7
8	if doComp;
9	insitu_misfit(dirModel,1);
10	insitu_cost(dirModel,1);
11	else;
12	insitu_misfit(dirModel,0,addToTex);
13	insitu_cost(dirModel,0,addToTex);
14	end;
15
16	return
17
18	dirModel='./apr1alpha_it0/';
19	listData={'listData','WOD09_XBT*'};
20	listVar={'listVar','T'};
21	suffMat={'suffMat','XBT'};
22	addToTex={'addToTex',1};
23
24	insitu_misfit(dirModel,1,listData,listVar,suffMat);
25	insitu_cost(dirModel,1,listData,listVar,suffMat);
26
27	mkdir([dirModel 'tex']);
28	write2tex([dirModel 'tex/myPlots.tex'],0);
29	insitu_misfit(dirModel,0,suffMat,addToTex);
30	insitu_cost(dirModel,0,suffMat,addToTex);
31	write2tex([dirModel 'tex/myPlots.tex'],4);
32