Changeset 14410
- Timestamp:
- 2021-02-05T13:46:42+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90
r14409 r14410 2629 2629 ENDIF 2630 2630 ENDIF 2631 hmle(ji,jj) = M IN(hmle(ji,jj), ht_n(ji,jj))2632 IF(ln_osm_hmle_limit) hmle(ji,jj) = MIN(hmle(ji,jj), MAX(rn_osm_hmle_limit,1.2*hbl(ji,jj)) )2631 hmle(ji,jj) = MAX(MIN(hmle(ji,jj), ht_n(ji,jj)), gdepw_n(ji,jj,4)) 2632 IF(ln_osm_hmle_limit) hmle(ji,jj) = MIN(hmle(ji,jj), rn_osm_hmle_limit*hbl(ji,jj) ) 2633 2633 END DO 2634 2634 END DO
Note: See TracChangeset
for help on using the changeset viewer.