1 |
function []=insitu_diags(dirModel,doComp,varargin); |
function []=insitu_diags(dirModel,dirMat,doComp,dirTex); |
2 |
%object: driver for insitu_misfit and insitu_cost |
%object: driver for insitu_misfit and insitu_cost |
3 |
%inputs: dirModel is the model run directory |
%inputs: dirModel is the model run directory |
4 |
% doComp states whether to compute (1) or display (0) |
% 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 nargin==3; addToTex={'addToTex',varargin{1}}; else; addToTex={'addToTex',0}; end; |
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; |
if doComp; |
23 |
insitu_misfit(dirModel,1); |
insitu_misfit('',1,subdirData,subdirMat); |
24 |
insitu_cost(dirModel,1); |
insitu_cost('',1,subdirData,subdirMat); |
25 |
else; |
else; |
26 |
insitu_misfit(dirModel,0,addToTex); |
insitu_misfit('',0,subdirData,subdirMat,addToTex,subdirTex); |
27 |
insitu_cost(dirModel,0,addToTex); |
insitu_cost('',0,subdirData,subdirMat,addToTex,subdirTex); |
28 |
end; |
end; |
29 |
|
|
30 |
return |
return |
31 |
|
%old example that may or may not work ... |
32 |
|
|
33 |
dirModel='./apr1alpha_it0/'; |
dirModel='./apr1alpha_it0/'; |
34 |
listData={'listData','WOD09_XBT*'}; |
listData={'listData','WOD09_XBT*'}; |