From 66262f6222cf9736729e0f9d48f9d3c7112cb1b6 Mon Sep 17 00:00:00 2001
From: Chris Bunney <48915820+ukmo-ccbunney@users.noreply.github.com>
Date: Wed, 18 Oct 2023 14:09:26 +0100
Subject: [PATCH] Removed code referencing PHIOC in output section for PHICE in
 ww3_ounf (#1093)

---
 model/src/ww3_ounf.F90 | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/model/src/ww3_ounf.F90 b/model/src/ww3_ounf.F90
index f6a928e31..02fd0d6f8 100644
--- 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