Changeset 14410

Timestamp:

2021-02-05T13:46:42+01:00 (3 years ago)

Author:

agn

Message:

rn_osm_hmle_limit is factor limiting hmle again ...

File:

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

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

@@ -2629 +2629 @@
               ENDIF
            ENDIF
-           hmle(ji,jj) = MIN(hmle(ji,jj), ht_n(ji,jj))
-          IF(ln_osm_hmle_limit) hmle(ji,jj) = MIN(hmle(ji,jj), MAX(rn_osm_hmle_limit,1.2*hbl(ji,jj)) )
+           hmle(ji,jj) = MAX(MIN(hmle(ji,jj), ht_n(ji,jj)),  gdepw_n(ji,jj,4))
+           IF(ln_osm_hmle_limit) hmle(ji,jj) = MIN(hmle(ji,jj), rn_osm_hmle_limit*hbl(ji,jj) )
         END DO
       END DO