ww3_ig: more cleaning

erdc · Feb 9, 2024 · 12f9474 · 12f9474
1 parent b6f707e
commit 12f9474
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/model/src/w3iogomd.F90 b/model/src/w3iogomd.F90
@@ -1548,9 +1548,6 @@ SUBROUTINE W3OUTG ( A, FLPART, FLOUTG, FLOUTG2 )
 #ifdef W3_IG1
         IF (IK.EQ.NINT(IGPARS(5))) THEN
           HSIG(JSEA) = 4*SQRT(ET(JSEA))
-          IF (IPLG(JSEA) == DEBUG_NODE) THEN
-            WRITE(*,*) IPLG(JSEA), HSIG(JSEA)
-          ENDIF
         ENDIF
 #endif
         ETF(JSEA)  = ETF(JSEA) + EBD(IK,JSEA) * CG(IK,ISEA)