From 42def28c0ad359359e917bf5a4c87ad7b0abbba5 Mon Sep 17 00:00:00 2001
From: mjr-deltares <martijn.russcher@deltares.nl>
Date: Tue, 26 Sep 2023 19:01:27 +0200
Subject: [PATCH] fixed bug/typo in initialization of convergence arrays

---
 src/Solution/ConvergenceSummary.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Solution/ConvergenceSummary.f90 b/src/Solution/ConvergenceSummary.f90
index 06e15c0c5e4..5e85ccc7aaf 100644
--- 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