Changeset 246

Show
Ignore:
Timestamp:
12/02/08 10:06:39
Author:
dan
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • scout/trunk/GetLatestData.pl

    r242 r246  
    2323else 
    2424{ 
    25   $Minute = `\\Unix 
    26 Utils\\usr\\local\\wbin\\date %M`; 
     25  $Minute = `\\UnixUtils\\usr\\local\\wbin\\date %M`; 
    2726} 
    2827=cut 

  • scout/trunk/cdl_fixed_point.pl

    r244 r246  
    11541154      $base_units->convert($dest_units,$this_slope,$this_intercept); 
    11551155      #DWR 4/5/2008 
    1156       $sea_surface_northward_current[$i]{'units'} = $units_value; 
     1156      $sea_surface_northward_current[$i]{'units'} = 'm_s-1'; 
    11571157       
    11581158      # we need to loop through the attributes, so find out how many there are 
    …… 
    25822582                                                    'cm_s-1', 
    25832583                                                    $rObsHash ); 
    2584                 $strUnits = ''; 
    2585                 $strUnits = obsKMLSubRoutines::UnitsStringConversion( $sea_surface_northward_current[$i]{'units'}, $XMLControlFile );         
    2586                 if( length( $strUnits ) == 0 ) 
    2587                 { 
     2584                $strUnits = 'cm_s-1'; 
     2585                #$strUnits = obsKMLSubRoutines::UnitsStringConversion( $sea_surface_northward_current[$i]{'units'}, $XMLControlFile );         
     2586                #if( length( $strUnits ) == 0 ) 
     2587                #{ 
    25882588                  #DWR v1.1.0.0 
    25892589                  #Make sure we don't have any unprintable characters.             
    2590                   $strUnits = obsKMLSubRoutines::CleanString( $sea_surface_northward_current[$i]{'units'} );                  
    2591                 } 
     2590                #  $strUnits = obsKMLSubRoutines::CleanString( $sea_surface_northward_current[$i]{'units'} );                  
     2591                #} 
    25922592                obsKMLSubRoutines::KMLAddObsToHash( 'northward_current',  
    25932593                                                    $KMLTimeStamp[$k], 
    2594                                                     $NCurrentDataVal, 
     2594                                                    $NCurrentDataVal * 100.0, #DWR convert to cm_s-1 
     2595                                                    1, 
     2596                                                    $strPlatformID, 
     2597                                                    $Height, 
     2598                                                    $strUnits, 
     2599                                                    $rObsHash ); 
     2600                #$strUnits = $sea_surface_eastward_current[$i]{'units'}; 
     2601                #$strUnits = obsKMLSubRoutines::UnitsStringConversion( $sea_surface_eastward_current[$i]{'units'}, $XMLControlFile );         
     2602                #if( length( $strUnits ) == 0 ) 
     2603                #{ 
     2604                  #Make sure we don't have any unprintable characters.             
     2605                #  $strUnits = obsKMLSubRoutines::CleanString( $sea_surface_eastward_current[$i]{'units'} );                  
     2606                #} 
     2607                obsKMLSubRoutines::KMLAddObsToHash( 'eastward_current',  
     2608                                                    $KMLTimeStamp[$k], 
     2609                                                    $ECurrentDataVal * 100.0, #DWR convert to cm_s-1 
    25952610                                                    1, 
    25962611                                                    $strPlatformID, 
    …… 
    28272842my ($mag,$angle); 
    28282843 
    2829 $mag = sprintf("%d",$scale*sqrt($x*$x+$y*$y)); 
     2844$mag = sprintf("%.2f",$scale*sqrt($x*$x+$y*$y)); 
    28302845#print "$mag\n"; 
    28312846 
    28322847$angle = atan2($y,$x); 
    2833 $angle = sprintf("%d",180/3.1416*$angle); 
     2848$angle = sprintf("%.1f",180/3.1416*$angle); 
    28342849$angle = 90 - $angle; 
    28352850#only return positive degrees