mirror of https://github.com/ecmwf/eccodes.git
137 lines
4.5 KiB
C++
137 lines
4.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_api_internal.h"
|
|
|
|
/*
|
|
This is used by make_class.pl
|
|
|
|
START_CLASS_DEF
|
|
CLASS = nearest
|
|
SUPER = grib_nearest_class_gen
|
|
IMPLEMENTS = init
|
|
IMPLEMENTS = find;destroy
|
|
MEMBERS = double* lats
|
|
MEMBERS = int lats_count
|
|
MEMBERS = double* lons
|
|
MEMBERS = int lons_count
|
|
MEMBERS = double* distances
|
|
MEMBERS = int* k
|
|
MEMBERS = int* i
|
|
MEMBERS = int* j
|
|
MEMBERS = const char* Ni
|
|
MEMBERS = const char* Nj
|
|
END_CLASS_DEF
|
|
|
|
*/
|
|
|
|
/* START_CLASS_IMP */
|
|
|
|
/*
|
|
|
|
Don't edit anything between START_CLASS_IMP and END_CLASS_IMP
|
|
Instead edit values between START_CLASS_DEF and END_CLASS_DEF
|
|
or edit "nearest.class" and rerun ./make_class.pl
|
|
|
|
*/
|
|
|
|
|
|
static void init_class (grib_nearest_class*);
|
|
|
|
static int init (grib_nearest* nearest,grib_handle* h,grib_arguments* args);
|
|
static int find(grib_nearest* nearest, grib_handle* h,double inlat, double inlon, unsigned long flags, double* outlats,double* outlons, double *values,double *distances, int *indexes,size_t *len);
|
|
static int destroy (grib_nearest* nearest);
|
|
|
|
typedef struct grib_nearest_mercator{
|
|
grib_nearest nearest;
|
|
/* Members defined in gen */
|
|
const char* values_key;
|
|
const char* radius;
|
|
int cargs;
|
|
/* Members defined in mercator */
|
|
double* lats;
|
|
int lats_count;
|
|
double* lons;
|
|
int lons_count;
|
|
double* distances;
|
|
int* k;
|
|
int* i;
|
|
int* j;
|
|
const char* Ni;
|
|
const char* Nj;
|
|
} grib_nearest_mercator;
|
|
|
|
extern grib_nearest_class* grib_nearest_class_gen;
|
|
|
|
static grib_nearest_class _grib_nearest_class_mercator = {
|
|
&grib_nearest_class_gen, /* super */
|
|
"mercator", /* name */
|
|
sizeof(grib_nearest_mercator), /* size of instance */
|
|
0, /* inited */
|
|
&init_class, /* init_class */
|
|
&init, /* constructor */
|
|
&destroy, /* destructor */
|
|
&find, /* find nearest */
|
|
};
|
|
|
|
grib_nearest_class* grib_nearest_class_mercator = &_grib_nearest_class_mercator;
|
|
|
|
|
|
static void init_class(grib_nearest_class* c)
|
|
{
|
|
}
|
|
/* END_CLASS_IMP */
|
|
|
|
static int init(grib_nearest* nearest, grib_handle* h, grib_arguments* args)
|
|
{
|
|
grib_nearest_mercator* self = (grib_nearest_mercator*)nearest;
|
|
self->Ni = grib_arguments_get_name(h, args, self->cargs++);
|
|
self->Nj = grib_arguments_get_name(h, args, self->cargs++);
|
|
self->lats = self->lons = self->distances = NULL;
|
|
self->lats_count = self->lons_count = 0;
|
|
self->i = (int*)grib_context_malloc(h->context, 2 * sizeof(int));
|
|
self->j = (int*)grib_context_malloc(h->context, 2 * sizeof(int));
|
|
return GRIB_SUCCESS;
|
|
}
|
|
|
|
static int find(grib_nearest* nearest, grib_handle* h,
|
|
double inlat, double inlon, unsigned long flags,
|
|
double* outlats, double* outlons,
|
|
double* values, double* distances, int* indexes, size_t* len)
|
|
{
|
|
grib_nearest_mercator* self = (grib_nearest_mercator*)nearest;
|
|
return grib_nearest_find_generic(
|
|
nearest, h, inlat, inlon, flags, /* inputs */
|
|
|
|
self->values_key, /* outputs to set the 'self' object */
|
|
self->Ni,
|
|
self->Nj,
|
|
&(self->lats),
|
|
&(self->lats_count),
|
|
&(self->lons),
|
|
&(self->lons_count),
|
|
&(self->distances),
|
|
|
|
outlats, outlons, /* outputs of the find function */
|
|
values, distances, indexes, len);
|
|
}
|
|
|
|
static int destroy(grib_nearest* nearest)
|
|
{
|
|
grib_nearest_mercator* self = (grib_nearest_mercator*)nearest;
|
|
if (self->lats) grib_context_free(nearest->context, self->lats);
|
|
if (self->lons) grib_context_free(nearest->context, self->lons);
|
|
if (self->i) grib_context_free(nearest->context, self->i);
|
|
if (self->j) grib_context_free(nearest->context, self->j);
|
|
if (self->k) grib_context_free(nearest->context, self->k);
|
|
if (self->distances) grib_context_free(nearest->context, self->distances);
|
|
return GRIB_SUCCESS;
|
|
}
|