From dcb1deeb3c1d6b39b061a92050bedd647fcb17c6 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Fri, 21 Jun 2024 13:32:48 -0600 Subject: [PATCH] Uncomment copy of omega_w2x into CS --- src/user/MOM_wave_interface.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/user/MOM_wave_interface.F90 b/src/user/MOM_wave_interface.F90 index fa7b567845..c73efc59fb 100644 --- a/src/user/MOM_wave_interface.F90 +++ b/src/user/MOM_wave_interface.F90 @@ -715,7 +715,7 @@ subroutine Update_Surface_Waves(G, GV, US, Time_present, dt, CS, forces) enddo do jj=G%jsc,G%jec do ii=G%isc,G%iec - !CS%Omega_w2x(ii,jj) = forces%omega_w2x(ii,jj) + CS%Omega_w2x(ii,jj) = forces%omega_w2x(ii,jj) do b=1,CS%NumBands CS%UStk_Hb(ii,jj,b) = US%m_s_to_L_T*forces%UStkb(ii,jj,b) CS%VStk_Hb(ii,jj,b) = US%m_s_to_L_T*forces%VStkb(ii,jj,b)