add warning for op_mono findne failures caused by being off tables

evbauer · evbauer · commit 58cc92bc3a88 · 2023-12-13T18:29:17.000-05:00
diff --git a/kap/private/op_common.f b/kap/private/op_common.f
@@ -126,6 +126,8 @@ subroutine findne(ilab, fa, nel, nkz, jhmin, jhmax, ih,
 c      
 c  Check range of flrho
       if(flrho .lt. flrmin .or. flrho .gt. flrmax)then
+         write(*,*) "findne failed because density is out of range for logT, logRho", flt, flrho
+         write(*,*) "Allowed range for logRho is",flrmin," to ",flrmax
          ierr = 101
          return
       endif

Original file line number	Diff line number	Diff line change
`@@ -126,6 +126,8 @@ subroutine findne(ilab, fa, nel, nkz, jhmin, jhmax, ih,`
`126`	`126`	`c`
`127`	`127`	`c Check range of flrho`
`128`	`128`	`if(flrho .lt. flrmin .or. flrho .gt. flrmax)then`
	`129`	`+ write(,) "findne failed because density is out of range for logT, logRho", flt, flrho`
	`130`	`+ write(,) "Allowed range for logRho is",flrmin," to ",flrmax`
`129`	`131`	`ierr = 101`
`130`	`132`	`return`
`131`	`133`	`endif`