From 8f40023750a8b3e24ad0d34114a2591307147065 Mon Sep 17 00:00:00 2001 From: Ryan Cabell Date: Thu, 20 Jun 2024 14:14:31 -0600 Subject: [PATCH] Fix incorrect netCDF error handling --- src/Routing/Diversions/module_diversions.F | 2 +- trunk/NDHMS | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) delete mode 120000 trunk/NDHMS diff --git a/src/Routing/Diversions/module_diversions.F b/src/Routing/Diversions/module_diversions.F index 79d697507..9e118de75 100644 --- a/src/Routing/Diversions/module_diversions.F +++ b/src/Routing/Diversions/module_diversions.F @@ -97,7 +97,7 @@ subroutine init_diversions(diversions_file, timeslice_path) ierr = ierr + nf90_get_var(ncid, fraction_vid, div%fraction, start=(/i/)) ierr = ierr + nf90_get_var(ncid, lookback_vid, div%lookback, start=(/i/)) - if (ierr > 0) call hydro_stop("Error occurred reading diversion variables from diversion file") + if (ierr /= 0) call hydro_stop("Error occurred reading diversion variables from diversion file") end associate end do diff --git a/trunk/NDHMS b/trunk/NDHMS deleted file mode 120000 index e057607ed..000000000 --- a/trunk/NDHMS +++ /dev/null @@ -1 +0,0 @@ -../src/ \ No newline at end of file