1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T E N S |
3 # L I S T E N S |
4 # doc: Sat Jan 18 18:41:49 2003 |
4 # doc: Sat Jan 18 18:41:49 2003 |
5 # dlm: Thu May 31 11:10:51 2018 |
5 # dlm: Thu Feb 13 10:36:50 2020 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 62 51 NIL 0 0 72 2 2 4 NIL ofnI |
7 # uE-Info: 96 54 NIL 0 0 72 2 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 $synopsis = 'list ensemble summaries (default), dump ensembles (-E), time-average ensembles (-T)'; |
10 $synopsis = 'list ensemble summaries (default), dump ensembles (-E), time-average ensembles (-T)'; |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
58 # - removed -B and an BT data (current version did not treat beam-coord BT data correctly) |
58 # - removed -B and an BT data (current version did not treat beam-coord BT data correctly) |
59 # Apr 4, 2018: - added support for first_ens and last_ens in [RDI_PD0_IO.pl] |
59 # Apr 4, 2018: - added support for first_ens and last_ens in [RDI_PD0_IO.pl] |
60 # - removed support for multiple input files |
60 # - removed support for multiple input files |
61 # Apr 10, 2018: - added -l)ast bin |
61 # Apr 10, 2018: - added -l)ast bin |
62 # May 31, 2018: - BUG: -A was disabled by default |
62 # May 31, 2018: - BUG: -A was disabled by default |
|
63 # Feb 13, 2020: - added support for $readDataProgress |
63 |
64 |
64 # Notes: |
65 # Notes: |
65 # - -E/-B outputs data in earth coordinates, unless -b is set also |
66 # - -E/-B outputs data in earth coordinates, unless -b is set also |
66 # - -E/-T output is always in ANTS format |
67 # - -E/-T output is always in ANTS format |
67 |
68 |
90 "[-M)agnetic <declination>]\n\t\t" . |
91 "[-M)agnetic <declination>]\n\t\t" . |
91 "[-S)oundspeed correction <salin|*,temp|*,depth|*>\n\t\t" . |
92 "[-S)oundspeed correction <salin|*,temp|*,depth|*>\n\t\t" . |
92 "[require min -p)ercent-good <#>]\n\t\t" . |
93 "[require min -p)ercent-good <#>]\n\t\t" . |
93 "[keep -b)eam coords (do not transform to earth coordinates)]\n\t" . |
94 "[keep -b)eam coords (do not transform to earth coordinates)]\n\t" . |
94 "Common Options:\n\t\t" . |
95 "Common Options:\n\t\t" . |
|
96 "[-z print progress dots every 10000 ens\n\t\t" . |
95 "[add -f)ields <[name=]FIELD[,...]>]\n\t\t" . |
97 "[add -f)ields <[name=]FIELD[,...]>]\n\t\t" . |
96 "[require -4)-beam solutions] [-d)iscard <beam#>]\n\t\t" . |
98 "[require -4)-beam solutions] [-d)iscard <beam#>]\n\t\t" . |
97 "[-r)ange <first_ens,last_ens>] [-l)ast <bin>]\n\t\t" . |
99 "[-r)ange <first_ens,last_ens>] [-l)ast <bin>]\n\t\t" . |
98 "[in-w)ater ensembles only]\n") |
100 "[in-w)ater ensembles only]\n") |
99 unless (&getopts("4AB:bd:E:f:i:l:M:p:r:S:T:w") && @ARGV == 1); |
101 unless (&getopts('4AB:bd:E:f:i:l:M:p:r:S:T:wz') && @ARGV == 1); |
100 |
102 |
101 die("$ARGV[0]: no such file\n") |
103 die("$ARGV[0]: no such file\n") |
102 unless (-f $ARGV[0]); |
104 unless (-f $ARGV[0]); |
|
105 |
|
106 $global::readDataProgress = 10000 if defined($opt_z); |
103 |
107 |
104 $dump_ens = defined($opt_E) + defined($opt_T); |
108 $dump_ens = defined($opt_E) + defined($opt_T); |
105 die("$self: cannot combine -E with -T\n") if ($dump_ens > 1); |
109 die("$self: cannot combine -E with -T\n") if ($dump_ens > 1); |
106 |
110 |
107 if (defined($opt_S)) { |
111 if (defined($opt_S)) { |