fix(lak): initialize chdratin and chdratout to zero (#286)

MODFLOW-USGS · Jan 8, 2020 · 78a3c13 · 78a3c13
1 parent b81a177
commit 78a3c13
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Model/GroundWaterFlow/gwf3lak8.f90 b/src/Model/GroundWaterFlow/gwf3lak8.f90
@@ -3945,6 +3945,8 @@ subroutine lak_bd(this, x, idvfl, icbcfl, ibudfl, icbcun, iprobs,            &
                              iadv=1)
     !
     ! -- calculate several budget terms
+    chratin = DZERO
+    chratout = DZERO
     do n = 1, this%nlakes
       this%chterm(n) = DZERO
       if (this%iboundpak(n) == 0) cycle