Bugfix/negative_peak_frequency: Add IS2 flag to avoid uninitialized c…

…alculation in ww3_outp
NOAA-EMC · Jul 21, 2022 · 5bce5e6 · 5bce5e6
1 parent f8e55f1
commit 5bce5e6
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/model/src/ww3_outp.F90 b/model/src/ww3_outp.F90
@@ -1439,10 +1439,10 @@ SUBROUTINE W3EXPO
             RHOAIR   = MAX ( 0. , DAIRO(J))
 #endif
             CDIR     = MOD ( 270. - CDO(J)*RADE , 360. )
-            ICEDMAX  = MAX ( 0., ICEFO(J))
-            ICEF     = ICEDMAX
-            ICETHICK = MAX (0., ICEHO(J))
-            ICECON   = MAX (0., ICEO(J))
+!/IS2            ICEDMAX  = MAX ( 0., ICEFO(J))
+!/IS2            ICEF     = ICEDMAX
+!/IS2            ICETHICK = MAX (0., ICEHO(J))
+!/IS2            ICECON   = MAX (0., ICEO(J))
 !
 #ifdef W3_STAB2
             STAB0  = ZWIND * GRAV / 273.