fix(gwf3lak8): error trap for outlet lakein incorrectly compared agai…

…nst noutlet instead of nlak Addresses issue MODFLOW-USGS#200
langevin-usgs · Oct 10, 2019 · 9dc0787 · 9dc0787
1 parent 950f875
commit 9dc0787
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Model/GroundWaterFlow/gwf3lak8.f90 b/src/Model/GroundWaterFlow/gwf3lak8.f90
@@ -1396,10 +1396,10 @@ subroutine lak_read_outlets(this)
           !
           ! -- read outlet lakein
           ival = this%parser%GetInteger()
-          if (ival <1 .or. ival > this%noutlets) then
+          if (ival <1 .or. ival > this%nlakes) then
             write(errmsg,'(4x,a,1x,i4,1x,a,1x,i6)') &
               '****ERROR. lakein FOR OUTLET ', n, 'MUST BE > 0 and <= ',        &
-              this%noutlets
+              this%nlakes
             call store_error(errmsg)
             cycle readoutlet
           end if
@@ -1410,7 +1410,7 @@ subroutine lak_read_outlets(this)
           if (ival <0 .or. ival > this%nlakes) then
             write(errmsg,'(4x,a,1x,i4,1x,a,1x,i6)') &
               '****ERROR. lakeout FOR OUTLET ', n, 'MUST BE >= 0 and <= ',      &
-              this%noutlets
+              this%nlakes
             call store_error(errmsg)
             cycle readoutlet
           end if