diff --git a/src/OCE/ZDF/zdfosm.F90 b/src/OCE/ZDF/zdfosm.F90 index 2a8fde5dba3216ccedac6a0be76736a2fd2c3808..1a4bfabbce4a561a1f9e95b51ba55e24dc339a86 100644 --- a/src/OCE/ZDF/zdfosm.F90 +++ b/src/OCE/ZDF/zdfosm.F90 @@ -1665,7 +1665,7 @@ CONTAINS & e3w(ji,jj,jm,Kmm) ) ! zhbl_s = MIN(zhbl_s, gdepw(ji,jj, mbkt(ji,jj) + 1,Kmm) - depth_tol) - IF ( zhbl_s >= mbkt(ji,jj) + 1 ) THEN + IF ( zhbl_s >= gdepw(ji,jj,mbkt(ji,jj) + 1,Kmm) ) THEN zhbl_s = MIN( zhbl_s, gdepw(ji,jj,mbkt(ji,jj)+1,Kmm) - depth_tol ) l_pyc(ji,jj) = .FALSE. ENDIF