IFS-3012 Wave assim in MUPTRA

ecmwf-ifs · Apr 23, 2024 · dc7eaab · dc7eaab
1 parent 3d367db
commit dc7eaab
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/ecwam/chkoops.F90 b/src/ecwam/chkoops.F90
@@ -68,15 +68,17 @@ 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
           LWAMANOUT_ORIG = LWAMANOUT
         ENDIF
 
         IF( NTRAJ /= IFSNUPTRA ) THEN
-          IF (IFSNUPTRA /= IFSMUPTRA - 1) THEN
+          IF (IFSNUPTRA < IFSMUPTRA - 1) THEN
             IASSI = 0
             LWAMANOUT = .FALSE.
           ELSE