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