From 402791dd7d45f5748945538c2c82a834aec48093 Mon Sep 17 00:00:00 2001
From: Simon Mueller <11-smueller@users.noreply.forge.nemo-ocean.eu>
Date: Fri, 11 Nov 2022 19:29:55 +0000
Subject: [PATCH] Merge branch
'111-transfer-of-a-bug-fix-from-a-previous-osmosis-development-branch' into
'main'
---
src/OCE/ZDF/zdfosm.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/OCE/ZDF/zdfosm.F90 b/src/OCE/ZDF/zdfosm.F90
index 2a8fde5d..1a4bfabb 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
--
GitLab