mirror of https://github.com/ecmwf/eccodes.git
116 lines
3.5 KiB
C++
116 lines
3.5 KiB
C++
/*
|
|
* (C) Copyright 2005- ECMWF.
|
|
*
|
|
* This software is licensed under the terms of the Apache Licence Version 2.0
|
|
* which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
|
|
*
|
|
* In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
|
|
* virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
|
|
*/
|
|
|
|
|
|
#include "grib_scaling.h"
|
|
#include "grib_api_internal.h"
|
|
|
|
bufr_descriptor* grib_bufr_descriptor_new(grib_accessor* tables_accessor, int code, int silent, int* err)
|
|
{
|
|
bufr_descriptor* ret = accessor_bufr_elements_table_get_descriptor(tables_accessor, code, err);
|
|
if (!silent && *err)
|
|
grib_context_log(tables_accessor->context, GRIB_LOG_ERROR,
|
|
"unable to get descriptor %06d from table", code);
|
|
return ret;
|
|
}
|
|
|
|
bufr_descriptor* grib_bufr_descriptor_clone(bufr_descriptor* d)
|
|
{
|
|
bufr_descriptor* cd;
|
|
|
|
if (!d)
|
|
return NULL;
|
|
|
|
cd = (bufr_descriptor*)grib_context_malloc_clear(d->context, sizeof(bufr_descriptor));
|
|
|
|
cd->context = d->context;
|
|
cd->code = d->code;
|
|
cd->F = d->F;
|
|
cd->X = d->X;
|
|
cd->Y = d->Y;
|
|
/* cd->name=grib_context_strdup(d->context,d->name); See ECC-489 */
|
|
strcpy(cd->shortName, d->shortName);
|
|
strcpy(cd->units, d->units);
|
|
cd->scale = d->scale;
|
|
cd->factor = d->factor;
|
|
cd->width = d->width;
|
|
cd->reference = d->reference;
|
|
cd->type = d->type;
|
|
cd->nokey = d->nokey;
|
|
|
|
return cd;
|
|
}
|
|
|
|
int grib_bufr_descriptor_set_code(bufr_descriptor* v, int code)
|
|
{
|
|
if (!v) return GRIB_NULL_POINTER;
|
|
Assert(v->type == BUFR_DESCRIPTOR_TYPE_REPLICATION || v->type == BUFR_DESCRIPTOR_TYPE_OPERATOR);
|
|
|
|
v->code = code;
|
|
v->F = code / 100000;
|
|
if (v->type == BUFR_DESCRIPTOR_TYPE_REPLICATION) Assert(v->F == 1);
|
|
if (v->type == BUFR_DESCRIPTOR_TYPE_OPERATOR) Assert(v->F == 2);
|
|
v->X = (code - v->F * 100000) / 1000;
|
|
v->Y = (code - v->F * 100000) % 1000;
|
|
|
|
return GRIB_SUCCESS;
|
|
|
|
// Old implementation also had a "grib_accessor* tables_accessor" argument:
|
|
// if (tables_accessor == NULL)
|
|
// return GRIB_NULL_POINTER;
|
|
// bufr_descriptor* d = accessor_bufr_elements_table_get_descriptor(tables_accessor, code, &err);
|
|
// v->code = d->code;
|
|
// v->F = d->F;
|
|
// v->X = d->X;
|
|
// v->Y = d->Y;
|
|
// /* grib_context_free(c,v->name); See ECC-489 */
|
|
// /* v->name=grib_context_strdup(c,d->name); See ECC-489 */
|
|
// strcpy(v->shortName,d->shortName);
|
|
// strcpy(v->units,d->units);
|
|
// v->scale = d->scale;
|
|
// v->factor = d->factor;
|
|
// v->width = d->width;
|
|
// v->reference = d->reference;
|
|
// v->type = d->type;
|
|
// v->nokey = d->nokey;
|
|
// grib_bufr_descriptor_delete(d);
|
|
// return err;
|
|
}
|
|
|
|
void grib_bufr_descriptor_set_scale(bufr_descriptor* v, long scale)
|
|
{
|
|
if (!v)
|
|
return;
|
|
v->scale = scale;
|
|
if (scale != 0)
|
|
v->type = BUFR_DESCRIPTOR_TYPE_DOUBLE;
|
|
v->factor = codes_power<double>(-scale, 10);
|
|
}
|
|
|
|
int grib_bufr_descriptor_can_be_missing(const bufr_descriptor* v)
|
|
{
|
|
if (v->code == 31031 || v->code == 999999)
|
|
return 0;
|
|
if (v->width == 1)
|
|
return 0;
|
|
return 1;
|
|
}
|
|
|
|
void grib_bufr_descriptor_delete(bufr_descriptor* v)
|
|
{
|
|
grib_context* c = NULL;
|
|
if (!v)
|
|
return;
|
|
c = v->context;
|
|
|
|
/* grib_context_free(c,v->name); See ECC-489 */
|
|
grib_context_free(c, v);
|
|
}
|