1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # S P L I T R D I |
3 # S P L I T R D I |
4 # doc: Sat Aug 21 22:20:27 2010 |
4 # doc: Sat Aug 21 22:20:27 2010 |
5 # dlm: Fri Jun 24 11:30:06 2011 |
5 # dlm: Thu Feb 13 14:42:02 2014 |
6 # (c) 2010 A.M. Thurnherr |
6 # (c) 2010 A.M. Thurnherr |
7 # uE-Info: 27 68 NIL 0 0 72 2 2 4 NIL ofnI |
7 # uE-Info: 19 0 NIL 0 0 72 2 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # split RDI files based on list of ensemble numbers (e.g. from yoyo -t) |
10 # split RDI files based on list of ensemble numbers (e.g. from yoyo -t) |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
13 # Aug 21, 2010: - created |
13 # Aug 21, 2010: - created |
14 # Jun 24, 2011: - replaced -b, -n by -o |
14 # Jun 24, 2011: - replaced -b, -n by -o |
|
15 # Feb 13, 2014: - updated doc |
15 |
16 |
16 # NOTES: |
17 # NOTES: |
17 # - it is assumed that the input file begins with ensemble #1 |
18 # - it is assumed that the input file begins with ensemble #1 |
18 # - input file extension 000 is assumed |
19 # - turning-point ensembles are written to preceding profile, |
19 # - turning-point ensembles are written to preceding profile, |
20 # for compatibility with [yoyo] |
20 # for compatibility with [yoyo] |
|
21 |
21 |
22 # FILE NAME CONVENTION: |
22 # FILE NAME CONVENTION: |
23 # - in order to assign individual yoyo casts numerical station numbers, |
23 # - in order to assign individual yoyo casts numerical station numbers, |
24 # by default, the yoyo cast number is inserted after the station number |
24 # by default, the yoyo cast number is inserted after the station number |
25 |
25 |
26 # EXAMPLE: |
26 # EXAMPLES: |
27 # splitRDI 017DL000.000 `mkProfile 017DL000.000 | yoyo -QFens -ut` |
27 # splitRDI 017DL000.000 `mkProfile 017DL000.000 | yoyo -QFens -ut` |
28 |
28 |
29 $0 =~ m{(.*/)[^/]+}; |
29 $0 =~ m{(.*/)[^/]+}; |
30 require "$1RDI_BB_Read.pl"; |
30 require "$1RDI_BB_Read.pl"; |
31 use Getopt::Std; |
31 use Getopt::Std; |
32 |
32 |