xan/awips2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

VLab Issue #9986 - Revert VLab Issue #9986 - HPE change to mean field bias logic; fixes #9986

Browse source 
This reverts commit 4c1637974b [formerly d3388798e0f55a35f429347c24b408d0e8ae3b7f].

Change-Id: I76b2eb1e28297eed288555d056c88812fe76faac

Former-commit-id: 954250c0b33bab2538cceea77afa2946b0c19445
This commit is contained in:
Paul Tilles 2015-09-21 17:12:14 +00:00
parent 4c1637974b
commit de112777bd
5 changed files with 2715 additions and 1791 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

886
nativeLib/rary.ohd.pproc/src/hpe_fieldgen/TEXT/empe_fieldgen.h
View file

File diff suppressed because it is too large Load diff

799
nativeLib/rary.ohd.pproc/src/hpe_fieldgen/TEXT/main_empe_fieldgen.c
View file

File diff suppressed because it is too large Load diff

607
nativeLib/rary.ohd.pproc/src/hpe_fieldgen/TEXT/read_rwbiasdyn2.c
View file

@ -6,30 +6,48 @@
#include "RadarLoc.h"
#define HPE_RFC_BIAS_LAG 2 // default number of bias lag hours
RadarLoc * pRadarLocHead = NULL;
RadarLoc * pRadarLocHead = NULL ;
extern int dualpol_on_flag;
void retrieveOfficeIDByRadarID(const char * radarID, char * officeID,
long int * status);
void retrieveOfficeIDByRadarID(const char * radarID,
char * officeID,
long int * status);
void read_rwbiasdyn2(const char *radar_id, const char *office_id,
const char * str, const int lag_cut, double *num_pairs, double *sumgag,
double *sumrad, double *bias, int *lag, char sstr1[19], long int *irc);
void read_rwbiasdyn2(const char *radar_id,
const char *office_id,
const char * str,
const int lag_cut,
double *num_pairs,
double *sumgag,
double *sumrad,
double *bias,
int *lag,
char sstr1[19],
long int *irc);
void readRWBiasDyn(const char *radar_id, const char *site_id,
const char *datehour, const int lag_cut, double *num_pairs,
double *sumgag, double *sumrad, double *bias, int *lag,
char datetime1[19], int dualpol_data_avail, long int *irc)
void readRWBiasDyn(const char *radar_id,
const char *site_id,
const char *datehour,
const int lag_cut,
double *num_pairs,
double *sumgag,
double *sumrad,
double *bias,
int *lag,
char datetime1[19],
int dualpol_data_avail,
long int *irc)
{
const char * HPE_RFC_BIAS_LAG_TOKEN = "hpe_rfc_bias_lag";
const char * HPE_BIAS_SOURCE_TOKEN = "hpe_bias_source";
const char * HPE_RFC_BIAS_LAG_TOKEN = "hpe_rfc_bias_lag";
const char * HPE_BIAS_SOURCE_TOKEN = "hpe_bias_source";
static int first = 1;
static int first = 1 ;
static int rfc_bias_lag = HPE_RFC_BIAS_LAG;
static char bias_source[6] = "rfc"; // RFC or LOCAL, default to RFC
char officeID[WFO_LEN + 1] = { '\0' };
char strTokenValue[6] = { '\0' };
static char bias_source[6] = "rfc"; // RFC or LOCAL, default to RFC
char officeID[WFO_LEN + 1] = {'\0'};
char strTokenValue[6] = {'\0'} ;
/*
* load and store the token values:
@ -37,53 +55,62 @@ void readRWBiasDyn(const char *radar_id, const char *site_id,
* HPE_BIAS_SOURCE_TOKEN
*/
if (first == 1) {
if ((hpe_fieldgen_getAppsDefaults(HPE_RFC_BIAS_LAG_TOKEN, strTokenValue)
!= -1) && (hpe_fieldgen_isDigits(strTokenValue) == 1)) {
if(first == 1)
{
if((hpe_fieldgen_getAppsDefaults(HPE_RFC_BIAS_LAG_TOKEN, strTokenValue) != -1)
&& (hpe_fieldgen_isDigits(strTokenValue) == 1))
{
int value = atoi(strTokenValue);
if (value > 0) {
if(value > 0)
{
rfc_bias_lag = value;
sprintf(message,
"STATUS:in readRWBiasDyn - token value for \"%s\" is: %d",
HPE_RFC_BIAS_LAG_TOKEN, rfc_bias_lag);
hpe_fieldgen_printMessage(message);
} else {
sprintf(message, "ERROR:in readRWBiasDyn - Invalid token value"
" for token \"%s\". Default value is set to: %d",
HPE_RFC_BIAS_LAG_TOKEN, HPE_RFC_BIAS_LAG);
hpe_fieldgen_printMessage(message);
sprintf ( message , "STATUS: token value for \"%s\" is: %d.",
HPE_RFC_BIAS_LAG_TOKEN, rfc_bias_lag) ;
hpe_fieldgen_printMessage( message );
}
} else {
sprintf(message, "ERROR:in readRWBiasDyn - Invalid token value"
" for token \"%s\". Default value is set to: %d",
HPE_RFC_BIAS_LAG_TOKEN, HPE_RFC_BIAS_LAG);
hpe_fieldgen_printMessage(message);
else
{
sprintf ( message , "ERROR: Invalid token value"
" for token \"%s\". Default it's value to: %d.",
HPE_RFC_BIAS_LAG_TOKEN, HPE_RFC_BIAS_LAG) ;
hpe_fieldgen_printMessage( message );
}
}
else
{
sprintf ( message , "ERROR: Invalid token value"
" for token \"%s\". Default it's value to: %d.",
HPE_RFC_BIAS_LAG_TOKEN, HPE_RFC_BIAS_LAG) ;
hpe_fieldgen_printMessage( message );
}
if (hpe_fieldgen_getAppsDefaults(HPE_BIAS_SOURCE_TOKEN, strTokenValue)
!= -1) {
if (strcmp(hpe_fieldgen_toLowerCase(strTokenValue), "local") == 0) {
if(hpe_fieldgen_getAppsDefaults(HPE_BIAS_SOURCE_TOKEN, strTokenValue) != -1)
{
if(strcmp(hpe_fieldgen_toLowerCase(strTokenValue), "local") == 0)
{
strcpy(bias_source, "local");
sprintf(message,
"STATUS:in readRWBiasDyn - token value for \"%s\" is: %s",
HPE_BIAS_SOURCE_TOKEN, bias_source);
hpe_fieldgen_printMessage(message);
} else if (strcmp(hpe_fieldgen_toLowerCase(strTokenValue), "rfc")
== 0) {
sprintf ( message , "STATUS: token value for \"%s\" is: %s.",
HPE_BIAS_SOURCE_TOKEN, bias_source) ;
hpe_fieldgen_printMessage( message );
}
else if(strcmp(hpe_fieldgen_toLowerCase(strTokenValue), "rfc") == 0)
{
strcpy(bias_source, "rfc");
sprintf(message,
"STATUS:in readRWBiasDyn - token value for \"%s\" is: %s",
HPE_BIAS_SOURCE_TOKEN, bias_source);
hpe_fieldgen_printMessage(message);
sprintf ( message , "STATUS: token value for \"%s\" is: %s.",
HPE_BIAS_SOURCE_TOKEN, bias_source) ;
hpe_fieldgen_printMessage( message );
}
} else {
sprintf(message, "ERROR:in readRWBiasDyn - Invalid token value"
" for token \"%s\". Default value is set to: rfc",
HPE_BIAS_SOURCE_TOKEN);
hpe_fieldgen_printMessage(message);
}
else
{
sprintf ( message , "ERROR: Invalid token value"
" for token \"%s\".",
HPE_BIAS_SOURCE_TOKEN) ;
hpe_fieldgen_printMessage( message );
}
first = 0;
@ -94,28 +121,58 @@ void readRWBiasDyn(const char *radar_id, const char *site_id,
* pick up bias value based on the FXA_LOCAL_SITE
*/
if (strcmp(bias_source, "local") == 0) /*for LOCAL MFB */
if(strcmp(bias_source, "local") == 0)
{
if (dualpol_on_flag == 0) {
sprintf(message,
" STATUS:in readRWBiasDyn - Loading SP LOCAL MFB bias from RWBiasDyn "
"table for siteID (token fxa_local_site) = %s, lag time = %d",
site_id, lag_cut);
hpe_fieldgen_printMessage(message);
sprintf ( message , "STATUS: in readRWBiasDyn,loading bias value based on FXA_LOCAL_SITE.") ;
hpe_fieldgen_printMessage( message );
read_rwbiasdyn2(radar_id, site_id, datehour, lag_cut, num_pairs,
sumgag, sumrad, bias, lag, datetime1, irc);
} else {
sprintf(message,
"STATUS:in readRWBiasDyn - Loading DP LOCAL MFB bias from DAABiasDyn "
"table for siteID (token fxa_local_site) = %s, lag time = %d",
site_id, lag_cut);
hpe_fieldgen_printMessage(message);
if (dualpol_on_flag == 0)
{
read_rwbiasdyn2(radar_id, site_id, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
read_daabiasdyn(radar_id, site_id, datehour, lag_cut, num_pairs,
sumgag, sumrad, bias, lag, datetime1, irc);
sprintf (message, " STATUS:in readRWBiasDyn, dualpol_on_flag is NO, loading bias value from RWBiasDyn table.");
hpe_fieldgen_printMessage( message );
}
else
{
sprintf (message, "STATUS: in readRWBiasDyn, dualpol_on_flag is YES, loading bias value from DAABiasDyn table");
hpe_fieldgen_printMessage( message );
read_daabiasdyn(radar_id, site_id, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
if (*irc != 0)
{
read_rwbiasdyn2(radar_id, site_id, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
sprintf(message, "STATUS: in readRWBiasDyn, dualpol_on_flag is YES. Fail to load bias value from DAABiasDyn table. Try RWBiasDyn table");
hpe_fieldgen_printMessage( message );
}
else
{
if (dualpol_data_avail == 0)
{
read_rwbiasdyn2(radar_id, site_id, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
sprintf( message, "STATUS: in readRWBiasDyn, bias value is found in DAABiasDyn table.But dualpol raw data is not available. "
"Try RWBiasDyn table.");
hpe_fieldgen_printMessage( message );
}
else
{
sprintf( message, "STATUS: in readRWBiasDyn, bias value is found in DAABiasDyn table. Dualpol raw data is available.");
hpe_fieldgen_printMessage( message );
}
}
}
} else /* for RFC MFB */
}
else
{
/*
* retrieve the office ID from RadarLoc table
@ -123,17 +180,13 @@ void readRWBiasDyn(const char *radar_id, const char *site_id,
retrieveOfficeIDByRadarID(radar_id, officeID, irc);
if (*irc == -1) {
sprintf(message,
"ERROR:in readRWBiasDyn - could not find office ID for radar: %s",
radar_id);
shutdown(message);
if(*irc == -1)
{
sprintf ( message, "ERROR: could not find office ID for radar: %s",
radar_id);
shutdown( message );
}
sprintf(message, "STATUS:in readRWBiasDyn - officeID = %s, siteID = %s",
officeID, site_id);
hpe_fieldgen_printMessage(message);
/*
* Pick up the bias value based on the radar's office ID.
* If there is no record found, check if the office ID is
@ -141,130 +194,234 @@ void readRWBiasDyn(const char *radar_id, const char *site_id,
* FXA_LOCAL_SITE as office ID to pick up the bias value again.
*/
if (strcmp(officeID, site_id) != 0) {
if(strcmp(officeID, site_id) != 0)
{
/*
* if the office ID != FXA_LOCAL_SITE,
* then use the HPE_RFC_BIAS_LAG_TOKEN value
* to pick up the bias value.
*/
if (dualpol_on_flag == 0) {
sprintf(message,
"STATUS:in readRWBiasDyn - start to load SP RFC MFB from RWBiasDyn table"
" for officeID = %s, lag time = %d", officeID,
rfc_bias_lag);
hpe_fieldgen_printMessage(message);
read_rwbiasdyn2(radar_id, officeID, datehour, rfc_bias_lag,
num_pairs, sumgag, sumrad, bias, lag, datetime1, irc);
if (*irc != 0) {
sprintf(message,
"STATUS:in readRWBiasDyn - can not load SP RFC MFB bias from RWBiasDyn"
" table for officeID = %s. Loading SP LOCAL MFB for siteID = %s, lag time = %d",
officeID, site_id, lag_cut);
hpe_fieldgen_printMessage(message);
sprintf ( message , "STATUS: loading bias value based on"
" %s and lag time: %d",
officeID, rfc_bias_lag) ;
hpe_fieldgen_printMessage( message );
read_rwbiasdyn2(radar_id, site_id, datehour, lag_cut,
num_pairs, sumgag, sumrad, bias, lag, datetime1,
irc);
} else {
sprintf(message,
"STATUS:in readRWBiasDyn - Loading SP RFC MFB bias from RWBiasDyn "
"table for officeID = %s, lag time = %d",
officeID, rfc_bias_lag);
hpe_fieldgen_printMessage(message);
}
} else {
sprintf(message,
"STATUS:in readRWBiasDyn - start to load DP RFC MFB from DAABiasDyn table"
" for officeID = %s, lag time = %d", officeID,
rfc_bias_lag);
hpe_fieldgen_printMessage(message);
if (dualpol_on_flag == 0)
{
read_rwbiasdyn2(radar_id, officeID, datehour,
rfc_bias_lag, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
sprintf (message, "STATUS: in readRWBiasDyn, dualpol_on_flag is NO, loading bias value from RWBiasDyn table.");
hpe_fieldgen_printMessage( message );
read_daabiasdyn(radar_id, officeID, datehour, rfc_bias_lag,
num_pairs, sumgag, sumrad, bias, lag, datetime1, irc);
if (*irc != 0) {
sprintf(message,
"STATUS:in readRWBiasDyn - can not load DP RFC MFB from DAABiasDyn table"
" for officeID = %s. Loading DP LOCAL MFB for siteID = %s, lag time = %d",
officeID, site_id, lag_cut);
hpe_fieldgen_printMessage(message);
read_daabiasdyn(radar_id, site_id, datehour, lag_cut,
num_pairs, sumgag, sumrad, bias, lag, datetime1,
irc);
} else {
sprintf(message,
"STATUS:in readRWBiasDyn - Loading DP RFC MFB bias from DAABiasDyn table"
" for officeID = %s, lag time = %d",
officeID, rfc_bias_lag);
hpe_fieldgen_printMessage(message);
}
}
} else {
if (dualpol_on_flag == 0) {
read_rwbiasdyn2(radar_id, officeID, datehour, lag_cut,
num_pairs, sumgag, sumrad, bias, lag, datetime1, irc);
else
{
sprintf (message, "STATUS: in readRWBiasDyn, dualpol_on_flag is YES, loading bias value from DAABiasDyn table");
hpe_fieldgen_printMessage( message );
sprintf(message,
"STATUS:in readRWBiasDyn - Loading SP RFC MFB bias from RWBiasDyn table"
" for officeID(siteID) = %s, lag time = %d",
officeID, lag_cut);
hpe_fieldgen_printMessage(message);
} else {
read_daabiasdyn(radar_id, officeID, datehour, lag_cut,
num_pairs, sumgag, sumrad, bias, lag, datetime1, irc);
read_daabiasdyn(radar_id, officeID, datehour,
rfc_bias_lag, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
sprintf(message,
"STATUS:in readRWBiasDyn - Loading DP RFC MFB bias from DAABiasDyn table "
"for officeID(siteID) = %s, lag time = %d",
officeID, lag_cut);
hpe_fieldgen_printMessage(message);
if (*irc != 0)
{
read_rwbiasdyn2(radar_id, officeID, datehour,
rfc_bias_lag, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
sprintf(message, "STATUS: in readRWBiasDyn, Fail to load bias value from DAABiasDyn table. Try RWBiasDyn table");
hpe_fieldgen_printMessage( message );
}
else
{
if (dualpol_data_avail == 0)
{
read_rwbiasdyn2(radar_id, officeID, datehour,
rfc_bias_lag, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
sprintf( message, "STATUS: in readRWBiasDyn, bias value is found in DAABiasDyn table.But dualpol data is not available. "
"Try RWBiasDyn table.");
hpe_fieldgen_printMessage( message );
}
else
{
sprintf( message, "STATUS: in readRWBiasDyn, bias value is found in DAABiasDyn table. Dualpol data is available.");
hpe_fieldgen_printMessage( message );
}
}
}
}
else
{
sprintf ( message , "STATUS: in readRWBiasDyn, loading bias value based on"
" %s and lag time: %d",
officeID, lag_cut) ;
hpe_fieldgen_printMessage( message );
if (dualpol_on_flag == 0)
{
read_rwbiasdyn2(radar_id, officeID, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
sprintf (message, "STATUS: in readRWBiasDyn, dualpol_on_flag is NO. Loading bias value from RWBiasDyn table.");
hpe_fieldgen_printMessage( message );
}
else
{
sprintf (message, "STATUS: in readRWBiasDyn, dualpol_on_flag is YES. Loading bias value from DAABiasDyn table");
hpe_fieldgen_printMessage( message );
read_daabiasdyn(radar_id, officeID, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
if (*irc != 0)
{
sprintf(message, "STATUS: in readRWBiasDyn, faild to load bias value from DAABiasDyn table. Try RWBiasDyn table.");
hpe_fieldgen_printMessage( message );
read_rwbiasdyn2(radar_id, officeID, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
}
else
{
if (dualpol_data_avail == 0)
{
read_rwbiasdyn2(radar_id, officeID, datehour,
rfc_bias_lag, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
sprintf( message, "STATUS: in readRWBiasDyn, bias value is found in DAABiasDyn table.But dualpol data is not available. "
"Try RWBiasDyn table.");
hpe_fieldgen_printMessage( message );
}
else
{
sprintf(message, "STATUS: in readRWBiasDyn, bias value is found in DAABiasDyn table. Dualpol data is available.");
hpe_fieldgen_printMessage( message );
}
}
}
}
/*
* Record not found in RWBiasDyn table based on office ID.
* try to pick up bias value based on the FXA_LOCAL_SITE
* if it is different from office ID.
*/
if(*irc == 100)
{
if(strcmp(officeID, site_id) != 0)
{
sprintf ( message , "STATUS: in readRWBiasDyn,Record not found in"
" RWBiasDyn table based on %s."
" try to pick up the bias value"
" based on the %s",
officeID, site_id) ;
hpe_fieldgen_printMessage( message );
if (dualpol_on_flag == 0)
{
read_rwbiasdyn2(radar_id, site_id, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
sprintf (message, "STATUS: in readRWBiasDyn, dualpol_on_flag is NO. Loading bias value from RWBiasDyn table.");
hpe_fieldgen_printMessage( message );
}
else
{
sprintf (message, "STATUS: in readRWBiasDyn, dualpol_on_flag is YES. Loading bias value from DAABiasDyn table.");
hpe_fieldgen_printMessage( message );
read_daabiasdyn(radar_id, site_id, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
if (*irc != 0)
{
sprintf(message, "STATUS: in readRWBiasDyn, faild to find bias value in DAABiasDyn table. Try RWBiasDyn table.");
hpe_fieldgen_printMessage( message );
read_rwbiasdyn2(radar_id, site_id, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
}
else
{
if (dualpol_data_avail == 0)
{
read_rwbiasdyn2(radar_id, site_id, datehour,
lag_cut, num_pairs, sumgag,
sumrad, bias, lag, datetime1, irc) ;
sprintf( message, "STATUS: in readRWBiasDyn, bias value is found in DAABiasDyn table.But dualpol data is not available. "
"Try RWBiasDyn table.");
hpe_fieldgen_printMessage( message );
}
else
{
sprintf(message, "STATUS: in readRWBiasDyn, bias value is found in DAABiasDyn table. Dualpol data is available.s");
hpe_fieldgen_printMessage( message );
}
}
}
}
}
}
}
void read_rwbiasdyn2(const char *radar_id, const char *office_id,
const char * str, const int lag_cut, double *num_pairs, double *sumgag,
double *sumrad, double *bias, int *lag, char sstr1[19], long int *irc)
void read_rwbiasdyn2(const char *radar_id,
const char *office_id,
const char * str,
const int lag_cut,
double *num_pairs,
double *sumgag,
double *sumrad,
double *bias,
int *lag,
char sstr1[19],
long int *irc)
/*
this function reads records from the RWBiasDyn table for previous hours
these records contain the state variables used in the bias calculations
each previous hour up to lag_cut hours is searched to find records in the
table if no records is found, then state variables are reinitialized
this function reads records from the RWBiasDyn table for previous hours
these records contain the state variables used in the bias calculations
each previous hour up to lag_cut hours is searched to find records in the
table if no records is found, then state variables are reinitialized
calling function: mfb_subr
*/
calling function: mfb_subr
*/
{
int j, irec, ctr;
RWBiasDyn *bdHead = NULL;
RWBiasDyn *bdPtr = NULL;
char rrad[4] = { '\0' };
char strp[22] = { '\0' };
char dude[22] = { '\0' };
char where[BUFSIZ] = { '\0' };
char obstime_ANSI[ANSI_TIME_LEN + 1] = { '\0' };
time_t firstTime = 0;
int j, irec, ctr;
RWBiasDyn *bdHead = NULL;
RWBiasDyn *bdPtr = NULL;
char rrad[4] = {'\0'};
char strp[22] = {'\0'};
char dude[22] = {'\0'};
char where[BUFSIZ] = {'\0'};
char obstime_ANSI[ANSI_TIME_LEN+1] = {'\0'};
time_t firstTime = 0;
strncpy(rrad, radar_id, 3);
strncpy(dude, str, 19);
strncpy(rrad, radar_id, 3);
strncpy(dude, str, 19);
yearsec_ansi_to_timet(dude, &firstTime);
yearsec_ansi_to_timet(dude, &firstTime);
/*------------------------------------------------*/
/* subtract 1 hour and attempt to select record */
/*------------------------------------------------*/
/*------------------------------------------------*/
/* subtract 1 hour and attempt to select record */
/*------------------------------------------------*/
*irc = -1;
for (j = 0; j < lag_cut; j++) {
*irc = -1;
for(j = 0; j < lag_cut; j ++)
{
firstTime -= SECONDS_PER_HOUR;
timet_to_yearsec_ansi(firstTime, strp);
strncpy(sstr1, strp, 19);
irec = 0;
*lag = j + 1;
*lag = j+1;
/*------------------------------------------*/
/* select records for all mem_span values */
@ -272,84 +429,110 @@ void read_rwbiasdyn2(const char *radar_id, const char *office_id,
timet_to_yearsec_ansi(firstTime, obstime_ANSI);
sprintf(where, " WHERE radid='%s' AND obstime='%s' AND "
" office_id = '%s'", rrad, obstime_ANSI, office_id);
" office_id = '%s'",
rrad, obstime_ANSI, office_id);
bdHead = GetRWBiasDyn(where);
if (bdHead) {
if (bdHead)
{
bdPtr = (RWBiasDyn *) ListFirst(&bdHead->list);
ctr = 0;
while (bdPtr) {
num_pairs[ctr] = (double) bdPtr->numpairs;
sumgag[ctr] = (double) bdPtr->sumgag;
sumrad[ctr] = (double) bdPtr->sumrad;
bias[ctr] = (double) bdPtr->bias;
while (bdPtr)
{
num_pairs[ctr] = (double)bdPtr->numpairs;
sumgag[ctr] = (double)bdPtr->sumgag;
sumrad[ctr] = (double)bdPtr->sumrad;
bias[ctr] = (double)bdPtr->bias;
ctr++;
bdPtr = (RWBiasDyn *) ListNext(&bdPtr->node);
}
if (bdHead != NULL) {
if ( bdHead != NULL )
{
FreeRWBiasDyn(bdHead);
bdHead = NULL;
bdHead = NULL ;
}
if (ctr > 0) {
if (ctr > 0)
{
*irc = 0;
break;
}
} else {
}
else
{
*irc = 100;
}
} /* end for (j=0 ... */
} /* end for (j=0 ... */
return;
return ;
} /* end read_rwbiasdyn2 function */
} /* end read_rwbiasdyn2 function */
void retrieveOfficeIDByRadarID(const char * radarID, char * officeID,
long int * status) {
char where_clause[BUFSIZ] = { '\0' };
RadarLoc * pRadarLocNode = NULL;
*status = 0;
void retrieveOfficeIDByRadarID(const char * radarID,
char * officeID,
long int * status)
{
char where_clause [ BUFSIZ ] = {'\0'};
RadarLoc * pRadarLocNode = NULL ;
*status = 0 ;
strcpy(officeID, "");
sprintf(where_clause, " ");
sprintf ( where_clause, " ");
if (pRadarLocHead == NULL) {
pRadarLocHead = GetRadarLoc(where_clause);
if(pRadarLocHead == NULL)
{
pRadarLocHead = GetRadarLoc ( where_clause ) ;
}
if (pRadarLocHead != NULL) {
pRadarLocNode = (RadarLoc *) ListFirst(&pRadarLocHead->list);
if ( pRadarLocHead != NULL )
{
pRadarLocNode = ( RadarLoc * ) ListFirst (&pRadarLocHead->list);
while (pRadarLocNode != NULL) {
if (strcmp(pRadarLocNode->radid, radarID) == 0) {
while (pRadarLocNode != NULL)
{
if(strcmp(pRadarLocNode->radid, radarID) == 0)
{
strcpy(officeID, pRadarLocNode->office_id);
sprintf(message,
"STATUS:in retrieveOfficeIDByRadarID - From RadarLoc table, Radar ID: %s, Office ID: %s",
radarID, officeID);
hpe_fieldgen_printMessage(message);
sprintf ( message , "From RadarLoc table, Radar ID: %s, Office ID: %s",
radarID, officeID );
hpe_fieldgen_printMessage( message);
break;
} else {
}
else
{
pRadarLocNode = (RadarLoc *) ListNext(&pRadarLocNode->node);
}
}
} else {
*status = -1;
}
else
{
* status = -1 ;
}
return;
return ;
}
void freeRadarLocMemory() {
void freeRadarLocMemory()
{
/* Deallocate the RadarLoc linked list. */
if (pRadarLocHead != NULL) {
FreeRadarLoc(pRadarLocHead);
pRadarLocHead = NULL;
if ( pRadarLocHead != NULL )
{
FreeRadarLoc ( pRadarLocHead ) ;
pRadarLocHead = NULL ;
}
/* ============== Statements containing RCS keywords: */
{static char rcs_id1[] = "$Source: /fs/hseb/ob83/ohd/pproc/src/hpe_fieldgen/RCS/read_rwbiasdyn2.c,v $";
static char rcs_id2[] = "$Id: read_rwbiasdyn2.c,v 1.2 2007/10/30 13:33:13 gzhou Exp $";}
/* =================================================== */
}

858
nativeLib/rary.ohd.pproc/src/hpe_fieldgen/TEXT/run_dhrmosaic.c
View file

File diff suppressed because it is too large Load diff

1236
nativeLib/rary.ohd.pproc/src/hpe_fieldgen/TEXT/run_ermosaic.c
View file

File diff suppressed because it is too large Load diff