mirror of https://github.com/ecmwf/eccodes.git
148 lines
3.9 KiB
C
148 lines
3.9 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 <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "grib_api_internal.h"
|
|
|
|
static void usage(char* prog)
|
|
{
|
|
printf("Usage: %s latlon_file grib_orography grib_file grib_file ...\n", prog);
|
|
exit(1);
|
|
}
|
|
|
|
int main(int argc, char** argv)
|
|
{
|
|
FILE* fin = 0;
|
|
int ret = 0;
|
|
char* fname = 0;
|
|
float lat, lon;
|
|
double *vlat, *vlon;
|
|
long npoints = 0, i = 0, n = 0;
|
|
grib_handle* h;
|
|
double *outlats, *outlons, *values, *lsm_values, *distances;
|
|
size_t* indexes;
|
|
|
|
if (argc < 2)
|
|
usage(argv[0]);
|
|
|
|
fname = argv[1];
|
|
fin = fopen(fname, "r");
|
|
if (!fin) {
|
|
perror(fname);
|
|
exit(1);
|
|
}
|
|
npoints = 0;
|
|
while (fscanf(fin, "%g %g", &lat, &lon) != EOF)
|
|
npoints++;
|
|
fclose(fin);
|
|
|
|
vlat = (double*)malloc(npoints * sizeof(double));
|
|
if (!vlat) {
|
|
printf("unable to allocate %lu bytes\n", npoints * sizeof(double));
|
|
exit(1);
|
|
}
|
|
vlon = (double*)malloc(npoints * sizeof(double));
|
|
if (!vlon) {
|
|
printf("unable to allocate %lu bytes\n", npoints * sizeof(double));
|
|
exit(1);
|
|
}
|
|
outlats = (double*)malloc(npoints * sizeof(double));
|
|
if (!outlats) {
|
|
printf("unable to allocate %lu bytes\n", npoints * sizeof(double));
|
|
exit(1);
|
|
}
|
|
outlons = (double*)malloc(npoints * sizeof(double));
|
|
if (!outlons) {
|
|
printf("unable to allocate %lu bytes\n", npoints * sizeof(double));
|
|
exit(1);
|
|
}
|
|
values = (double*)malloc(npoints * sizeof(double));
|
|
if (!values) {
|
|
printf("unable to allocate %lu bytes\n", npoints * sizeof(double));
|
|
exit(1);
|
|
}
|
|
lsm_values = (double*)malloc(npoints * sizeof(double));
|
|
if (!lsm_values) {
|
|
printf("unable to allocate %lu bytes\n", npoints * sizeof(double));
|
|
exit(1);
|
|
}
|
|
distances = (double*)malloc(npoints * sizeof(double));
|
|
if (!distances) {
|
|
printf("unable to allocate %lu bytes\n", npoints * sizeof(double));
|
|
exit(1);
|
|
}
|
|
indexes = (size_t*)malloc(npoints * sizeof(double));
|
|
if (!indexes) {
|
|
printf("unable to allocate %lu bytes\n", npoints * sizeof(double));
|
|
exit(1);
|
|
}
|
|
|
|
fname = argv[1];
|
|
fin = fopen(fname, "r");
|
|
if (!fin) {
|
|
perror(fname);
|
|
exit(1);
|
|
}
|
|
i = 0;
|
|
while (fscanf(fin, "%g %g", &lat, &lon) != EOF) {
|
|
vlat[i] = lat;
|
|
vlon[i] = lon > 0 ? lon : lon + 360;
|
|
i++;
|
|
}
|
|
fclose(fin);
|
|
|
|
fname = argv[2];
|
|
fin = fopen(fname, "r");
|
|
if (!fin) {
|
|
perror(fname);
|
|
exit(1);
|
|
}
|
|
h = grib_handle_new_from_file(0, fin, &ret);
|
|
if (!h || ret != GRIB_SUCCESS) {
|
|
printf(" unable to create handle\n");
|
|
exit(1);
|
|
}
|
|
|
|
grib_nearest_find_multiple(h, 1, vlat, vlon, npoints,
|
|
outlats, outlons, lsm_values, distances, indexes);
|
|
|
|
grib_handle_delete(h);
|
|
|
|
fclose(fin);
|
|
|
|
for (n = 3; n <= argc - 1; n++) {
|
|
fname = argv[n];
|
|
fin = fopen(fname, "r");
|
|
if (!fin) {
|
|
perror(fname);
|
|
exit(1);
|
|
}
|
|
while ((h = grib_handle_new_from_file(0, fin, &ret)) != NULL) {
|
|
grib_get_double_elements(h, "values", indexes, npoints, values);
|
|
|
|
grib_handle_delete(h);
|
|
for (i = 0; i < npoints; i++)
|
|
printf("%g %g %g %g %g %g\n",
|
|
vlat[i], vlon[i],
|
|
outlats[i], outlons[i],
|
|
lsm_values[i], values[i]);
|
|
}
|
|
|
|
|
|
fclose(fin);
|
|
}
|
|
|
|
|
|
return ret;
|
|
}
|