/[MITgcm]/MITgcm_contrib/gael/matlab_class/@gcmfaces/median.m
ViewVC logotype

Diff of /MITgcm_contrib/gael/matlab_class/@gcmfaces/median.m

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

revision 1.2 by gforget, Thu Oct 20 20:57:01 2011 UTC revision 1.3 by gforget, Mon Feb 8 13:19:21 2016 UTC
# Line 1  Line 1 
1  function r = median(p,varargin)  function r = median(p,varargin)
2    % MEDIAN(p,varargin)
3    %
4  %overloaded gcmfaces median function :  %overloaded gcmfaces median function :
5  %  1) if single gcmfaces argument, then returns the global median over all faces  %  1) if single gcmfaces argument, then returns the global median over all faces
6  %  2) if more than one argument, then simply calls double median function for  %  2) if more than one argument, then simply calls double median function for
# Line 14  if nargin==1; Line 16  if nargin==1;
16     return;     return;
17  end;  end;
18    
19  r=p;  if varargin{1}>0;
20      r=p;
21  for iFace=1:r.nFaces;    for iFace=1:r.nFaces;
22     iF=num2str(iFace);       iF=num2str(iFace);
23     eval(['r.f' iF '=median(p.f' iF ',varargin{:});']);       eval(['r.f' iF '=median(p.f' iF ',varargin{:});']);
24      end;
25    else;
26      tmp1=convert2gcmfaces(p);
27      [n1,n2,n3,n4]=size(tmp1);
28      tmp1=reshape(tmp1,n1*n2,n3,n4);
29      r=median(tmp1,1);
30  end;  end;
31    
32    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22