_RL seaSurface_ocn
seaSurface_ocn = 0. _d 0
IF ( R_low(I,J,bi,bj) .NE. seaSurface_ocn .AND.
IF ( ocMxlD(I,J,bi,bj) .NE. seaSurface_ocn .AND.