From 856974a8d484e22743d5ec11f9e660696e0e0189 Mon Sep 17 00:00:00 2001
From: Marek M <78804960+Marek-Muchow@users.noreply.github.com>
Date: Tue, 29 Sep 2026 15:59:19 +0200
Subject: [PATCH 1/2] Update icedrv_init.F90 to read in dynamics_nml

The dynamics_nml was defined, but not loaded from icepack_in. Thus, the variables in dynamics_nml were always set to the default parameters.
---
 configuration/driver/icedrv_init.F90 | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90
index 2566f292..870e6077 100644
--- a/configuration/driver/icedrv_init.F90
+++ b/configuration/driver/icedrv_init.F90
@@ -468,6 +468,20 @@ subroutine input_data
             file=__FILE__, line=__LINE__)
       endif
 
+      rewind(unit=nu_nml, iostat=nml_error)
+      if (nml_error /= 0) then
+         call icedrv_system_abort(string=subname//'ERROR: dynamics_nml rewind ', &
+            file=__FILE__, line=__LINE__)
+      endif
+      nml_error =  1
+      do while (nml_error > 0)
+         read(nu_nml, nml=dynamics_nml,iostat=nml_error)
+      end do
+      if (nml_error /= 0) then
+         call icedrv_system_abort(string=subname//'ERROR: dynamics_nml reading ', &
+            file=__FILE__, line=__LINE__)
+      endif
+
       close(nu_nml)
 
       !-----------------------------------------------------------------

From 84e8b6b3b117a0a0eb97cbf13b7d6d751a6af99e Mon Sep 17 00:00:00 2001
From: Marek M <78804960+Marek-Muchow@users.noreply.github.com>
Date: Thu, 1 Oct 2026 09:17:12 +0200
Subject: [PATCH 2/2] Update icedrv_init.F90 to fix inconsistency in reading
 the dynamics_nml

---
 configuration/driver/icedrv_init.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90
index 870e6077..b9aa6cf7 100644
--- a/configuration/driver/icedrv_init.F90
+++ b/configuration/driver/icedrv_init.F90
@@ -468,6 +468,7 @@ subroutine input_data
             file=__FILE__, line=__LINE__)
       endif
 
+      write(nu_diag,*) subname,' Reading dynamics_nml'
       rewind(unit=nu_nml, iostat=nml_error)
       if (nml_error /= 0) then
          call icedrv_system_abort(string=subname//'ERROR: dynamics_nml rewind ', &