From 4198ee656cf1ef46704d91b8a0d183c8620946c8 Mon Sep 17 00:00:00 2001 From: Joseph Zhang Date: Tue, 24 Sep 2024 13:55:53 -0400 Subject: [PATCH] more updates on WW3-VOR --- src/Hydro/misc_subs.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Hydro/misc_subs.F90 b/src/Hydro/misc_subs.F90 index 1c0cdf01d..fcecbe674 100644 --- a/src/Hydro/misc_subs.F90 +++ b/src/Hydro/misc_subs.F90 @@ -6534,12 +6534,12 @@ SUBROUTINE STOKES_STRESS_INTEGRAL_SCHISM D_loc = max(znl(nvrt,ip)-znl(kbp(ip),ip),hmin_radstress) !>0 !new40 - jpress(ip)=wave_pres(ip)/rho0 !needs to be [m2/s2] + jpress(ip)=wave_pres(ip) !/rho0 !needs to be [m2/s2] k_loc=wave_wnm(ip) !MIN(KDMAX/DEP(IP),WK(IS,IP)) kD_loc=k_loc*D_loc !MIN(KDMAX,WK(IS,IP)*D_loc) IF(kD_loc <= 0) THEN - WRITE(errmsg,*)'WWM: kD_loc<=0' + WRITE(errmsg,*)'WW3: kD_loc<=0:',jpress(ip),k_loc,kD_loc CALL parallel_abort(errmsg) END IF