LADCPproc
changeset 14 e22f4b440407
parent 13 b2a581b79645
child 16 ff157f4445ce
--- a/LADCPproc
+++ b/LADCPproc
@@ -2,9 +2,9 @@
 #======================================================================
 #                    L A D C P P R O C 
 #                    doc: Thu Sep 16 20:36:10 2010
-#                    dlm: Thu May 17 07:27:41 2012
+#                    dlm: Fri May 18 19:15:37 2012
 #                    (c) 2010 A.M. Thurnherr
-#                    uE-Info: 363 57 NIL 0 0 72 10 2 4 NIL ofnI
+#                    uE-Info: 75 67 NIL 0 0 72 10 2 4 NIL ofnI
 #======================================================================
 
 # NOTES:
@@ -72,6 +72,7 @@
 #	May 17, 2012: - significantly relaxed profile-range consistency check (from 20% to 50%)
 #					which is required for Dan Torres' shallow casts
 #				  - added version info
+#	May 18, 2012: - reduced "implausibly short cast" threshold to 5 min
 
 ($ANTS)    = (`which ANTSlib` =~ m{^(.*)/[^/]*$});
 ($PERL_TOOLS) = (`which mkProfile` =~ m{^(.*)/[^/]*$});
@@ -332,7 +333,7 @@
 my($cast_duration) = $LADCP{ENSEMBLE}[$LADCP_end]->{UNIX_TIME} -
                      $LADCP{ENSEMBLE}[$LADCP_start]->{UNIX_TIME};
 croak("$0: implausibly short cast ($cast_duration seconds)\n")
-	unless ($cast_duration > 600);
+	unless ($cast_duration > 300);
 $LADCP{MEAN_DT} = $cast_duration / ($LADCP_end-$LADCP_start-1);
 
 if ($opt_d) {