Initialised S and D arrays in W3SDB1 before potential early return if…

… zero energy. (#1115)
NOAA-EMC · Nov 1, 2023 · c3451a9 · c3451a9
1 parent 4cd995d
commit c3451a9
Showing 1 changed file with 2 additions and 2 deletions.
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