profilesMatlabProcessing/ecco_v4/insitu_diags.m

function []=insitu_diags(dirModel,dirMat,doComp,dirTex);
%object:     driver for insitu_misfit and insitu_cost
%inputs:     dirModel is the model run directory     
%            dirMat is the directory where diagnozed .mat files will be saved
%                     -> set it to '' to use the default [dirModel 'mat/']
%            doComp states whether to compute (1) or display (0)
%            dirTex is the directory where tex and fig files will be created

if dirMat(1)~='/'; dirMat=[pwd '/' dirMat]; end; %make full path
subdirMat={'subdirMat',[dirMat '/']};

subdirData={'subdirData',[dirMat '/profiles/output/']};

if isempty(who('dirTex'));
  addToTex={'addToTex',0}; subdirTex={'subdirTex',''};
else;
  if ~ischar(dirTex); error('mis-specified dirTex'); end;
  if dirTex(1)~='/'; dirTex=[pwd '/' dirTex]; end; %make full path
  addToTex={'addToTex',1}; subdirTex={'subdirTex',[dirTex '/']};
end;

if doComp;
insitu_misfit('',1,subdirData,subdirMat);
insitu_cost('',1,subdirData,subdirMat);
else;
insitu_misfit('',0,subdirData,subdirMat,addToTex,subdirTex);
insitu_cost('',0,subdirData,subdirMat,addToTex,subdirTex);
end;

return
%old example that may or may not work ...

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,dirMat,doComp,dirTex);
2	%object: driver for insitu_misfit and insitu_cost
3	%inputs: dirModel is the model run directory
4	% dirMat is the directory where diagnozed .mat files will be saved
5	% -> set it to '' to use the default [dirModel 'mat/']
6	% doComp states whether to compute (1) or display (0)
7	% dirTex is the directory where tex and fig files will be created
8
9	if dirMat(1)~='/'; dirMat=[pwd '/' dirMat]; end; %make full path
10	subdirMat={'subdirMat',[dirMat '/']};
11
12	subdirData={'subdirData',[dirMat '/profiles/output/']};
13
14	if isempty(who('dirTex'));
15	addToTex={'addToTex',0}; subdirTex={'subdirTex',''};
16	else;
17	if ~ischar(dirTex); error('mis-specified dirTex'); end;
18	if dirTex(1)~='/'; dirTex=[pwd '/' dirTex]; end; %make full path
19	addToTex={'addToTex',1}; subdirTex={'subdirTex',[dirTex '/']};
20	end;
21
22	if doComp;
23	insitu_misfit('',1,subdirData,subdirMat);
24	insitu_cost('',1,subdirData,subdirMat);
25	else;
26	insitu_misfit('',0,subdirData,subdirMat,addToTex,subdirTex);
27	insitu_cost('',0,subdirData,subdirMat,addToTex,subdirTex);
28	end;
29
30	return
31	%old example that may or may not work ...
32
33	dirModel='./apr1alpha_it0/';
34	listData={'listData','WOD09_XBT*'};
35	listVar={'listVar','T'};
36	suffMat={'suffMat','XBT'};
37	addToTex={'addToTex',1};
38
39	insitu_misfit(dirModel,1,listData,listVar,suffMat);
40	insitu_cost(dirModel,1,listData,listVar,suffMat);
41
42	mkdir([dirModel 'tex']);
43	write2tex([dirModel 'tex/myPlots.tex'],0);
44	insitu_misfit(dirModel,0,suffMat,addToTex);
45	insitu_cost(dirModel,0,suffMat,addToTex);
46	write2tex([dirModel 'tex/myPlots.tex'],4);
47