/[MITgcm]/MITgcm_contrib/gael/profilesMatlabProcessing/ecco_v4/insitu_cost.m
ViewVC logotype

Contents of /MITgcm_contrib/gael/profilesMatlabProcessing/ecco_v4/insitu_cost.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.7 - (show annotations) (download)
Wed Apr 3 14:30:12 2013 UTC (12 years, 3 months ago) by gforget
Branch: MAIN
Changes since 1.6: +66 -3 lines
- add upper ocean temporal distribution of misfits
  ad a function of time and ocean basin.

1 function []=insitu_cost(doComp,varargin);
2 %object: computes or displays cost function statistics
3 %input: doComp states whether to compute & save (1) or load & display (0)
4 %optional must take the following form {'name',param1,param2,...} Active ones are
5 % {'dirData',dirData} is the data subdirectory name ('profiles/output/' by default)
6 % {'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 % {'dirMat',dirMat} where dirMat is the output subdirectory ('mat/' by default)
10 % {'suffMat',suffMat} is the mat file suffix ('all' by default)
11 % {'dirTex',dirTex} where dirTex is the tex directory ('tex/' by default)
12 % {'nameTex',nameTex} is the tex file name ('myPlots' by default)
13 % {'addToTex',addToTex} states whether (1) or not (0 default) to
14 % augment an ongoing tex file (see write2tex.m, dirTex)
15 %
16 %example: insitu_cost('./',1,{'listData','argo_in*'});
17
18 %load paths and grid:
19 %--------------------
20 global mygrid; if isempty(mygrid); grid_load('GRID/',5,'compact'); end;
21
22 %set more optional paramaters to default values
23 global myparms; year0=myparms.yearInAve(1); year1=myparms.yearInAve(2);
24 listData={'argo_*_1992_to_2007*','argo_*_2008_to_2010*',...
25 'argo_*_2011_to_2012*','climode_*',...
26 'ctd_*','itp_*','seals_*','xbt_*'};
27 listVar={'T','S'};
28 listBas={'atlExt','pacExt','indExt','arct'};
29 listBasTxt=''; for bb=1:length(listBas); listBasTxt=[listBasTxt ' ' listBas{bb} '*']; end;
30 %shorter test case: listData={'argo_in*'}; listVar={'T'};
31 dirData='/profiles/output/';
32 dirMat='mat/'; suffMat='_all';
33 dirTex='tex/'; addToTex=0; nameTex='myPlots';
34 %set more optional paramaters to user defined values
35 for ii=1:nargin-1;
36 if strcmp(varargin{ii}{1},'listData'); listData={varargin{ii}{2:end}};
37 elseif strcmp(varargin{ii}{1},'listVar'); listVar={varargin{ii}{2:end}};
38 elseif strcmp(varargin{ii}{1},'years'); year0=varargin{ii}{2}; year1=varargin{ii}{3};
39 elseif strcmp(varargin{ii}{1},'dirMat'); dirMat=varargin{ii}{2};
40 elseif strcmp(varargin{ii}{1},'suffMat'); suffMat=['_' varargin{ii}{2}];
41 elseif strcmp(varargin{ii}{1},'dirTex'); dirTex=varargin{ii}{2};
42 elseif strcmp(varargin{ii}{1},'addToTex'); addToTex=varargin{ii}{2};
43 elseif strcmp(varargin{ii}{1},'nameTex'); nameTex=varargin{ii}{2};
44 elseif strcmp(varargin{ii}{1},'dirData'); dirData=varargin{ii}{2};
45 else;
46 warning('inputCheck:insitu_cost',...
47 ['unknown option ''' varargin{ii}{1} ''' was ignored']);
48 end;
49 end;
50
51 if doComp;
52
53 %time limits:
54 date0=datenum(year0,1,1); date1=datenum(year1,12,31);
55
56 for vv=1:length(listVar);
57 varCur=listVar{vv};
58
59 %get the cost square root:
60 [MITprof]=MITprof_stats_load([dirData],listData,varCur);
61
62 %mask out values that are not in year range:
63 ii=find(MITprof.prof_date<date0|MITprof.prof_date>date1);
64 MITprof.prof(ii,:)=NaN;
65
66 %mean and median:
67 costCur=[nanmean(MITprof.prof(:).^2) nanmedian(MITprof.prof(:).^2)];
68 fprintf('mean cost for %s: %0.3g (median: %0.3g) \n',varCur,costCur);
69 eval(['costAve' varCur '.mean=costCur(1);']);
70 eval(['costAve' varCur '.median=costCur(2);']);
71
72 %depth/time mean cost:
73 tmp_date=(MITprof.prof_date-date0)/365;
74 % [x,y,z,n]=MITprof_stats(MITprof.prof_depth,MITprof.prof_depth,...
75 [x,y,z,n]=MITprof_stats(MITprof.prof_depth,[0:200:1000 1500:500:6000],...
76 tmp_date,[0:1/4:1+(year1-year0)],'mean',MITprof.prof.^2);
77 z(n==0)=NaN; n(n==0)=NaN;
78 eval(['depthTimeCost' varCur '.x=x;']); eval(['depthTimeCost' varCur '.y=y;']);
79 eval(['depthTimeCost' varCur '.z=z;']); eval(['depthTimeCost' varCur '.n=n;']);
80
81 %latitudinal distribution:
82 [x,y,z,n]=MITprof_stats(MITprof.prof_lat,[-90:5:90],MITprof.prof,[-5:0.25:5]);
83 z(n==0)=NaN; n(n==0)=NaN;
84 eval(['misfitDistrib' varCur '.x=x;']); eval(['misfitDistrib' varCur '.y=y;']);
85 eval(['misfitDistrib' varCur '.z=z;']); eval(['misfitDistrib' varCur '.n=n;']);
86
87 %upper ocean temporal distribution
88 for bb=1:length(listBas);
89 for ll=1:3;
90 bbb=listBas{bb};
91 if ll==1; Lmin=-90; Lmax=-25; txt=[bbb '_90S25S_misDis' varCur];
92 elseif ll==2; Lmin=-25; Lmax=25; txt=[bbb '_25S25N_misDis' varCur];
93 elseif ll==3; Lmin=25; Lmax=90; txt=[bbb '_25N90N_misDis' varCur];
94 end;
95 msk=v4_basin(bbb);
96 msk(mygrid.YC<Lmin|mygrid.YC>Lmax)=0;
97 %
98 msk=convert2array(msk);
99 MITprof.prof_msk=msk(MITprof.prof_point);
100 MITprofSub=MITprof_subset(MITprof,'msk',1,'depth',[0 700]);
101 %
102 tmp_date=(MITprofSub.prof_date-date0)/365;
103 [x,y,z,n]=MITprof_stats(tmp_date,[0:1/4:1+(year1-year0)],MITprofSub.prof,[-5:0.25:5]);
104 z(n==0)=NaN; n(n==0)=NaN;
105 eval([txt '.x=x;']); eval([txt '.y=y;']);
106 eval([txt '.z=z;']); eval([txt '.n=n;']);
107 end;
108 end;
109
110 end;
111
112 eval(['save ' dirMat 'insitu_cost' suffMat '.mat costAve* misfitDistrib* depthTimeCost* year* ' ...
113 'listData listVar listBas ' listBasTxt ';']);
114
115 else;%display result
116
117 eval(['load ' dirMat 'insitu_cost' suffMat '.mat;']);
118
119 figureL;
120
121 for vv=1:length(listVar);
122 varCur=listVar{vv};
123
124 eval(['costCur=[costAve' varCur '.mean costAve' varCur '.median];']);
125
126 eval(['x=depthTimeCost' varCur '.x;']); eval(['y=depthTimeCost' varCur '.y;']);
127 eval(['z=depthTimeCost' varCur '.z;']); eval(['n=depthTimeCost' varCur '.n;']);
128 z(n<1e2)=NaN; y=y+year0-1;
129 subplot(2,length(listVar),vv); depthStretchPlot('pcolor',{y,x,z},[0:200:1000 1500:500:6000],[0 1000 4000]);
130 caxis([0 8]); shading flat; colorbar; ylabel('depth (in m)');
131 title(sprintf('mean cost for %s: %0.3g (median: %0.3g)',varCur,costCur));
132
133 %latitudinal distribution:
134 eval(['x=misfitDistrib' varCur '.x;']); eval(['y=misfitDistrib' varCur '.y;']);
135 eval(['z=misfitDistrib' varCur '.z;']); eval(['n=misfitDistrib' varCur '.n;']);
136 tmp1=(nansum(n,2)>1e4)*ones(1,size(n,2)); z(tmp1==0)=NaN;
137 subplot(2,length(listVar),vv+length(listVar)); contourf(x,y,z,[0:0.05:0.5]); grid on;
138 caxis([0 0.5]); colorbar; ylabel('normalized misfit'); xlabel('latitude'); title('pdf');
139
140 end;
141
142 myCaption={'Cost function (top) for in situ profiles, as a function of depth and time. ',...
143 'Distribution of normalized misfits (bottom) as a function of latitude. For T (left) and S (right).'};
144 if addToTex; write2tex([dirTex '/' nameTex '.tex'],2,myCaption,gcf); end;
145
146 ii=0;
147 ii=ii+1; listPanels(ii).bas='atlExt'; listPanels(ii).ll=3;
148 ii=ii+1; listPanels(ii).bas='pacExt'; listPanels(ii).ll=3;
149 ii=ii+1; listPanels(ii).bas='arct'; listPanels(ii).ll=3;
150 ii=ii+1; listPanels(ii).bas='atlExt'; listPanels(ii).ll=2;
151 ii=ii+1; listPanels(ii).bas='pacExt'; listPanels(ii).ll=2;
152 ii=ii+1; listPanels(ii).bas='indExt'; listPanels(ii).ll=2;
153 ii=ii+1; listPanels(ii).bas='atlExt'; listPanels(ii).ll=1;
154 ii=ii+1; listPanels(ii).bas='pacExt'; listPanels(ii).ll=1;
155 ii=ii+1; listPanels(ii).bas='indExt'; listPanels(ii).ll=1;
156
157 for vv=1:length(listVar);
158 varCur=listVar{vv};
159 figureL;
160 for ii=1:9;
161 bbb=listPanels(ii).bas; ll=listPanels(ii).ll;
162 if ll==1; Lmin=-90; Lmax=-25; txt=[bbb '_90S25S_misDis' varCur];
163 elseif ll==2; Lmin=-25; Lmax=25; txt=[bbb '_25S25N_misDis' varCur];
164 elseif ll==3; Lmin=25; Lmax=90; txt=[bbb '_25N90N_misDis' varCur];
165 end;
166
167 eval(['x=' txt '.x;']); eval(['y=' txt '.y;']);
168 eval(['z=' txt '.z;']); eval(['n=' txt '.n;']);
169 x=x+year0-1;
170 tmp1=(nansum(n,2)>1e4)*ones(1,size(n,2)); z(tmp1==0)=NaN;
171 subplot(3,3,ii); contourf(x,y,z,[0:0.05:0.5]); grid on;
172 caxis([0 0.5]); colorbar; title(txt,'Interpreter','none');
173 %title([txt ', normalized misfit pdf'],'Interpreter','none');
174 if mod(ii,3)==1; ylabel('normalized misfit'); end;
175 %if ii<=6; set(gca,'XTick',[]); end;
176 end;
177
178 myCaption={'Distribution of normalized misfits per basin (panel) as ',...
179 'a function of latitude, for ',varCur};
180 if addToTex; write2tex([dirTex '/' nameTex '.tex'],2,myCaption,gcf); end;
181
182 end;
183
184 end;
185
186

  ViewVC Help
Powered by ViewVC 1.1.22