diff --git a/mkProfile b/mkProfile
--- 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: Wed Sep 21 12:03:14 2011
+#                    dlm: Fri Apr 12 09:24:14 2013
 #                    (c) 2003 A.M. Thurnherr
-#                    uE-Info: 747 30 NIL 0 0 72 2 2 4 NIL ofnI
+#                    uE-Info: 269 72 NIL 0 0 72 2 2 4 NIL ofnI
 #======================================================================
 
 # Make an LADCP Profile by Integrating W (similar to Firing's scan*).
@@ -78,6 +78,7 @@
 #	Sep  9, 2011: - BUG: range calculation for Earth coordinate data included bins without
 #						 valid velocities
 #	Sep 21, 2010: - added %rms_heave_acceleration
+#	Apr 12, 2013: - added -p
 
 # NOTES:
 #	- the battery values are based on transmission voltages (different
@@ -105,13 +106,13 @@
 	"[-s)uppress checkensemble()] " .
 	"[require -4)-beam solutions] " .
 	"[-r)ef-layer <bin|1,bin|6>] [-n) vels <min|2>] " .
-	"[-e)rr-vel <max|0.1>] [-c)orrelation <min>] " .
+	"[-e)rr-vel <max[0.1]] [-c)orrelation <min>] [-p)ct-good <min[100]>] " .
 	"[-m)ax <gap>] " .
 	"[-d)rift <dx,dy>] [-g)ps <start lat,lon/end lat,lon>] " .
 	"[output -f)ields <field[,...]> " .
 	"[-M)agnetic <declination>] [profile -B)ottom <depth>] " .
 	"<RDI file>\n")
-		unless (&Getopts("4AB:F:M:Qd:r:n:e:c:g:f:m:s") && @ARGV == 1);
+		unless (&Getopts("4AB:F:M:Qd:r:n:e:c:g:f:m:sp:") && @ARGV == 1);
 
 $RDI_Coords::minValidVels = 4 if ($opt_4);			# no 3-beam solutions
 
@@ -122,6 +123,7 @@
 $opt_e = 0.1   	unless defined($opt_e);
 $opt_c = 70	   	unless defined($opt_c);
 $opt_m = 120	unless defined($opt_m);
+$opt_p = 100	unless defined($opt_p);
 
 ($minb,$maxb) = split(',',$opt_r);					# reference layer
 die("$0: can't decode -r $opt_r\n") unless defined($maxb);
@@ -264,7 +266,7 @@
 #======================================================================
 
 ($firstgood,$lastgood,$atbottom,$w_gap_time,$zErr,$maxz,$rms_heave_accel) =
-	mk_prof(\%dta,!$opt_s,$opt_F,$minb,$maxb,$opt_c,$opt_e,$opt_m);
+	mk_prof(\%dta,!$opt_s,$opt_F,$minb,$maxb,$opt_c,$opt_e,$opt_m,$opt_p);
 
 unless (($atbottom > $firstgood) && ($lastgood > $atbottom)) {
 	if ($opt_Q) {