Changeset 186

Timestamp:

04/16/08 13:14:30

Author:

dan

Message:

--

Files:

• scout/trunk/cdl_fixed_point.pl (modified) (20 diffs)

scout/trunk/cdl_fixed_point.pl

@@ -397 +397 @@
-    || die "ABORT! Invalid units for $time_var{'var_name'}.\n";
-  
+  my @KMLTimeStamp;
-  # format the time values for database insertion (no timezone right now)
-  for my $i (0..$#time_values) {
@@ -406 +407 @@
-      .sprintf("%02d",$base_month).'-'
-      .sprintf("%02d",$base_day).' '
+      .sprintf("%02d",$base_hour).':'
+      .sprintf("%02d",$base_minute).':'
+      .sprintf("%02d",$base_second);
+     #DWR 4/16/2008
+     #KML tag <TimeStamp><when> requires the date to be formatted in a YYYY-MM-DDThh:mm:ss format
+     $KMLTimeStamp[$i] = $base_year.'-'
+      .sprintf("%02d",$base_month).'-'
+      .sprintf("%02d",$base_day).'T'
-      .sprintf("%02d",$base_hour).':'
-      .sprintf("%02d",$base_minute).':'
@@ -1493 +1502 @@
-          }
-          obsKMLSubRoutines::KMLAddObsToHash( 'water_level', 
-time_formatted_values
+KMLTimeStamp
-                                            $MLLWDataVal,
-                                            1,
@@ -1501 +1510 @@
-                                            $rObsHash );
-          obsKMLSubRoutines::KMLAddObsToHash( 'water_level', 
-time_formatted_values
+KMLTimeStamp
-                                            $MSLDataVal,
-                                            2,
@@ -1509 +1518 @@
-                                            $rObsHash );
-          obsKMLSubRoutines::KMLAddObsToHash( 'water_level', 
-time_formatted_values
+KMLTimeStamp
-                                            $NavD88DataVal,
-                                            3,
@@ -1635 +1644 @@
-          }
-          obsKMLSubRoutines::KMLAddObsToHash( 'water_temperature', 
-time_formatted_values
+KMLTimeStamp
-                                            $DataVal,
-                                            1,
@@ -1758 +1767 @@
-          }
-          obsKMLSubRoutines::KMLAddObsToHash( 'water_temperature', 
-time_formatted_values
+KMLTimeStamp
-                                            $DataVal,
-                                            2,
@@ -1870 +1879 @@
-          }
-          obsKMLSubRoutines::KMLAddObsToHash( 'air_temperature', 
-time_formatted_values
+KMLTimeStamp
-                                            $DataVal,
-                                            1,
@@ -2062 +2071 @@
-              
-              obsKMLSubRoutines::KMLAddObsToHash( 'wind_speed', 
-time_formatted_values
+KMLTimeStamp
-                                                  $WindSpdDataVal,
-                                                  1,
@@ -2076 +2085 @@
-              }
-              obsKMLSubRoutines::KMLAddObsToHash( 'wind_from_direction', 
-time_formatted_values
+KMLTimeStamp
-                                                  $WindDirDataVal,
-                                                  1,
@@ -2090 +2099 @@
-              }
-              obsKMLSubRoutines::KMLAddObsToHash( 'wind_gust', 
-time_formatted_values
+KMLTimeStamp
-                                                  $WindGstDataVal,
-                                                  1,
@@ -2202 +2211 @@
-          }
-          obsKMLSubRoutines::KMLAddObsToHash( 'air_pressure', 
-time_formatted_values
+KMLTimeStamp
-                                              $DataVal,
-                                              1,
@@ -2317 +2326 @@
-          
-          obsKMLSubRoutines::KMLAddObsToHash( 'salinity', 
-time_formatted_values
+KMLTimeStamp
-                                              $DataVal,
-                                              1,
@@ -2467 +2476 @@
-              
-              obsKMLSubRoutines::KMLAddObsToHash( 'eastward_current', 
-time_formatted_values
+KMLTimeStamp
-                                                  $ECurrentDataVal,
-                                                  1,
@@ -2481 +2490 @@
-              }
-              obsKMLSubRoutines::KMLAddObsToHash( 'northward_current', 
-time_formatted_values
+KMLTimeStamp
-                                                  $NCurrentDataVal,
-                                                  1,
@@ -2591 +2600 @@
-          
-        obsKMLSubRoutines::KMLAddObsToHash( 'dominant_wave_period', 
-time_formatted_values
+KMLTimeStamp
-                                            $DomWaveDataVal,
-                                            1,
@@ -2605 +2614 @@
-        }
-        obsKMLSubRoutines::KMLAddObsToHash( 'significant_wave_height', 
-time_formatted_values
+KMLTimeStamp
-                                            $SigWaveHgtDataVal,
-                                            1,
@@ -2664 +2673 @@
-          
-        obsKMLSubRoutines::KMLAddObsToHash( 'dominant_wave_period', 
-time_formatted_values
+KMLTimeStamp
-                                            $DomWaveDataVal,
-                                            1,
@@ -2678 +2687 @@
-        }
-        obsKMLSubRoutines::KMLAddObsToHash( 'significant_wave_height', 
-time_formatted_values
+KMLTimeStamp
-                                            $SigWaveHgtDataVal,
-                                            1,
@@ -2697 +2706 @@
-    #$strXMLPath = "../sql/$strPlatformID-$strDate.kml";
-    $strXMLPath = "$strObsKMLFilePath/$strPlatformID-$strDate.kml";
-#print( "
+print( "XMLFilePath: 
-    obsKMLSubRoutines::BuildKMLFile( \%ObsHash, $strXMLPath );
-  }