ww3_shom: fixing a bug ...

erdc · Jan 15, 2025 · cb3e687 · cb3e687
1 parent 8024526
commit cb3e687
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/model/src/w3wavset.F90 b/model/src/w3wavset.F90
@@ -1756,7 +1756,7 @@ SUBROUTINE TRIG_WAVE_SETUP_COMPUTATION
         !WLV(ISEA) = WLVeff 
         !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) )
+        DW (IX) = MAX ( 0. , WLV(ISEA) + ZETA_SETUP(IX) - ZB(IX) )
       END DO
 !      IF (IAPROC .EQ. 1) THEN
 !        write(6666)  1.