ww3_setup: clean the code a bit more

erdc · Oct 3, 2024 · af3cd82 · af3cd82
1 parent b4a2419
commit af3cd82
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/model/src/w3wavemd.F90 b/model/src/w3wavemd.F90
@@ -1363,15 +1363,15 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
         END IF
 
 #ifdef W3_SETUP
-       IF (DO_CHANGE_WLV) THEN
-         DO ISEA = 1, NSEA
+       !IF (DO_CHANGE_WLV) THEN
+         !DO ISEA = 1, NSEA
            !write(*,*) 'CHECK WAVE SETUP', WLV(ISEA) + ZETA_SETUP(ISEA), DW(ISEA), ZB(ISEA)
            !WLVeff    = WLV(ISEA) + ZETA_SETUP(ISEA)
            !WLV(ISEA) = WLVeff
            !DW (ISEA) = MAX ( 0. , WLVeff-ZB(ISEA) )
-         ENDDO 
+         !ENDDO 
          !pause
-       END IF
+       !END IF
 #endif
 
 #ifdef W3_DEBUGCOH

diff --git a/model/src/w3wavset.F90 b/model/src/w3wavset.F90
@@ -1755,18 +1755,17 @@ SUBROUTINE TRIG_WAVE_SETUP_COMPUTATION
         ZETA_SETUP(IX) = ZETA_WORK_ALL(IX)
         !WLVeff    = WLV(ISEA) + ZETA_SETUP(ISEA)
         !WLV(ISEA) = WLVeff 
-        WRITE(*,*) DW (IX), MAX ( 0. ,ZETA_WORK_ALL(IX)-ZB(IX) ), ZETA_WORK_ALL(IX), ZB(IX)
+        !WRITE(*,*) DW (IX), MAX ( 0. ,ZETA_WORK_ALL(IX)-ZB(IX) ), ZETA_WORK_ALL(IX), ZB(IX)
         !DW (ISEA) = MAX ( 0. , WLVeff-ZB(ISEA) )
         DW (IX) = MAX ( 0. , ZETA_WORK_ALL(IX) - ZB(IX) )
       END DO
-      PAUSE
       IF (IAPROC .EQ. 1) THEN
         write(6666)  1. 
         write(6667)  1. 
         write(6666)  (ZETA_WORK_ALL(IX), ZETA_WORK_ALL(IX), ZETA_WORK_ALL(IX), IX = 1, NX)
         write(6667)  (ZETA_WORK_ALL(IX), ZETA_WORK_ALL(IX), DW(IX), IX = 1, NX)
       ENDIF
-      WRITE(*,*) SUM(ZETA_WORK_ALL), SUM(ZETA_SETUP), SUM(ZETA_WORK_ALL), SUM(ZETA_WORK), MAXVAL(ZETA_SETUP), MINVAL(ZETA_SETUP), MAXVAL(DW), MINVAL(DW)
+      !WRITE(*,*) SUM(ZETA_WORK_ALL), SUM(ZETA_SETUP), SUM(ZETA_WORK_ALL), SUM(ZETA_WORK), MAXVAL(ZETA_SETUP), MINVAL(ZETA_SETUP), MAXVAL(DW), MINVAL(DW)
 #ifdef W3_DEBUGSTP
       WRITE(740+IAPROC,*) 'Now exiting TRIG_WAVE_SETUP_COMPUTATION'
       FLUSH(740+IAPROC)