Add more debugging output on Fortran call of grib_dump()

This commit is contained in:
Shahram Najm 2017-10-26 17:21:59 +01:00
parent 1dd764113e
commit b4a3347cd8
1 changed files with 5 additions and 0 deletions

View File

@ -1914,6 +1914,11 @@ int grib_f_release(int* hid){
/*****************************************************************************/ /*****************************************************************************/
static void do_the_dump(grib_handle* h) static void do_the_dump(grib_handle* h)
{ {
/* Add some debugging info too */
printf("ecCodes version: "); grib_print_api_version(stdout); printf("\n");
printf("Definitions path: %s\n", grib_definition_path(NULL));
printf("Samples path: %s\n", grib_samples_path(NULL));
if (h->product_kind == PRODUCT_GRIB) if (h->product_kind == PRODUCT_GRIB)
{ {
const int dump_flags = GRIB_DUMP_FLAG_VALUES const int dump_flags = GRIB_DUMP_FLAG_VALUES