Initialised S and D arrays in W3SDB1 before potential early return if zero energy. (#1115)

ukmo-ccbunney · web-flow · commit c3451a9a83ee · 2023-11-01T17:28:47.000-04:00
diff --git 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

Original file line number	Diff line number	Diff line change
`@@ -232,12 +232,12 @@ SUBROUTINE W3SDB1 (IX, A, DEPTH, EMEAN, FMEAN, WNMEAN, CG, LBREAK, S, D )`
`232`	`232`	`!`
`233`	`233`	`! 0. Initialzations ------------------------------------------------- /`
`234`	`234`	`! Never touch this 4 lines below ... otherwise my exceptionhandling will not work.`
	`235`	`+ S = 0.`
	`236`	`+ D = 0.`
`235`	`237`
`236`	`238`	`THR = DBLE(1.E-15)`
`237`	`239`	`IF (SUM(A) .LT. THR) RETURN`
`238`	`240`
`239`		`- S = 0.`
`240`		`- D = 0.`
`241`	`241`	`IWB = 1`
`242`	`242`	`!`
`243`	`243`	`#ifdef W3_T`