equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T B I N S |
3 # L I S T B I N S |
4 # doc: Fri Aug 25 15:57:05 2006 |
4 # doc: Fri Aug 25 15:57:05 2006 |
5 # dlm: Mon Jun 19 03:49:12 2017 |
5 # dlm: Sat Dec 23 16:10:11 2017 |
6 # (c) 2006 A.M. Thurnherr |
6 # (c) 2006 A.M. Thurnherr |
7 # uE-Info: 168 1 NIL 0 0 72 0 2 4 NIL ofnI |
7 # uE-Info: 104 28 NIL 0 0 72 0 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Split data file into per-bin time series. |
10 # Split data file into per-bin time series. |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
99 # pcg3 bad (>1 bad beam) |
99 # pcg3 bad (>1 bad beam) |
100 # pcg4 4-beam |
100 # pcg4 4-beam |
101 |
101 |
102 use Getopt::Std; |
102 use Getopt::Std; |
103 |
103 |
104 $ADCP_tools_minVersion = 1.4; |
104 $ADCP_tools_minVersion = 2.1; |
105 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
105 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
106 require "$ADCP_TOOLS/ADCP_tools_lib.pl"; |
106 require "$ADCP_TOOLS/ADCP_tools_lib.pl"; |
107 |
107 |
108 die("Usage: $0 [-r)ange <first_ens,last_ens>] [-R)enumber ensembles] " . |
108 die("Usage: $0 [-r)ange <first_ens,last_ens>] [-R)enumber ensembles] " . |
109 "[-o)utput <redirection[>bin%d.raw]>] " . |
109 "[-o)utput <redirection[>bin%d.raw]>] " . |