Changeset 243

Timestamp:

10/31/08 14:41:29

Author:

dan

Message:

Sunroutine: ProcessADCPVar
Changes: Compare the data value to the missing value or fill value so we can correctly handle those cases.
Subroutine:ProcessVar
Changes: If the measurement is either water_depth or water_level, we handle their elevation differently.

Files:

• scout/trunk/cdl_profiler_adcp.pl (modified) (7 diffs)

scout/trunk/cdl_profiler_adcp.pl

@@ -528 +528 @@
-  for( $iNdx = 0; $iNdx < $iDataCnt; $iNdx++ )
-  {
-
+    
-    if( $iZDimCnt )
-    {
@@ -536 +536 @@
-    {
-      $iZVal = @$ZData[0];
+    }
+    if( $strVarName eq 'water_depth' )
+    {
+      $iZVal = $Val;
+    }
+    elsif( $strVarName eq 'water_level' )
+    {
+      $iZVal = 0;
-    }
-    my $iSOrder = $iNdx + 1;
@@ -593 +601 @@
-  my $TimeVal = '';
-  my $iZVal = 0;
+  my $iPositiveUp = 0;
+  #Is the Z increasing(bottom to surface) or decreasing(surface to bottom)?
+  if( @$ZData[0] < @$ZData[-1] )
+  {
+    $iPositiveUp = 1;
+  }
-  foreach my $strDimName ( sort keys %{$refVarData->{'var_name'}{$strVarName}{'dim_name'}} )
-  {
@@ -669 +683 @@
-    {
-      my $Val = @{$Data[0]}[$iStartNdx];
+      if( $Val == $Fill_value_value || $Val == $missing_value_value )
+      { 
+        $Val = 'NULL';
+      }
+      else
+      {
+        $Val = sprintf("%.3f", $Val );
+      }
-      if( $iZDimCnt )
-      {
@@ -678 +700 @@
-      }
-      my $iSOrder = $iNdx + 1;
-
+
+
+
+
-      OutputData( $strPlatformID,
-                  $strVarName, 
@@ -691 +716 @@
-                  
-      #Calculate the Speed/Direction?
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-        #Write the current speed.
-        OutputData( $strPlatformID,
@@ -721 +751 @@
-      }
-      #Calculate the east/north components?
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-        OutputData( $strPlatformID,
-                    $strVarName,