/[MITgcm]/MITgcm_contrib/dfer/matlab_stuff/rdmnc_multi.m
ViewVC logotype

Annotation of /MITgcm_contrib/dfer/matlab_stuff/rdmnc_multi.m

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


Revision 1.1 - (hide annotations) (download)
Mon Feb 15 14:53:44 2010 UTC (15 years, 5 months ago) by dfer
Branch: MAIN
CVS Tags: HEAD
matlab stuff

1 dfer 1.1 function Field = rdmnc_multi(varargin);
2    
3     npath = varargin{1};
4    
5     if npath < 2
6     disp('There cannot be less than 2 paths')
7     return
8     end
9    
10     if length(varargin) < npath+1
11     disp('There should be at least ',num2str(npath),' paths')
12     return
13     end
14    
15     Field = [];
16    
17     disp(['Reading path: ',varargin{2}])
18     Ftmp1 = rdmnc(varargin{2},varargin{npath+2:end});
19     disp(['Reading path: ',varargin{3}])
20     Ftmp2 = rdmnc(varargin{3},varargin{npath+2:end});
21     Field = concatstruct(Ftmp1,Ftmp2);
22    
23     if npath >= 3
24     for i=3:npath
25     disp(['Reading path: ',varargin{i+1}])
26     Ftmp = rdmnc(varargin{i+1},varargin{npath+2:end});
27     Field = concatstruct(Field,Ftmp);
28     end
29     end
30    
31     return

  ViewVC Help
Powered by ViewVC 1.1.22