WAVEMDL: fix bounds checking bug

ecmwf-ifs · Dec 8, 2024 · c0ac31f · c0ac31f
1 parent f235bf0
commit c0ac31f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ecwam/wavemdl.F90 b/src/ecwam/wavemdl.F90
@@ -954,7 +954,7 @@ SUBROUTINE WAVEMDL (CBEGDAT, PSTEP, KSTOP, KSTPW,                 &
           ALLOCATE(ZCOMCNT(NPROC))
           ZCOMCNT=NCOMLOC
           CALL MPL_GATHERV(PSENDBUF=ZCOMBUFS(IST:IED),KROOT=IRECV,      &
-     &                    PRECVBUF=ZCOMBUFR(:),KRECVCOUNTS=ZCOMCNT,     &
+     &                    PRECVBUF=ZCOMBUFR,KRECVCOUNTS=ZCOMCNT,     &
      &                    CDSTRING='WAVEMDL:')
           DEALLOCATE(ZCOMCNT)