From d148d0906a57487933a8a7e9466da8c293f962ce Mon Sep 17 00:00:00 2001
From: Chris Bunney <48915820+ukmo-ccbunney@users.noreply.github.com>
Date: Mon, 16 Oct 2023 22:04:50 +0100
Subject: [PATCH] Update local unit number arrays (NDS, MDS) to be same size of
 array defined in w3odatmd (size=15). Also, defined unit numbers for NDS(14)
 and NDS(15). (#1098)

---
 model/src/w3initmd.F90 | 2 +-
 model/src/ww3_shel.F90 | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/model/src/w3initmd.F90 b/model/src/w3initmd.F90
index 50f0680ad..93218d473 100644
--- a/model/src/w3initmd.F90
+++ b/model/src/w3initmd.F90
@@ -456,7 +456,7 @@ SUBROUTINE W3INIT ( IMOD, IsMulti, FEXT, MDS, MTRACE, ODAT, FLGRD,  FLGR2, FLGD,
     !/ ------------------------------------------------------------------- /
     !/ Parameter list
     !/
-    INTEGER, INTENT(IN)           :: IMOD, MDS(13), MTRACE(2),      &
+    INTEGER, INTENT(IN)           :: IMOD, MDS(15), MTRACE(2),      &
          ODAT(40),NPT, IPRT(6),&
          MPI_COMM
     LOGICAL, INTENT(IN)           :: IsMulti
diff --git a/model/src/ww3_shel.F90 b/model/src/ww3_shel.F90
index d7e9790bb..ee3464f44 100644
--- a/model/src/ww3_shel.F90
+++ b/model/src/ww3_shel.F90
@@ -329,7 +329,7 @@ PROGRAM W3SHEL
        NDSEN, IERR, J, I, ILOOP, IPTS, NPTS,     &
        NDTNEW, MPI_COMM = -99,                   &
        FLAGTIDE, COUPL_COMM, IH, N_TOT
-  INTEGER             :: NDSF(-7:9), NDS(13), NTRACE(2), NDT(7:9), &
+  INTEGER             :: NDSF(-7:9), NDS(15), NTRACE(2), NDT(7:9), &
        TIME0(2), TIMEN(2), TTIME(2), TTT(2),     &
        NH(-7:10), THO(2,-7:10,NHMAX), RCLD(7:9), &
        NODATA(7:9), ODAT(40), IPRT(6) = 0,       &
@@ -600,6 +600,9 @@ PROGRAM W3SHEL
   NDS(11) = 22
   NDS(12) = 23
   NDS(13) = 34
+  NDS(14) = 36
+  NDS(15) = 37
+
   !
   NTRACE(1) =  NDS(3)
   NTRACE(2) =  10