Merge pull request #16 from mvertens/feature/bug_fix

bug fix for bug that was reintroduced in attenuation merge
NorESMhub · Aug 29, 2024 · 4bc7b20 · 4bc7b20
2 parents 9f0ac27 + d29ee78
commit 4bc7b20
Showing 1 changed file with 0 additions and 3 deletions.
diff --git 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))))