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