13 char kbuf[100],*p,*q,*r,buf[100],
hb5[10];
20 char pc,datbuf[50],parmbuf[50];
34 pdata[i].
ztime=(gm->tm_year+1900)*10000+(gm->tm_mon+1)*100+gm->tm_mday;
71 if(
pdata[i].
stn[k].frain[m].data >= 0)
83 if(
pdata[i].
stn[k].frain[m].data >= 0)
97 if(number_found[j] == 0)
120 p=fgets(kbuf,100,
fr);
127 if(kbuf[0]==
'.' && kbuf[1]==
'E')
130 if(kbuf[0]==
'.' && kbuf[1]==
'A')
133 ier=sscanf(&kbuf[3],
"%s %s %s",hb5,datbuf,parmbuf);
137 p=strchr(parmbuf,
'/');
144 if(strcmp(hb5,
station[j].hb5)==0 &&
195 for(k=startk;k<maxk;k++) {
199 if((p=strchr(q,
'/'))==NULL &&
200 (p=strchr(q,
'\n'))==NULL)
207 if((p=strchr(buf,
'.'))==NULL) {
293 printf(
"new data overwriting missing %s %s %f\n",
312 printf(
"new data overwriting old %s %s %f\n",
323 &&
pdata[i].
stn[j].frain[k].data >=0) {
325 printf(
"data set bad level 1 overwriting level 2 %s %s %f\n",
340 &&
pdata[i].
stn[j].srain[k].data >= 0
344 printf(
"new data overwriting old %s %s %f\n",
353 &&
pdata[i].
stn[j].srain[k].data < 0
354 &&
pdata[i].
stn[j].frain[k].data >=0) {
356 printf(
"data set bad level 1 overwriting level 2 %s %s %f\n",
399 pdata[i].
stn[j].frain[k].data < 0) {
415 if(number_found[m]==0)
421 printf(
"new data overwriting old bad data\n");
int get_bad_values(int iday, int iquart)
void post_bad_values(int iday)
int is_bad(int iday, int iquart, char *hb5, char *parm)
printf("pcp %d\n", pcp_in_use[103])
int read_precip_b(char *fname, time_t tget, int i)