--- a/listEns
+++ b/listEns
@@ -2,9 +2,9 @@
#======================================================================
# L I S T E N S
# doc: Sat Jan 18 18:41:49 2003
-# dlm: Thu May 31 11:10:51 2018
+# dlm: Thu Feb 13 10:36:50 2020
# (c) 2003 A.M. Thurnherr
-# uE-Info: 62 51 NIL 0 0 72 2 2 4 NIL ofnI
+# uE-Info: 96 54 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================
$synopsis = 'list ensemble summaries (default), dump ensembles (-E), time-average ensembles (-T)';
@@ -60,6 +60,7 @@
# - removed support for multiple input files
# Apr 10, 2018: - added -l)ast bin
# May 31, 2018: - BUG: -A was disabled by default
+# Feb 13, 2020: - added support for $readDataProgress
# Notes:
# - -E/-B outputs data in earth coordinates, unless -b is set also
@@ -92,15 +93,18 @@
"[require min -p)ercent-good <#>]\n\t\t" .
"[keep -b)eam coords (do not transform to earth coordinates)]\n\t" .
"Common Options:\n\t\t" .
+ "[-z print progress dots every 10000 ens\n\t\t" .
"[add -f)ields <[name=]FIELD[,...]>]\n\t\t" .
"[require -4)-beam solutions] [-d)iscard <beam#>]\n\t\t" .
"[-r)ange <first_ens,last_ens>] [-l)ast <bin>]\n\t\t" .
"[in-w)ater ensembles only]\n")
- unless (&getopts("4AB:bd:E:f:i:l:M:p:r:S:T:w") && @ARGV == 1);
+ unless (&getopts('4AB:bd:E:f:i:l:M:p:r:S:T:wz') && @ARGV == 1);
die("$ARGV[0]: no such file\n")
unless (-f $ARGV[0]);
+$global::readDataProgress = 10000 if defined($opt_z);
+
$dump_ens = defined($opt_E) + defined($opt_T);
die("$self: cannot combine -E with -T\n") if ($dump_ens > 1);