From dc7eaab9f80d48112f209bf27ce31a1d678ce2ef Mon Sep 17 00:00:00 2001
From: Tomas Wilhelmsson <tomas.wilhelmsson@ecmwf.int>
Date: Tue, 23 Apr 2024 18:30:57 +0000
Subject: [PATCH] IFS-3012 Wave assim in MUPTRA

---
 src/ecwam/chkoops.F90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/ecwam/chkoops.F90 b/src/ecwam/chkoops.F90
index 9abad9267..f610f1532 100644
--- a/src/ecwam/chkoops.F90
+++ b/src/ecwam/chkoops.F90
@@ -68,7 +68,9 @@ SUBROUTINE CHKOOPS(LDUPDATEOOPS)
       IF(PRESENT(LDUPDATEOOPS)) LUPDATEOOPS = LDUPDATEOOPS
 
       IF (LUPDATEOOPS .AND. TRIM(IFSCONTEXT) == 'OOPS') THEN
-        ! OOPS-IFS may do wave assimilation only in the outer loop MUPTRA - 1
+        ! OOPS-IFS may do wave assimilation only:
+        !  - in the outer loop MUPTRA - 1
+        !  - in the final traj MUPTRA
         IF (LFRST_OOPS) THEN
           LFRST_OOPS = .FALSE.
           IASSI_ORIG = IASSI
@@ -76,7 +78,7 @@ SUBROUTINE CHKOOPS(LDUPDATEOOPS)
         ENDIF
 
         IF( NTRAJ /= IFSNUPTRA ) THEN
-          IF (IFSNUPTRA /= IFSMUPTRA - 1) THEN
+          IF (IFSNUPTRA < IFSMUPTRA - 1) THEN
             IASSI = 0
             LWAMANOUT = .FALSE.
           ELSE