update chd error to report head value that failed check

MODFLOW-USGS · Nov 3, 2023 · 054bba3 · 054bba3
1 parent b88f097
commit 054bba3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Model/GroundWaterFlow/gwf3chd8.f90 b/src/Model/GroundWaterFlow/gwf3chd8.f90
@@ -231,7 +231,7 @@ subroutine chd_ck(this)
       ! -- accumulate errors
       if (this%head_mult(i) < bt .and. this%icelltype(node) /= 0) then
         call this%dis%noder_to_string(node, nodestr)
-        write (errmsg, fmt=fmtchderr) i, this%head(i), bt, trim(nodestr)
+        write (errmsg, fmt=fmtchderr) i, this%head_mult(i), bt, trim(nodestr)
         call store_error(errmsg)
       end if
     end do