From 6f6534625f9be44bc4aaaa339f64059a938be971 Mon Sep 17 00:00:00 2001 From: Aron Roland Date: Tue, 16 Jan 2024 21:52:26 +0100 Subject: [PATCH] init_bugs2: remove init emean --- model/src/w3str1md.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/model/src/w3str1md.F90 b/model/src/w3str1md.F90 index 00a55c431..03cad7aeb 100644 --- a/model/src/w3str1md.F90 +++ b/model/src/w3str1md.F90 @@ -259,7 +259,6 @@ SUBROUTINE W3STR1 (A, CG, WN, DEPTH, IX, S, D) ! CG R.A. I Group velocities. ! WN R.A. I Wavenumbers. ! DEPTH Real I Mean water depth. - ! EMEAN Real I Mean wave energy. ! FMEAN Real I Mean wave frequency. ! S R.A. O Source term (1-D version). ! D R.A. O Diagonal term of derivative (1-D version). @@ -320,7 +319,7 @@ SUBROUTINE W3STR1 (A, CG, WN, DEPTH, IX, S, D) !/ ------------------------------------------------------------------- / !/ Parameter list !/ - REAL, INTENT(IN) :: CG(NK), WN(NK), DEPTH, A(NSPEC), EMEAN + REAL, INTENT(IN) :: CG(NK), WN(NK), DEPTH, A(NSPEC) INTEGER, INTENT(IN) :: IX REAL, INTENT(OUT) :: S(NSPEC), D(NSPEC) !/