From 10ac544fc19e6ae987ed317f02dcd9b3e629e028 Mon Sep 17 00:00:00 2001
From: Ahmad Nawab <ahmad.nawab@ecmwf.int>
Date: Tue, 26 Mar 2024 09:29:37 +0000
Subject: [PATCH] Remove duplicate zeroing in sinput_jan

---
 src/ecwam/sinput_jan.F90 | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/src/ecwam/sinput_jan.F90 b/src/ecwam/sinput_jan.F90
index 7e41703b..4f9377a8 100644
--- a/src/ecwam/sinput_jan.F90
+++ b/src/ecwam/sinput_jan.F90
@@ -302,10 +302,6 @@ SUBROUTINE SINPUT_JAN (NGST, LLSNEG, KIJS, KIJL, FL1 , &
             XLLWS(IJ,K,M)= 0.0_JWRB
           ENDDO
 
-          DO IJ=KIJS,KIJL
-            XLLWS(IJ,K,M)= 0.0_JWRB
-          ENDDO
-
           DO IGST=1,NGST
             DO IJ=KIJS,KIJL
               IF (LZ(IJ,K)) THEN