Tem fix for wave # in WW3 (for init call)

schism-dev · Sep 25, 2024 · d9b1f77 · d9b1f77
1 parent 4198ee6
commit d9b1f77
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Hydro/misc_subs.F90 b/src/Hydro/misc_subs.F90
@@ -6485,6 +6485,9 @@ SUBROUTINE get_WW3_arrays(WW3__OHS,WW3__DIR,WW3_T0M1,WW3__WNM,WW3__BHD,WW3_USSX,
           call parallel_abort(errmsg)
         endif
 
+        !Temp fixes
+        where(wave_wnm<=0.d0) wave_wnm=0.16d0
+
         !Compute wave forces
         ! Compute Stokes drift velocities and pressure terms
         call STOKES_STRESS_INTEGRAL_SCHISM