Changeset 15069 for NEMO

Timestamp:

2021-07-02T12:06:47+02:00 (3 years ago)

Author:

agn

Message:

correct bug found by Simon M. email 18May

File:

• NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90 (modified) (1 diff)

NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90

@@ -2926 +2926 @@
 
                      !                    zhbl_s = MIN(zhbl_s, gdepw_n(ji,jj, mbkt(ji,jj) + 1) - depth_tol)
-                     IF ( zhbl_s >= mbkt(ji,jj) + 1 ) THEN
+                     IF ( zhbl_s >= gdepw_n(ji,jj, mbkt(ji,jj) + 1) ) THEN
                         zhbl_s = MIN(zhbl_s,  gdepw_n(ji,jj, mbkt(ji,jj) + 1) - depth_tol)
                         lpyc(ji,jj) = .FALSE.