fixed bug/typo in initialization of convergence arrays

MODFLOW-USGS · Sep 26, 2023 · 42def28 · 42def28
1 parent 4e0a8dc
commit 42def28
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Solution/ConvergenceSummary.f90 b/src/Solution/ConvergenceSummary.f90
@@ -104,9 +104,9 @@ subroutine set_defaults(this)
       this%itinner(i) = 0
       do j = 1, this%convnmod
         this%convdvmax(j, i) = DZERO
-        this%convlocdv = 0
+        this%convlocdv(j, i) = 0
         this%convdrmax(j, i) = DZERO
-        this%convlocdr = 0
+        this%convlocdr(j, i) = 0
       end do
     end do