bugfix on WHITECAP initialization

NOAA-EMC · Nov 21, 2023 · 77619fe · 77619fe
1 parent 8ff8d22
commit 77619fe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/model/src/w3src4md.F90 b/model/src/w3src4md.F90
@@ -2520,7 +2520,7 @@ SUBROUTINE W3SDS4 (A, K, CG, USTAR, USDIR, DEPTH, DAIR, SRHS,    &
       RETURN
     END IF
     !
-    WHITECAP(1:2) = 0.
+    WHITECAP(1:4) = 0.
     !
     ! precomputes integration of Lambda over direction
     ! times wavelength times a (a=5 in Reul&Chapron JGR 2003) times dk