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))))