Skip to content

Commit

Permalink
Bugfix: reference height offset for SAL using bpa
Browse files Browse the repository at this point in the history
Recover reference height offset (Z_ref) in calculating bottom pressure
for self-attraction and loading in Boussinesq mode.
  • Loading branch information
herrwang0 committed Feb 24, 2025
1 parent 93a86dc commit 9850319
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/core/MOM_PressureForce_FV.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1242,7 +1242,7 @@ subroutine PressureForce_FV_Bouss(h, tv, PFu, PFv, G, GV, US, CS, ALE_CSp, p_atm
if (CS%sal_use_bpa) then
!$OMP parallel do default(shared)
do j=Jsq,Jeq+1 ; do i=Isq,Ieq+1
pbot(i,j) = pa(i,j,nz+1) - GxRho_ref * e(i,j,nz+1)
pbot(i,j) = pa(i,j,nz+1) - GxRho_ref * (e(i,j,nz+1) - G%Z_ref)
enddo ; enddo
call calc_SAL(pbot, e_sal, G, CS%SAL_CSp, tmp_scale=US%Z_to_m)
else
Expand Down

0 comments on commit 9850319

Please sign in to comment.