Skip to content

Commit 04e2114

Browse files
authored
Merge pull request #2 from Zeracesharon/Zeracesharon-patch-3
Update MOM_wave_interface.F90
2 parents f6f859e + 6ec91ab commit 04e2114

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/user/MOM_wave_interface.F90

+1-1
Original file line numberDiff line numberDiff line change
@@ -965,7 +965,7 @@ subroutine Update_Stokes_Drift(G, GV, US, CS, dz, ustar, dt, dynamics_step)
965965
do k = 1,GV%ke
966966
Top = Bottom
967967
MidPoint = Bottom - 0.25*(dz(i,j,k)+dz(i,j+1,k))
968-
Bottom = Bottom - 0.5*(dz(i,j+1,k)+dz(i,j+1,k))
968+
Bottom = Bottom - 0.5*(dz(i,j,k)+dz(i,j+1,k))
969969
!bgr note that this is using a v-point J on h-point ustar
970970
! this code has only been previous used for uniform
971971
! grid cases. This needs fixed if DHH85 is used for non

0 commit comments

Comments
 (0)