From c1381c1b1f5905e4363c20d91d2bcad142c49beb Mon Sep 17 00:00:00 2001
From: Tim Michaels <tmichaels@wisc.edu>
Date: Wed, 20 Jul 2022 20:58:26 +0000
Subject: [PATCH] Fatal error if GFS de-GRIB invoked without support
No de-GRIB is possible if the executable was not compiled with de-GRIB
support.
---
main_src/gfs_hdf_mod.f90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/main_src/gfs_hdf_mod.f90 b/main_src/gfs_hdf_mod.f90
index 25a18110..2596ccaf 100644
--- a/main_src/gfs_hdf_mod.f90
+++ b/main_src/gfs_hdf_mod.f90
@@ -571,6 +571,10 @@ module GFS_HDF_MOD
! --- close files
call grib_close(grib_id_1)
call grib_close(grib_id_2)
+#else
+ print *, 'ERROR: this executable was compiled without de-GRIB support,'
+ print *, ' and so cannot ingest GRIB-format files.'
+ stop 1
#endif /* end:DEGRIB */
else
--
GitLab