profilesMatlabProcessing/ecco_v4/insitu_misfit.m

function []=insitu_misfit(doComp,varargin);
%object:        computes or displays cost function statistics
%input:         doComp states whether to compute & save (1) or load & display (0)
%optional must take the following form {'name',param1,param2,...} Active ones are
%               {'dirData',dirData} is the data directory name ('mat/profiles/output/' by default)
%               {'listData',data1,data2,...} where data1 e.g. is 'argo_indian.nc'
%               {'listVar',var1,var2} where var1 and var2 are 'T' and 'S'
%               {'years',year0,year1} to limit computation to [year0 year1] interval
%               {'dirMat',dirMat} where dirMat is the output directory ('mat/' by default)
%               {'suffMat',suffMat} is the mat file suffix ('all' by default)
%               {'dirTex',dirTex} where dirTex is the tex directory ('tex/' by default)
%               {'nameTex',nameTex} is the tex file name ('myPlots' by default)
%               {'addToTex',addToTex} states whether (1) or not (0 default) to 
%                       augment an ongoing tex file (see write2tex.m, dirTex)
%
%example:        insitu_misfit('./',1,{'listData','argo_in*'});

vecDepth=[[75 125];[250 350];[900 1100]];
vecCaxis=[[3 3 1];[0.5 0.5 0.2]];
%if nargin>6; vecCaxis=varargin{1}; else; vecCaxis=[]; end;

%load paths and grid:
%--------------------
global mygrid; if isempty(mygrid); grid_load('GRID/',5,'compact'); end;

%set more optional paramaters to default values
global myparms; year0=myparms.yearInAve(1); year1=myparms.yearInAve(2);
listData={'argo_*_1992_to_2007*','argo_*_2008_to_2010*',...
          'argo_*_2011_to_2012*','climode_*',...
          'ctd_*','itp_*','seals_*','xbt_*'};
listVar={'T','S'}; 
%shorter test case: listData={'argo_in*'}; listVar={'T'};
dirData='mat/profiles/output/';
dirMat='mat/'; suffMat='_all';
dirTex='tex/'; addToTex=0; nameTex='myPlots';
%set more optional paramaters to user defined values
for ii=1:nargin-1;
   if strcmp(varargin{ii}{1},'listData'); listData={varargin{ii}{2:end}};
   elseif strcmp(varargin{ii}{1},'listVar'); listVar={varargin{ii}{2:end}};
   elseif strcmp(varargin{ii}{1},'years'); year0=varargin{ii}{2}; year1=varargin{ii}{3};
   elseif strcmp(varargin{ii}{1},'dirMat'); dirMat=varargin{ii}{2};
   elseif strcmp(varargin{ii}{1},'suffMat'); suffMat=['_' varargin{ii}{2}];
   elseif strcmp(varargin{ii}{1},'dirTex'); dirTex=varargin{ii}{2};
   elseif strcmp(varargin{ii}{1},'addToTex'); addToTex=varargin{ii}{2};
   elseif strcmp(varargin{ii}{1},'nameTex'); nameTex=varargin{ii}{2};
   elseif strcmp(varargin{ii}{1},'dirData'); dirData=varargin{ii}{2};
   else;
       warning('inputCheck:insitu_misfit',...
           ['unknown option ''' varargin{ii}{1} ''' was ignored']);
   end;
end;

if doComp;

%initialize delaunay triangulation:
gcmfaces_bindata;
%time limits:
date0=datenum(year0,1,1); date1=datenum(year1,12,31);
%number of levels:
nk=size(vecDepth,1);

for vv=1:length(listVar);
    varCur=listVar{vv};
    %get the misfits (here not normalized):
    [MITprof]=MITprof_stats_load(dirData,listData,varCur,1);
    %mask out values that are not in year range:
    ii=find(MITprof.prof_date<date0|MITprof.prof_date>date1);
    MITprof.prof(ii,:)=NaN;
    %misfit maps:
    for kkk=1:size(vecDepth,1);
        kk=find(MITprof.prof_depth>=vecDepth(kkk,1)&MITprof.prof_depth<=vecDepth(kkk,2));
        lon=MITprof.prof_lon; lat=MITprof.prof_lat; obs=nanmean(MITprof.prof(:,kk),2);
        ii=find(~isnan(obs)); lon=lon(ii); lat=lat(ii); obs=obs(ii);
        misfit_map=gcmfaces_bindata(lon,lat,obs);
        eval(['misfit_map_' varCur num2str(kkk) '=misfit_map;']);
    end;
end;

eval(['save ' dirMat 'insitu_misfit' suffMat '.mat misfit_map_* vecDepth  year* listData listVar;']);

else;

if isdir([dirMat 'cost/']); dirMat=[dirMat 'cost/']; end;

eval(['load ' dirMat 'insitu_misfit' suffMat '.mat;']);

nk=size(vecDepth,1);
figureL; 
for vv=1:length(listVar);
    varCur=listVar{vv};
    for kkk=1:size(vecDepth,1);
        eval(['misfit_map=misfit_map_' varCur num2str(kkk) ';']); 
        dep=mean(vecDepth(kkk,:));

        if isempty(vecCaxis); cc=3*sqrt(nanmean(misfit_map.^2)); else; cc=vecCaxis(vv,kkk); end;
        subplot(nk,length(listVar),vv+(kkk-1)*length(listVar));
        m_map_gcmfaces(misfit_map,1,{'myCaxis',[-1 1]*cc});
        title(sprintf('%s misfits at %dm   (%d to %d)',varCur,dep,year0,year1));
    end;
end;

myCaption={'Time mean misfit (model-data) for in situ profiles, ',...
         'at various depths (rows), for T (left; in K) and S (right; in psu).'};
if addToTex; write2tex([dirTex '/' nameTex '.tex'],2,myCaption,gcf); end;

end;


1	gforget	1.6	function []=insitu_misfit(doComp,varargin);
2	gforget	1.1	%object: computes or displays cost function statistics
3	gforget	1.6	%input: doComp states whether to compute & save (1) or load & display (0)
4	gforget	1.1	%optional must take the following form {'name',param1,param2,...} Active ones are
5	gforget	1.6	% {'dirData',dirData} is the data directory name ('mat/profiles/output/' by default)
6	gforget	1.1	% {'listData',data1,data2,...} where data1 e.g. is 'argo_indian.nc'
7			% {'listVar',var1,var2} where var1 and var2 are 'T' and 'S'
8			% {'years',year0,year1} to limit computation to [year0 year1] interval
9	gforget	1.6	% {'dirMat',dirMat} where dirMat is the output directory ('mat/' by default)
10	gforget	1.1	% {'suffMat',suffMat} is the mat file suffix ('all' by default)
11	gforget	1.6	% {'dirTex',dirTex} where dirTex is the tex directory ('tex/' by default)
12			% {'nameTex',nameTex} is the tex file name ('myPlots' by default)
13	gforget	1.1	% {'addToTex',addToTex} states whether (1) or not (0 default) to
14	gforget	1.6	% augment an ongoing tex file (see write2tex.m, dirTex)
15	gforget	1.1	%
16			%example: insitu_misfit('./',1,{'listData','argo_in*'});
17
18			vecDepth=[[75 125];[250 350];[900 1100]];
19			vecCaxis=[[3 3 1];[0.5 0.5 0.2]];
20			%if nargin>6; vecCaxis=varargin{1}; else; vecCaxis=[]; end;
21
22			%load paths and grid:
23			%--------------------
24			global mygrid; if isempty(mygrid); grid_load('GRID/',5,'compact'); end;
25
26			%set more optional paramaters to default values
27	gforget	1.5	global myparms; year0=myparms.yearInAve(1); year1=myparms.yearInAve(2);
28	gforget	1.7	listData={'argo__1992_to_2007','argo__2008_to_2010',...
29			'argo__2011_to_2012','climode_*',...
30			'ctd_','itp_','seals_','xbt_'};
31	gforget	1.2	listVar={'T','S'};
32			%shorter test case: listData={'argo_in*'}; listVar={'T'};
33	gforget	1.6	dirData='mat/profiles/output/';
34			dirMat='mat/'; suffMat='_all';
35			dirTex='tex/'; addToTex=0; nameTex='myPlots';
36	gforget	1.1	%set more optional paramaters to user defined values
37	gforget	1.6	for ii=1:nargin-1;
38	gforget	1.1	if strcmp(varargin{ii}{1},'listData'); listData={varargin{ii}{2:end}};
39			elseif strcmp(varargin{ii}{1},'listVar'); listVar={varargin{ii}{2:end}};
40			elseif strcmp(varargin{ii}{1},'years'); year0=varargin{ii}{2}; year1=varargin{ii}{3};
41	gforget	1.6	elseif strcmp(varargin{ii}{1},'dirMat'); dirMat=varargin{ii}{2};
42	gforget	1.1	elseif strcmp(varargin{ii}{1},'suffMat'); suffMat=['_' varargin{ii}{2}];
43	gforget	1.6	elseif strcmp(varargin{ii}{1},'dirTex'); dirTex=varargin{ii}{2};
44	gforget	1.1	elseif strcmp(varargin{ii}{1},'addToTex'); addToTex=varargin{ii}{2};
45	gforget	1.6	elseif strcmp(varargin{ii}{1},'nameTex'); nameTex=varargin{ii}{2};
46			elseif strcmp(varargin{ii}{1},'dirData'); dirData=varargin{ii}{2};
47	gforget	1.1	else;
48			warning('inputCheck:insitu_misfit',...
49			['unknown option ''' varargin{ii}{1} ''' was ignored']);
50			end;
51			end;
52
53			if doComp;
54
55			%initialize delaunay triangulation:
56			gcmfaces_bindata;
57			%time limits:
58			date0=datenum(year0,1,1); date1=datenum(year1,12,31);
59			%number of levels:
60			nk=size(vecDepth,1);
61
62			for vv=1:length(listVar);
63			varCur=listVar{vv};
64			%get the misfits (here not normalized):
65	gforget	1.6	[MITprof]=MITprof_stats_load(dirData,listData,varCur,1);
66	gforget	1.1	%mask out values that are not in year range:
67			ii=find(MITprof.prof_date<date0\|MITprof.prof_date>date1);
68			MITprof.prof(ii,:)=NaN;
69			%misfit maps:
70			for kkk=1:size(vecDepth,1);
71			kk=find(MITprof.prof_depth>=vecDepth(kkk,1)&MITprof.prof_depth<=vecDepth(kkk,2));
72			lon=MITprof.prof_lon; lat=MITprof.prof_lat; obs=nanmean(MITprof.prof(:,kk),2);
73			ii=find(~isnan(obs)); lon=lon(ii); lat=lat(ii); obs=obs(ii);
74			misfit_map=gcmfaces_bindata(lon,lat,obs);
75			eval(['misfit_map_' varCur num2str(kkk) '=misfit_map;']);
76			end;
77			end;
78
79	gforget	1.6	eval(['save ' dirMat 'insitu_misfit' suffMat '.mat misfit_map_* vecDepth year* listData listVar;']);
80	gforget	1.1
81			else;
82
83	gforget	1.8	if isdir([dirMat 'cost/']); dirMat=[dirMat 'cost/']; end;
84
85	gforget	1.6	eval(['load ' dirMat 'insitu_misfit' suffMat '.mat;']);
86	gforget	1.1
87			nk=size(vecDepth,1);
88	gforget	1.3	figureL;
89	gforget	1.1	for vv=1:length(listVar);
90			varCur=listVar{vv};
91			for kkk=1:size(vecDepth,1);
92			eval(['misfit_map=misfit_map_' varCur num2str(kkk) ';']);
93			dep=mean(vecDepth(kkk,:));
94
95			if isempty(vecCaxis); cc=3*sqrt(nanmean(misfit_map.^2)); else; cc=vecCaxis(vv,kkk); end;
96			subplot(nk,length(listVar),vv+(kkk-1)*length(listVar));
97			m_map_gcmfaces(misfit_map,1,{'myCaxis',[-1 1]*cc});
98			title(sprintf('%s misfits at %dm (%d to %d)',varCur,dep,year0,year1));
99			end;
100			end;
101
102	gforget	1.4	myCaption={'Time mean misfit (model-data) for in situ profiles, ',...
103	gforget	1.5	'at various depths (rows), for T (left; in K) and S (right; in psu).'};
104	gforget	1.6	if addToTex; write2tex([dirTex '/' nameTex '.tex'],2,myCaption,gcf); end;
105	gforget	1.1
106			end;
107
108
109