Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Fix to rad-nud OBC on normal velocities #766

Merged
merged 5 commits into from
May 9, 2018
Merged

Fix to rad-nud OBC on normal velocities #766

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
7a91f93
First whack at OBC radiation-nudging of tangential vel
kshedstrom May 8, 2018
8b6ff3a
Bug fixes to OBC dvdx code.
kshedstrom May 8, 2018
fc2b3b7
Fixed uninitialized data in OBC config code
adcroft May 9, 2018
abecdf7
Merge remote-tracking branch 'gfdl/dev/gfdl' into dev/esmg
kshedstrom May 9, 2018
a783d39
Fixed a bug in MOM_CoriolisAdv.F90.
kshedstrom May 9, 2018
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/core/MOM_CoriolisAdv.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -330,7 +330,7 @@ subroutine CorAdCalc(u, v, h, uh, vh, CAu, CAv, OBC, AD, G, GV, CS)
if (OBC%freeslip_vorticity) then ; do J=OBC%segment(n)%HI%JsdB,OBC%segment(n)%HI%JedB
dvdx(I,J) = 0.
enddo ; endif
if (OBC%specified_vorticity) then ; do J=OBC%segment(n)%HI%JsdB,OBC%segment(n)%HI%JedB
if (OBC%computed_vorticity) then ; do J=OBC%segment(n)%HI%JsdB,OBC%segment(n)%HI%JedB
if (OBC%segment(n)%direction == OBC_DIRECTION_E) then
dvdx(I,J) = 2.0*(OBC%segment(n)%tangential_vel(I,J,k) - v(i,J,k))*G%dyCv(i,J)
else ! (OBC%segment(n)%direction == OBC_DIRECTION_W)
Expand Down
Loading