listEns
changeset 1 a3b6a908dec5
parent 0 229a0d72d2ab
child 5 29faa9e6226c
equal deleted inserted replaced
0:229a0d72d2ab 1:a3b6a908dec5
     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 Jul 30 17:42:09 2009
     5 #                    dlm: Sun Aug 15 10:29:12 2010
     6 #                    (c) 2003 A.M. Thurnherr
     6 #                    (c) 2003 A.M. Thurnherr
     7 #                    uE-Info: 247 47 NIL 0 0 72 2 2 4 NIL ofnI
     7 #                    uE-Info: 34 35 NIL 0 0 72 2 2 4 NIL ofnI
     8 #======================================================================
     8 #======================================================================
     9 
     9 
    10 # Print useful info from the ensemble list or dump ensembles to
    10 # Print useful info from the ensemble list or dump ensembles to
    11 # separate files.
    11 # separate files.
    12 
    12 
    29 #				  - BUG: -f fields did not allow array indices
    29 #				  - BUG: -f fields did not allow array indices
    30 #				  - added in-w)ater data only
    30 #				  - added in-w)ater data only
    31 #				  - restructured for simplicity
    31 #				  - restructured for simplicity
    32 #	Mar  2, 2009: - added # of valid bin-1 vels to non-ANTS output
    32 #	Mar  2, 2009: - added # of valid bin-1 vels to non-ANTS output
    33 #	Jul 30, 2009: - NaN => nan
    33 #	Jul 30, 2009: - NaN => nan
       
    34 #	Aug 15, 2010: - BUG: usage typo
    34 
    35 
    35 # Notes:
    36 # Notes:
    36 #	- -E outputs data in earth coordinates
    37 #	- -E outputs data in earth coordinates
    37 #	- -E output is always in ANTS format, ignoring -A
    38 #	- -E output is always in ANTS format, ignoring -A
    38 #	- no soundspeed correction
    39 #	- no soundspeed correction
    43 require "$1RDI_Coords.pl";
    44 require "$1RDI_Coords.pl";
    44 
    45 
    45 die("Usage: $0 [-A)nts] [-Q)uiet (errcheck only)] " .
    46 die("Usage: $0 [-A)nts] [-Q)uiet (errcheck only)] " .
    46 			  "[-f)ields <[name=]FIELD[,...]>] " .
    47 			  "[-f)ields <[name=]FIELD[,...]>] " .
    47 			  "[write -E)nsemples <pref> [-M)agnetic <declination>] [min -p)ercent-good <#>]] " .
    48 			  "[write -E)nsemples <pref> [-M)agnetic <declination>] [min -p)ercent-good <#>]] " .
    48 			  "[-r)ange <first_ens,last_ens>] [in-w)ater ensembles only]" .
    49 			  "[-r)ange <first_ens,last_ens>] [in-w)ater ensembles only] " .
    49 			  "<RDI file...>\n")
    50 			  "<RDI file...>\n")
    50 	unless (&Getopts("AE:f:M:p:Qr:w") && $#ARGV >= 0);
    51 	unless (&Getopts("AE:f:M:p:Qr:w") && $#ARGV >= 0);
    51 
    52 
    52 print(STDERR "WARNING: magnetic declination not set!\n")
    53 print(STDERR "WARNING: magnetic declination not set!\n")
    53 	if defined($opt_E) && !defined($opt_M);
    54 	if defined($opt_E) && !defined($opt_M);