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	gforget	1.2	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	gforget	1.1
9	gforget	1.2	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	gforget	1.1
22			if doComp;
23	gforget	1.2	insitu_misfit('',1,subdirData,subdirMat);
24			insitu_cost('',1,subdirData,subdirMat);
25	gforget	1.1	else;
26	gforget	1.2	insitu_misfit('',0,subdirData,subdirMat,addToTex,subdirTex);
27			insitu_cost('',0,subdirData,subdirMat,addToTex,subdirTex);
28	gforget	1.1	end;
29
30			return
31	gforget	1.2	%old example that may or may not work ...
32	gforget	1.1
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