diff --git a/examples/C/check_gaussian_grid.c b/examples/C/check_gaussian_grid.c index 0697317c4..d6925af45 100644 --- a/examples/C/check_gaussian_grid.c +++ b/examples/C/check_gaussian_grid.c @@ -29,10 +29,11 @@ int DBL_EQUAL(double d1, double d2, double tolerance) void usage(const char* prog) { - printf("usage: %s file\n",prog); + printf("usage: %s grib_file grib_file ...\n",prog); exit(1); } +/* Print an error message and die */ void error(const char* fmt, ...) { char msg[1024]; @@ -53,24 +54,20 @@ double get_precision(long edition) return 0.0; } -int main(int argc, char** argv) +int process_file(const char* filename) { int err = 0, msg_num = 0; - FILE* in = NULL; - char* filename = NULL; grib_handle *h = NULL; - if (argc != 2) { - usage(argv[0]); - return 1; - } - filename = argv[1]; - in = fopen(filename,"r"); + FILE* in = fopen(filename, "r"); if(!in) { error("ERROR: unable to open input file %s\n",filename); } - - while ((h = grib_handle_new_from_file(0,in,&err)) != NULL ) { + + printf("Checking file %s\n", filename); + + while ((h = grib_handle_new_from_file(0,in,&err)) != NULL ) + { int is_reduced = 0, is_regular = 0, grid_ok = 0; long edition = 0, N = 0, Nj = 0, numberOfDataPoints; size_t len = 0, numberOfValues = 0; @@ -82,7 +79,7 @@ int main(int argc, char** argv) if (err != GRIB_SUCCESS) GRIB_CHECK(err,0); ++msg_num; - printf("Processing GRIB message #%d\n", msg_num); + printf("\tProcessing GRIB message #%d\n", msg_num); len = 32; GRIB_CHECK(grib_get_string(h,"gridType",gridType,&len),0); @@ -90,7 +87,10 @@ int main(int argc, char** argv) is_reduced = STR_EQUAL(gridType, "reduced_gg"); grid_ok = is_regular || is_reduced; if( !grid_ok ) { - error("ERROR: gridType should be Reduced or Regular Gaussian Grid!\n"); + /*error("ERROR: gridType should be Reduced or Regular Gaussian Grid!\n");*/ + printf("\tWARNING: gridType should be Reduced or Regular Gaussian Grid! Ignoring\n"); + grib_handle_delete(h); + continue; } GRIB_CHECK(grib_get_long(h,"edition",&edition),0); @@ -109,6 +109,29 @@ int main(int argc, char** argv) error("ERROR: Nj is %ld but should be 2*N (%ld)!\n", Nj, 2*N); } + if (lon1 != 0) { + error("ERROR: latitudeOfFirstGridPointInDegrees=%f but should be 0!\n", lon1); + } + expected_lon2 = 360.0 - 90.0/N; + if (fabs(lon2 - expected_lon2) > angular_tolerance) { + error("ERROR: longitudeOfLastGridPointInDegrees=%f but should be %f!\n", lon2, expected_lon2); + } + + /* Check first and last latitudes */ + if (lat1 != -lat2) { + error("First latitude must be = last latitude but opposite in sign: lat1=%f, lat2=%f\n", + lat1, lat2); + } + lats = (double*)malloc(sizeof(double)*Nj); + GRIB_CHECK(grib_get_gaussian_latitudes(N,lats), 0); + + if (!DBL_EQUAL(lats[0], lat1, angular_tolerance)) { + error("First latitude %f must be %f\n", lat1, lats[0]); + } + if (!DBL_EQUAL(lats[Nj-1], lat2, angular_tolerance)) { + error("Last latitude %f must be %f\n", lat2, lats[Nj-1]); + } + if (is_reduced) { int pl_sum = 0; size_t i = 0, pl_len = 0; @@ -146,29 +169,6 @@ int main(int argc, char** argv) free(pl); } - if (lon1 != 0) { - error("ERROR: latitudeOfFirstGridPointInDegrees=%f but should be 0!\n", lon1); - } - expected_lon2 = 360.0 - 90.0/N; - if (fabs(lon2 - expected_lon2) > angular_tolerance) { - error("ERROR: longitudeOfLastGridPointInDegrees=%f but should be %f!\n", lon2, expected_lon2); - } - - /* Check first and last latitudes */ - if (lat1 != -lat2) { - error("First latitude must be = last latitude but opposite in sign: lat1=%f, lat2=%f\n", - lat1, lat2); - } - lats = (double*)malloc(sizeof(double)*Nj); - GRIB_CHECK(grib_get_gaussian_latitudes(N,lats), 0); - - if (!DBL_EQUAL(lats[0], lat1, angular_tolerance)) { - error("First latitude %f must be %f\n", lat1, lats[0]); - } - if (!DBL_EQUAL(lats[Nj-1], lat2, angular_tolerance)) { - error("Last latitude %f must be %f\n", lat2, lats[Nj-1]); - } - GRIB_CHECK(grib_get_size(h, "values", &numberOfValues),0); if (numberOfValues != numberOfDataPoints) { error("Number of data points %d different from number of values %d\n", @@ -179,6 +179,25 @@ int main(int argc, char** argv) grib_handle_delete(h); } fclose(in); - printf("\nFile %s OK\n", filename); + printf("\nFile %s OK\n\n", filename); + return 0; +} + +int main(int argc, char** argv) +{ + int i = 0; + + if (argc < 2) { + usage(argv[0]); + return 1; + } + + for(i=0; i