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

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

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

revision 1.1 by gforget, Wed Feb 10 14:43:47 2010 UTC revision 1.3 by gforget, Thu Apr 10 16:06:03 2014 UTC
# Line 1  Line 1 
1  function r = min(p,varargin)  function r = min(p,varargin)
2    %overloaded gcmfaces min function :
3    %  1) if single gcmfaces argument, then returns the global min over all faces
4    %  2) if two gcmfaces arguments, then returns the min of the two at each point
5    %  3) otherwise calls double min function for each face, passing over the other arguments
6    
7  if nargin==1;  if nargin==1;
8     tmp1=[];     tmp1=[];
# Line 10  if nargin==1; Line 14  if nargin==1;
14     return;     return;
15  end;  end;
16    
17  r=p;  if isa(varargin{1},'gcmfaces');
18       r=p;
19       for iFace=1:r.nFaces;
20          iF=num2str(iFace);
21          eval(['r.f' iF '=min(p.f' iF ',varargin{1}.f' iF ');']);
22       end;
23       return;
24    end;
25    
26    r=p;
27  for iFace=1:r.nFaces;  for iFace=1:r.nFaces;
28     iF=num2str(iFace);     iF=num2str(iFace);
29     eval(['r.f' iF '=min(p.f' iF ',varargin{:});']);     eval(['r.f' iF '=min(p.f' iF ',varargin{:});']);
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22