From 7d3f095d5b9c0881c64e1a8f2bd81d370e22940a Mon Sep 17 00:00:00 2001
From: Jean Bidlot <jean.bidlot@ecmwf.int>
Date: Thu, 2 Jul 2026 15:15:39 +0000
Subject: [PATCH] Protection of IJ variable in OpenMP loops

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

diff --git a/src/ecwam/propag_wam.F90 b/src/ecwam/propag_wam.F90
index b13655a8a..0fab680e6 100644
--- a/src/ecwam/propag_wam.F90
+++ b/src/ecwam/propag_wam.F90
@@ -119,7 +119,7 @@ SUBROUTINE PROPAG_WAM (BLK2GLO, WAVNUM, CGROUP, OMOSNH2KD, FL1, &
 #ifdef _OPENACC
         !$acc parallel loop gang private(KIJS, IJSB, KIJL, IJLB) vector_length(NPROMA_WAM)
 #else
-!$OMP   PARALLEL DO SCHEDULE(STATIC) PRIVATE(ICHNK, KIJS, IJSB, KIJL, IJLB, M, K)
+!$OMP   PARALLEL DO SCHEDULE(STATIC) PRIVATE(ICHNK, KIJS, IJSB, KIJL, IJLB, M, K, IJ)
 #endif /*_OPENACC*/
         DO ICHNK = 1, NCHNK
           KIJS = 1