fix compilation problem

NorESMhub · Jul 25, 2024 · 532fb76 · 532fb76
1 parent 73aad05
commit 532fb76
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/model/src/w3sic4md.F90 b/model/src/w3sic4md.F90
@@ -444,7 +444,7 @@ SUBROUTINE W3SIC4 (A, DEPTH, CG, IX, IY, S, D)
     REAL                    :: x1,x2,x3,x1sqr,x2sqr,x3sqr   !case 8
     REAL                    :: perfour,amhb,bmhb            !case 8
     REAL                    :: CICE1,CICE2,CICE3,CICE4,CICE5 ! temporary variables
-    REAL                    :: KI1,KI2,KI3,KI4,FC5,FC6,FC7,FREQ
+    REAL                    :: KI1,KI2,KI3,KI4,FC5,FC6,FC7
     REAL                    :: HS, EMEAN, HICE
     REAL                    :: Chf,mpow,npow
     REAL, ALLOCATABLE       :: WN_I(:)  ! exponential decay rate for amplitude