high_res_cube/eddy_flux/sq.m

% sq(A)  is similar to squeeze(A) except that elements =0 are set to NaN
%
% sq(A)             0   -> NaN
% sq(A,val1)       val1 -> NaN
% sq(A,val1,val2)  val1 -> val2

function [A] = sq(B,varargin);
A=squeeze(B);
if nargin>=2
 nodata=varargin{1};
else
 nodata=0;
end
if nargin==3
 newval=varargin{2};
else
 newval=NaN;
end
%A(find(A==nodata))=A(find(A==nodata))*NaN;
A(find(A==nodata))=newval;
1	edhill	1.1	% sq(A) is similar to squeeze(A) except that elements =0 are set to NaN
2			%
3			% sq(A) 0 -> NaN
4			% sq(A,val1) val1 -> NaN
5			% sq(A,val1,val2) val1 -> val2
6
7			function [A] = sq(B,varargin);
8			A=squeeze(B);
9			if nargin>=2
10			nodata=varargin{1};
11			else
12			nodata=0;
13			end
14			if nargin==3
15			newval=varargin{2};
16			else
17			newval=NaN;
18			end
19			%A(find(A==nodata))=A(find(A==nodata))*NaN;
20			A(find(A==nodata))=newval;