Removed code referencing PHIOC in output section for PHICE in ww3_ounf (

NOAA-EMC#1093)
JessicaMeixner-NOAA · Oct 18, 2023 · 66262f6 · 66262f6
1 parent d148d09
commit 66262f6
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/model/src/ww3_ounf.F90 b/model/src/ww3_ounf.F90
@@ -1815,9 +1815,6 @@ SUBROUTINE W3EXNC ( NX, NY, IX1, IXN, IY1, IYN, NSEA,             &
             ! Wave to sea ice energy flux
           ELSE IF ( IFI .EQ. 6 .AND. IFJ .EQ. 11 ) THEN
             IF (NCVARTYPEI.EQ.3) NCVARTYPE=4
-            DO ISEA=1, NSEA
-              PHIOC(ISEA)=MIN(3000.,PHIOC(ISEA))
-            END DO
             CALL S2GRID(PHICE(1:NSEA), X1)
             !
             ! Partitioned surface stokes drift