style(npf): cleanup old comment (#1574)

langevin-usgs · web-flow · commit 832c0423ef0e · 2024-01-25T06:57:13.000-06:00
diff --git a/src/Model/GroundWaterFlow/gwf3npf8.f90 b/src/Model/GroundWaterFlow/gwf3npf8.f90
@@ -2273,7 +2273,6 @@ subroutine sgwf_npf_wetdry(this, kiter, hnew)
       thck = ttop - bbot
       !
       ! -- If thck<0 print message, set hnew, and ibound
-!      if(thck<0) then
       if (thck <= DZERO) then
         call this%wdmsg(1, ncnvrt, nodcnvrt, acnvrt, ihdcnv, kiter, n)
         hnew(n) = this%hdry

Original file line number	Diff line number	Diff line change
`@@ -2273,7 +2273,6 @@ subroutine sgwf_npf_wetdry(this, kiter, hnew)`
`2273`	`2273`	`thck = ttop - bbot`
`2274`	`2274`	`!`
`2275`	`2275`	`! -- If thck<0 print message, set hnew, and ibound`
`2276`		`-! if(thck<0) then`
`2277`	`2276`	`if (thck <= DZERO) then`
`2278`	`2277`	`call this%wdmsg(1, ncnvrt, nodcnvrt, acnvrt, ihdcnv, kiter, n)`
`2279`	`2278`	`hnew(n) = this%hdry`