prevent OBL depths deeper than the bathymetric depth

NOAA-GFDL · May 17, 2018 · cfc6742 · cfc6742
1 parent 4dd0111
commit cfc6742
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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