source: issm/trunk/src/m/utils/Exp/expsplit.m@ 8726

Last change on this file since 8726 was 8726, checked in by Eric.Larour, 14 years ago

New exp rotuines.
Fixed loadmodel to include planet class.

File size: 753 bytes
Line 
1function expsplit(domainoutline)
2%EXPSPLIT - split exp file into sub-contours
3%
4% This routine reads in a domain outline file (Argus format) and plots all the contours
5% This will create as many files there are contours in the domain, each file will be postfix with _i
6% where i is the contour name.
7%
8% Usage:
9% expsplit(domainoutline)
10%
11% Example:
12% expsplit('Domain.exp');
13%
14% See also EXPMASTER, EXPDOC
15
16%check nargin
17if ~nargin | nargin>1
18 help expsplit
19 error('expsplit error message: bad usage');
20end
21
22[path,root,ext]=fileparts(domainoutline);
23
24%Read file:
25domains=expread(domainoutline,1);
26
27%split and write contours:
28for i=1:length(domains),
29 subdomain=domains(i);
30 expwrite(subdomain,[root '_' num2str(i) ext]);
31end
Note: See TracBrowser for help on using the repository browser.