Skip to content

Commit

Permalink
Update btstep negative eta warning (#844)
Browse files Browse the repository at this point in the history
* Update btstep negative eta warning

In Boussinesq mode the eta below bathyT warning includes the location,
but in non-Boussinesq mode the corresponding negative eta warning does not.

Added the location to the negative eta warning.

No answers are changed.

* 4 space indenting of continuation lines
  • Loading branch information
awallcraft authored Mar 4, 2025
1 parent 3142c3f commit e3e9c69
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion src/core/MOM_barotropic.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2536,8 +2536,11 @@ subroutine btstep(U_in, V_in, eta_in, dt, bc_accel_u, bc_accel_v, forces, pbce,
else
do j=js,je ; do i=is,ie
if (eta(i,j) < 0.0) then
write(mesg,'(" at ", ES12.4, ES12.4, i7, i7)') &
G%geoLonT(i,j), G%geoLatT(i,j), i + G%HI%idg_offset, j + G%HI%jdg_offset
if (err_count < 2) &
call MOM_error(WARNING, "btstep: negative eta in a non-Boussinesq barotropic solver.", all_print=.true.)
call MOM_error(WARNING, "btstep: negative eta in a non-Boussinesq barotropic solver "//&
trim(mesg), all_print=.true.)
err_count = err_count + 1
endif
enddo ; enddo
Expand Down

0 comments on commit e3e9c69

Please sign in to comment.