Adding error handling debug statements.

mwaxmonsky · Jul 19, 2024 · 223f3fe · 223f3fe
1 parent c81084a
commit 223f3fe
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/dynamics/utils/hycoef.F90 b/src/dynamics/utils/hycoef.F90
@@ -416,6 +416,9 @@ subroutine hycoef_read(File)
       end if
    end if
    ierr = PIO_Inq_dimlen(File, lev_dimid, flev)
+   if (ierr /= PIO_NOERR) then
+      call endrun(routine//': ERROR: Failed to inquire dimension length of flev in ncdata or restart file.')
+   end if
    if (pver /= flev) then
       write(iulog,*) routine//': ERROR: file lev does not match model. lev (file, model):',flev, pver
       call endrun(routine//': ERROR: file lev does not match model.')
@@ -429,6 +432,9 @@ subroutine hycoef_read(File)
       end if
    end if
    ierr = PIO_Inq_dimlen(File, lev_dimid, filev)
+   if (ierr /= PIO_NOERR) then
+      call endrun(routine//': ERROR: Failed to inquire dimension length of filev in ncdata or restart file.')
+   end if
    if (pverp /= filev) then
       write(iulog,*) routine//':ERROR: file ilev does not match model ilev (file, model):',filev, pverp
       call endrun(routine//':ERROR: file ilev does not match model.')