fix(gwf3chd8.f90): ensure that error message reports the correct value

MODFLOW-USGS · Nov 3, 2023 · 52be48b · 52be48b
1 parent 688d45f
commit 52be48b
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