Redefine kOBL, cast as integer

NorESMhub · Sep 27, 2022 · 5adb996 · 5adb996
1 parent 376f68c
commit 5adb996
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/phy/mod_difest.F b/phy/mod_difest.F
@@ -1161,8 +1161,8 @@ subroutine difest_vertical_hyb(m,n,mm,nn,k1m,k1n)
      .                               cellHeight,OBLdepth(i,j))
 
              ! gets index of the level and interface above hbl
-             kOBL = CVMix_kpp_compute_kOBL_depth(iFaceHeight,
-     .                               cellHeight,OBLdepth(i,j))
+             kOBL = floor(hOBL(i,j))    ! index of interface above OBL depth
+
 c --- ------ Diapycnal mixing when local stability is weak
 c --- ------ convection routine based on N2 not rho
 c --- ------ make sure it is in metrics if stability depends on rho