From cfc6742025f71fdadef9c9ebc2effdfced6504cc Mon Sep 17 00:00:00 2001
From: alperaltuntas <alperaltuntas@gmail.com>
Date: Thu, 17 May 2018 15:07:12 -0600
Subject: [PATCH] prevent OBL depths deeper than the bathymetric depth

---
 src/parameterizations/vertical/MOM_KPP.F90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/parameterizations/vertical/MOM_KPP.F90 b/src/parameterizations/vertical/MOM_KPP.F90
index 185be4f0b4..da59d487cc 100644
--- a/src/parameterizations/vertical/MOM_KPP.F90
+++ b/src/parameterizations/vertical/MOM_KPP.F90
@@ -1548,6 +1548,9 @@ subroutine KPP_smooth_BLD(CS,G,GV,h)
     enddo
   enddo
 
+  ! prevent OBL depths deeper than the bathymetric depth
+  where (CS%OBLdepth > G%bathyT) CS%OBLdepth = G%bathyT
+
   ! Update kOBL for smoothed OBL depths
   do j = G%jsc, G%jec
     do i = G%isc, G%iec