Remove duplicate zeroing in sinput_jan

ecmwf-ifs · Mar 26, 2024 · 10ac544 · 10ac544
1 parent c13bf6a
commit 10ac544
Showing 1 changed file with 0 additions and 4 deletions.
diff --git 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