From 8b31c31fb1dcf9da05fd745707ea94f2052fa01e Mon Sep 17 00:00:00 2001 From: Biao Zhao Date: Tue, 4 Mar 2025 11:35:12 +0100 Subject: [PATCH] Update w3srcemd.F90 To calculate the increment of spectrum, we should use the source term VSTR rather than VDTR --- model/src/w3srcemd.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/model/src/w3srcemd.F90 b/model/src/w3srcemd.F90 index eeb2a95a1a..f160c2ea4d 100644 --- a/model/src/w3srcemd.F90 +++ b/model/src/w3srcemd.F90 @@ -1698,7 +1698,7 @@ SUBROUTINE W3SRCE ( srce_call, IT, ISEA, JSEA, IX, IY, IMOD, & #endif #ifdef W3_TR1 DO IS=IS1, NSPECH - eInc1 = VDTR(IS) * DT / MAX ( 1. , (1.-HDT*VDTR(IS))) + eInc1 = VSTR(IS) * DT / MAX ( 1. , (1.-HDT*VDTR(IS))) SPEC(IS) = MAX ( 0. , SPEC(IS)+eInc1 ) END DO #endif