bug fix for bug that was reintroduced in attenuation merge

NorESMhub · Aug 28, 2024 · d29ee78 · d29ee78
1 parent 9f0ac27
commit d29ee78
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))))