From c20f2e1eb4c3adf042c4e836056cdd02d45c4b70 Mon Sep 17 00:00:00 2001
From: "ukmo-chris.bunney" <christopher.bunney@metoffice.gov.uk>
Date: Wed, 1 Nov 2023 10:15:15 +0000
Subject: [PATCH] Initialised `S` and `D` arrays in W3SDB1 before potential
 early return if zero energy.

---
 model/src/w3sdb1md.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/model/src/w3sdb1md.F90 b/model/src/w3sdb1md.F90
index c297e85221..34c7ec3bfb 100644
--- a/model/src/w3sdb1md.F90
+++ b/model/src/w3sdb1md.F90
@@ -232,12 +232,12 @@ SUBROUTINE W3SDB1 (IX, A, DEPTH, EMEAN, FMEAN, WNMEAN, CG, LBREAK, S, D )
     !
     ! 0.  Initialzations ------------------------------------------------- /
     !     Never touch this 4 lines below ... otherwise my exceptionhandling will not work.
+    S = 0.
+    D = 0.
 
     THR = DBLE(1.E-15)
     IF (SUM(A) .LT. THR) RETURN
 
-    S = 0.
-    D = 0.
     IWB = 1
     !
 #ifdef W3_T