Fix incorrect netCDF error handling

NCAR · Jun 20, 2024 · 8f40023 · 8f40023
1 parent 57141f7
commit 8f40023
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git 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