From d29ee781d34ec49a4a115226d52260759d666c69 Mon Sep 17 00:00:00 2001 From: Mariana Vertenstein Date: Wed, 28 Aug 2024 21:40:15 +0200 Subject: [PATCH] bug fix for bug that was reintroduced in attenuation merge --- model/src/w3iogomd.F90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/model/src/w3iogomd.F90 b/model/src/w3iogomd.F90 index 48a6cf95c..7680d876d 100644 --- a/model/src/w3iogomd.F90 +++ b/model/src/w3iogomd.F90 @@ -2170,9 +2170,6 @@ SUBROUTINE W3OUTG ( A, FLPART, FLOUTG, FLOUTG2 ) /0.4*LOG(MAX(ABS(HML(IX,IY)/4./HS(JSEA)),1.0))+COS(SWW))) end if - - ALPHALS(JSEA) = ATAN( SIN(SWW) / ( LANGMT(JSEA)**2 & - /0.4*LOG(MAX(ABS(HML(IX,IY)/4./HS(JSEA)),1.0))+COS(SWW))) LAPROJ(JSEA) = LANGMT(JSEA) & * SQRT(ABS(COS(ALPHALS(JSEA))) & / ABS(COS(SWW-ALPHALS(JSEA))))