defaults.pl
changeset 51 0f6d9e64cc4f
parent 49 5006e9158207
child 54 828e5466391b
equal deleted inserted replaced
50:84914596c635 51:0f6d9e64cc4f
     1 #======================================================================
     1 #======================================================================
     2 #                    D E F A U L T S . P L 
     2 #                    D E F A U L T S . P L 
     3 #                    doc: Tue Oct 11 17:11:21 2011
     3 #                    doc: Tue Oct 11 17:11:21 2011
     4 #                    dlm: Wed May  2 14:11:50 2018
     4 #                    dlm: Wed Apr 17 11:30:31 2019
     5 #                    (c) 2011 A.M. Thurnherr
     5 #                    (c) 2011 A.M. Thurnherr
     6 #                    uE-Info: 308 44 NIL 0 0 72 0 2 4 NIL ofnI
     6 #                    uE-Info: 343 41 NIL 0 0 72 0 2 4 NIL ofnI
     7 #======================================================================
     7 #======================================================================
     8 
     8 
     9 # HISTORY:
     9 # HISTORY:
    10 #	Oct 11, 2011: - created
    10 #	Oct 11, 2011: - created
    11 #	Oct 12, 2011: - added $processing_param_file
    11 #	Oct 12, 2011: - added $processing_param_file
   330 # S4P profile #106 where the CTD rosette was dragged quickly during
   330 # S4P profile #106 where the CTD rosette was dragged quickly during
   331 # the latter part of the upcast. Of course, it is possible that the
   331 # the latter part of the upcast. Of course, it is possible that the
   332 # differnces between the UL and DL data could be due to tilt-
   332 # differnces between the UL and DL data could be due to tilt-
   333 # sensor differences, rather than due to instrument type.
   333 # sensor differences, rather than due to instrument type.
   334 
   334 
       
   335 $max_hspeed_300kHz = 0.55; # m/s
       
   336 $max_hspeed_150kHz = 0.35; # m/s
       
   337 
   335 sub max_hspeed()
   338 sub max_hspeed()
   336 {
   339 {
   337 	if (abs($LADCP{BEAM_FREQUENCY}-300) <= 25) {		# 300kHz Workhorse
   340 	if (abs($LADCP{BEAM_FREQUENCY}-300) <= 25) {		# 300kHz Workhorse
   338 		$max_hspeed = 0.55;	# meters/second
   341 		$max_hspeed = $max_hspeed_300kHz;
   339 	} elsif (abs($LADCP{BEAM_FREQUENCY}-150) <= 25) {	# 150kHz Workhorse
   342 	} elsif (abs($LADCP{BEAM_FREQUENCY}-150) <= 25) {	# 150kHz Workhorse
   340 		$max_hspeed = 0.35;	# meters/second
   343 		$max_hspeed = $max_hspeed_150kHz;
   341 	} else {
   344 	} else {
   342 		warning(2,"unknown horizontal speed limit for this instrument frequency ($LADCP{BEAM_FREQUENCY} kHz)\n");
   345 		warning(2,"unknown horizontal speed limit for this instrument frequency ($LADCP{BEAM_FREQUENCY} kHz)\n");
   343 		$max_hspeed = 9e99;
   346 		$max_hspeed = 9e99;
   344 	}
   347 	}
   345 }
   348 }