- Timestamp:
- 2021-03-01T20:12:52+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90
r14557 r14564 1974 1974 ENDIF 1975 1975 ENDIF 1976 hmle(ji,jj) = M IN(hmle(ji,jj), ht(ji,jj))1977 IF(ln_osm_hmle_limit) hmle(ji,jj) = MIN(hmle(ji,jj), MAX(rn_osm_hmle_limit,1.2*hbl(ji,jj)) )1976 hmle(ji,jj) = MAX( MIN( hmle(ji,jj), ht(ji,jj) ), gdepw(ji,jj,4,Kmm) ) 1977 IF(ln_osm_hmle_limit) hmle(ji,jj) = MIN( hmle(ji,jj), rn_osm_hmle_limit*hbl(ji,jj) ) 1978 1978 ! For now try just set hmle to zmld 1979 1979 hmle(ji,jj) = pmld(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.