--- a/plot_wsamp.pl	Thu May 12 10:54:28 2016 -0400
+++ b/plot_wsamp.pl	Thu May 19 09:38:56 2016 -0400
@@ -1,9 +1,9 @@
 #======================================================================
 #                    P L O T _ W S A M P . P L 
 #                    doc: Tue Jul 28 13:21:09 2015
-#                    dlm: Wed Mar 16 16:29:52 2016
+#                    dlm: Wed May 18 19:44:53 2016
 #                    (c) 2015 A.M. Thurnherr
-#                    uE-Info: 71 37 NIL 0 0 72 0 2 4 NIL ofnI
+#                    uE-Info: 43 41 NIL 0 0 72 0 2 4 NIL ofnI
 #======================================================================
 
 # HISTORY:
@@ -13,6 +13,8 @@
 #	Oct 12, 2015: - move main label outside plot area
 #   Jan 26, 2016: - added return on no data to plot
 #	Mar 16, 2016: - adapted to gmt5
+#   May 18, 2016: - added version
+#                 - expunged $realLastGoodEns
 
 require "$ANTS/libGMT.pl";
 
@@ -38,7 +40,7 @@
 
 	my($C) = "-C$WCALC/w.cpt";
 	GMT_psxy("$C -Sr");
-		for ($ens=$firstGoodEns; $ens<=$realLastGoodEns; $ens++) {
+		for ($ens=$firstGoodEns; $ens<=$lastGoodEns; $ens++) {
 		  next unless numberp($LADCP{ENSEMBLE}[$ens]->{CTD_DEPTH});
 		  my(@bindepth) = calc_binDepths($ens);
 		  for ($bin=$LADCP_firstBin-1; $bin<=$LADCP_lastBin-1; $bin++) {
@@ -58,6 +60,9 @@
 	}
 
 	GMT_unitcoords();																	# LABELS
+	GMT_pstext('-F+f9,Helvetica,orange+jTR -N -Gwhite');
+        print(GMT "0.99 0.01 V$VERSION\n");
+
 	GMT_pstext('-F+f14,Helvetica,blue+jTL -N');
 		print(GMT "0.01 -0.06 $P{out_basename} [$P{run_label}]\n");