/*
* HEADER:100:spread:output:1:write text - spread sheet format into X (WxText enabled)
*/
int f_spread(ARG1) {
unsigned int i;
if (mode == -1) {
if ((*local = (void *) ffopen(arg1,file_append ? "a" : "w")) == NULL)
fatal_error("Could not open %s", arg1);
WxText = latlon = decode = 1;
}
else if (mode == -2) {
ffclose((FILE *) *local);
}
else if (mode >= 0) {
if (lat == NULL || lon == NULL || data == NULL) {
fprintf(stderr,"no code to determine lat-lon information, no spread sheet output\n");
return 0;
}
set_mode(0);
f_var(call_ARG0(inv_out,NULL));
fprintf((FILE *) *local,"lon,lat,%s",inv_out);
f_lev(call_ARG0(inv_out,NULL));
fprintf((FILE *) *local," %s", inv_out);
f_t(call_ARG0(inv_out,NULL));
fprintf((FILE *) *local," %s", inv_out);
f_ftime(call_ARG0(inv_out,NULL));
fprintf((FILE *) *local," %s\n", inv_out);
if (WxNum > 0) {
for (i = 0; i < ndata; i++) {
if(!UNDEFINED_VAL(data[i]))
fprintf((FILE *) *local,"%lf,%lf,\"%s\"\n",lon[i],lat[i],WxLabel(data[i]));
}
}
else {
for (i = 0; i < ndata; i++) {
if(!UNDEFINED_VAL(data[i]))
fprintf((FILE *) *local,"%lf,%lf,%g\n",lon[i],lat[i],data[i]);
}
}
if (flush_mode) fflush((FILE *) *local);
inv_out[0] = 0;
set_mode(mode);
}
return 0;
}
int f_csv(ARG1) {
char new_inv_out[STRING_SIZE];
char name[100], desc[100], unit[100];
FILE *out;
unsigned int j;
char vt[20],rt[20];
int year, month, day, hour, minute, second;
/* initialization phase */
if (mode == -1) {
WxText = decode = latlon = 1;
if ((*local = (void *) ffopen(arg1,file_append ? "a" : "w")) == NULL)
fatal_error("csv could not open file %s", arg1);
return 0;
}
/* cleanup phase */
if (mode == -2) return 0;
/* processing phase */
if (lat == NULL || lon == NULL) {
fprintf(stderr,"csv: latitude/longitude not defined, record skipped\n");
return 0;
}
out = (FILE *) *local;
/*Collect runtime and validtime into vt and rt*/
reftime(sec, &year, &month, &day, &hour, &minute, &second);
sprintf(rt, "%4.4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d", year,month,day,hour,minute,second);
vt[0] = 0;
if (verftime(sec, &year, &month, &day, &hour, &minute, &second) == 0) {
sprintf(vt,"%4.4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d", year,month,day,hour,minute,second);
}
/*Get levels, parameter name, description and unit*/
*new_inv_out = 0;
f_lev(call_ARG0(new_inv_out,NULL));
if (strcmp(new_inv_out, "reserved")==0) return 0;
// getName(sec, mode, NULL, name, desc, unit);
getExtName(sec, mode, NULL, name, desc, unit,".","_");
// fprintf(stderr,"Start processing of %s at %s\n", name, new_inv_out);
// fprintf(stderr,"Gridpoints in data: %d\n", ndata);
// fprintf(stderr,"Description: %s, Unit %s\n", desc,unit);
/* Lage if-setning rundt hele som sjekker om alt eller deler skal ut*/
if (WxNum > 0) {
for (j = 0; j < ndata; j++) {
if (!UNDEFINED_VAL(data[j])) {
fprintf(out,"\"%s\",\"%s\",\"%s\",\"%s\",%g,%g,\"%s\"\n",rt,vt,name,
new_inv_out,lon[j] > 180.0 ? lon[j]-360.0 : lon[j],lat[j],WxLabel(data[j]));
}
}
}
else {
for (j = 0; j < ndata; j++) {
if (!UNDEFINED_VAL(data[j])) {
fprintf(out,"\"%s\",\"%s\",\"%s\",\"%s\",%g,%g,%lg\n",rt,vt,name,
new_inv_out,lon[j] > 180.0 ? lon[j]-360.0 : lon[j],lat[j],data[j]);
}
}
}
if (flush_mode) fflush(out);
return 0;
}
