Bugfix - initialised VD and VS to zero in w3srcemd. (#1037)

NOAA-EMC · Jul 7, 2023 · 17a4e32 · 17a4e32
1 parent 3eb8161
commit 17a4e32
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/model/src/w3srcemd.F90 b/model/src/w3srcemd.F90
@@ -828,6 +828,9 @@ SUBROUTINE W3SRCE ( srce_call, IT, ISEA, JSEA, IX, IY, IMOD,          &
 #ifdef W3_T
     FLTEST = .TRUE.
 #endif
+    !
+    VD     = 0.   ! VS and VD definitely need initialising.
+    VS     = 0.
     !
     VDIO   = 0.
     VSIO   = 0.