Changeset 6856

Timestamp:

10/28/16 11:13:02 (3 years ago)

Author:

scott

Message:

Added commands to control scaling, channel & location codes

Location:

trunk/src/data_sources/tideweb2ew

Files:

• tideweb2ew.c (modified) (8 diffs)
• tideweb2ew.d (modified) (1 diff)

trunk/src/data_sources/tideweb2ew/tideweb2ew.c

@@ -31 +31 @@
 char   MyModName[MAX_MOD_STR];        /* speak as this module name/id      */
 
-static int Debug = 0;
-static int Granulate = 0;
-
 int err_exit;                           /* an tideweb2ew_die() error number */
 static unsigned char InstId = 255;
@@ -66 +63 @@
 int LogFile;                     /* generate a logfile? */
 int LOG2LogFile;                 /* put LOG channels in logfile? */
+
+/* Optional config parameters
+ ****************************/
+static int    Debug = 0;
+static int    Granulate = 0;
+static double PWL_SCALE = 1;        // Optional multiplier for PWL values
+static double BWL_SCALE = 1;        // Optional multiplier for BWL values
+static char   PWL_CHAN[10] = "UTZ"; // Optional Channel code for PWL TRACEBUF2s
+static char   BWL_CHAN[10] = "UTZ"; // Optional Channel code for BWL TRACEBUF2s
+static char   PWL_LOC[10] = "00";   // Optional Location code for PWL TRACEBUF2s
+static char   BWL_LOC[10] = "01";   // Optional Location code for BWL TRACEBUF2s
 
 /* some globals for EW not settable in the .d file. */
@@ -208 +216 @@
     if ( reporting > 1 )
        logit("t", "%s: Secondary = %s\n", progname, tg.item[1].weblog );
+    logit( "t", "%s: Granulate = %d\n",   progname, Granulate );
+    logit( "t", "%s: PWL_SCALE = %lf\n",  progname, PWL_SCALE );
+    logit( "t", "%s: BWL_SCALE = %lf\n",  progname, BWL_SCALE );
+    logit( "t", "%s: PWL_CHAN  = '%s'\n", progname, PWL_CHAN );
+    logit( "t", "%s: BWL_CHAN  = '%s'\n", progname, BWL_CHAN );
+    logit( "t", "%s: PWL_LOC   = '%s'\n", progname, PWL_LOC );
+    logit( "t", "%s: BWL_LOC   = '%s'\n", progname, BWL_LOC );
 
         /* EARTHWORM init earthworm connection at this point, 
@@ -471 +486 @@
         strcpy(trace2_hdr->sta,trim(StationCode));
         strcpy(trace2_hdr->net,trim(NetworkCode));
-        strcpy(trace2_hdr->chan,"UTZ");
         
         strcpy(trace2_hdr->datatype, "i4");
@@ -487 +501 @@
         trace2_hdr->endtime = trace2_hdr->starttime + 60;
     
+    tg_data->item[0].dataVal *= PWL_SCALE;
+    tg_data->item[1].dataVal *= BWL_SCALE;
+
     if ( sendPrim ) {
-        strcpy(trace2_hdr->loc,"00");
+        strcpy(trace2_hdr->chan,PWL_CHAN);
+        strcpy(trace2_hdr->loc,PWL_LOC);
         sprintf(sncl, "%s_%s_%s_%s", trace2_hdr->sta,trace2_hdr->net,trace2_hdr->chan,trace2_hdr->loc);
         myTracePtr[0] = (tg_data->item[0].dataVal*1000)+0.5;
@@ -504 +522 @@
     }
     if ( sendSec ) {
-        strcpy(trace2_hdr->loc,"01");
+        strcpy(trace2_hdr->chan,BWL_CHAN);
+        strcpy(trace2_hdr->loc,BWL_LOC);
         sprintf(sncl, "%s_%s_%s_%s", trace2_hdr->sta,trace2_hdr->net,trace2_hdr->chan,trace2_hdr->loc);
         myTracePtr[0] = (tg_data->item[1].dataVal*1000)+0.5;
@@ -764 +783 @@
          else if ( k_its( "Granulate" ) ) {
             Granulate = 1;
+         }
+         else if ( k_its( "PWL_SCALE" ) ) {
+            PWL_SCALE = k_val();
+         }  
+         else if ( k_its( "BWL_SCALE" ) ) {
+            BWL_SCALE = k_val();
+         }  
+         else if ( k_its( "PWL_CHAN" ) ) {
+            if ( (str = k_str()) == NULL ) {
+                fprintf( stderr, "%s: Missing name in PWL_CHAN.\n", progname );
+                return -1;
+            } else if ( strlen(str) > 3 ) {
+                fprintf( stderr, "%s: Name too long in PWL_CHAN.\n", progname );
+                return -1;
+            } else {
+                strcpy( PWL_CHAN, str );
+            }
+         }  
+         else if ( k_its( "BWL_CHAN" ) ) {
+            if ( (str = k_str()) == NULL ) {
+                fprintf( stderr, "%s: Missing name in BWL_CHAN.\n", progname );
+                return -1;
+            } else if ( strlen(str) > 3 ) {
+                fprintf( stderr, "%s: Name too long in BWL_CHAN.\n", progname );
+                return -1;
+            } else {
+                strcpy( BWL_CHAN, str );
+            }
+         }  
+         else if ( k_its( "PWL_LOC" ) ) {
+            if ( (str = k_str()) == NULL ) {
+                fprintf( stderr, "%s: Missing name in PWL_LOC.\n", progname );
+                return -1;
+            } else if ( strlen(str) > 2 ) {
+                fprintf( stderr, "%s: Name too long in PWL_LOC.\n", progname );
+                return -1;
+            } else {
+                strcpy( PWL_LOC, str );
+            }
+         }  
+         else if ( k_its( "BWL_LOC" ) ) {
+            if ( (str = k_str()) == NULL ) {
+                fprintf( stderr, "%s: Missing name in BWL_LOC.\n", progname );
+                return -1;
+            } else if ( strlen(str) > 2 ) {
+                fprintf( stderr, "%s: Name too long in BWL_LOC.\n", progname );
+                return -1;
+            } else {
+                strcpy( BWL_LOC, str );
+            }
          }  
          else if ( k_its( "Debug" ) ) {
@@ -860 +929 @@
    }
    numCodes = reporting;
+   
    return 0;
 }

trunk/src/data_sources/tideweb2ew/tideweb2ew.d

@@ -52 +52 @@
 # If not present, assumed to be BWL unless PrimaryCode was specified
 SecondaryCode   BWL2
+
+# PWL_SCALE    -1    # Optional multiplier for PWL values; default is 1
+# BWL_SCALE    -1    # Optional multiplier for BWL values; default is 1
+# PWL_CHAN    ABC    # Optional Channel code for PWL TRACEBUF2s; default is UTZ
+# BWL_CHAN    ABC    # Optional Channel code for BWL TRACEBUF2s; default is UTZ
+# PWL_LOC      99    # Optional Location code for PWL TRACEBUF2s; default is 00
+# BWL_LOC      98    # Optional Location code for BWL TRACEBUF2s; default is 01