Redefine kOBL, cast as integer

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 = int(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