--- a/mkProfile
+++ b/mkProfile
@@ -2,9 +2,9 @@
#======================================================================
# M K P R O F I L E
# doc: Sun Jan 19 18:55:26 2003
-# dlm: Mon Sep 12 14:02:24 2016
+# dlm: Fri Oct 13 13:39:55 2017
# (c) 2003 A.M. Thurnherr
-# uE-Info: 94 26 NIL 0 0 72 0 2 4 NIL ofnI
+# uE-Info: 230 37 NIL 0 0 72 0 2 4 NIL ofnI
#======================================================================
# Make an LADCP Profile by Integrating W (similar to Firing's scan*).
@@ -92,6 +92,7 @@
# Mar 17, 2015: - adapted to new Getopt library
# - removed warning
# Sep 12, 2016: - added %PD0_file
+# Oct 13, 2017: - added instrument orientation
# NOTES:
# - the battery values are based on transmission voltages (different
@@ -226,6 +227,9 @@
print(STDERR "WARNING: $0 LOW TRANSMIT POWER!\n");
}
+printf(STDERR "ADCP : %s (s/n %d) %s\n",
+ $dta{INSTRUMENT_TYPE},$dta{SERIAL_NUMBER},
+ $dta{ENSEMBLE}[0]->{XDUCER_FACING_UP} ? 'UL' : 'DL');
printf(STDERR "# of ensembles : %d\n",scalar(@{$dta{ENSEMBLE}}));
my($sdt1,$sdt2,$ndt);