From 77619fe294054dea62d78f277c480e3b6095894a Mon Sep 17 00:00:00 2001
From: ma05cde <mickael.accensi@ifremer.fr>
Date: Tue, 21 Nov 2023 14:21:14 +0000
Subject: [PATCH] bugfix on WHITECAP initialization

---
 model/src/w3src4md.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/model/src/w3src4md.F90 b/model/src/w3src4md.F90
index e2bf12c9a..a1d4423bf 100644
--- 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