Skip to content

Commit

Permalink
(*)Fix Stokes drift spectrum rescaling
Browse files Browse the repository at this point in the history
  Eliminated unneeded rescaling factors when setting the surface Stokes drift
spectrum variables (UStk_Hb and VStk_Hb) from forces%[UV]Stkb in
Update_Surface_Waves.  This bug appears to have been introduced when merging in
code that updates the Stokes drifts that was added on one branch (dev/ncar)
separately from changes in how these Stokes drifts are scaled in the
mech_forcing type on anther branch (dev/gfdl), although it might just have been
an oversight during refactoring.  All answers are bitwise identical when no
dimensional rescaling is being used, but answers could change for some uncommon
cases using the Stokes drift spectrum when dimensional rescaling is applied.
  • Loading branch information
Hallberg-NOAA committed Apr 2, 2024
1 parent f9372f3 commit 93654b8
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/user/MOM_wave_interface.F90
Original file line number Diff line number Diff line change
Expand Up @@ -717,8 +717,8 @@ subroutine Update_Surface_Waves(G, GV, US, Time_present, dt, CS, forces)
do i=G%isc,G%iec
!CS%Omega_w2x(i,j) = forces%omega_w2x(i,j)
do b=1,CS%NumBands
CS%UStk_Hb(i,j,b) = US%m_s_to_L_T*forces%UStkb(i,j,b)
CS%VStk_Hb(i,j,b) = US%m_s_to_L_T*forces%VStkb(i,j,b)
CS%UStk_Hb(i,j,b) = forces%UStkb(i,j,b)
CS%VStk_Hb(i,j,b) = forces%VStkb(i,j,b)
enddo
enddo
enddo
Expand Down

0 comments on commit 93654b8

Please sign in to comment.