Changeset 14564
- Timestamp:
- 2021-03-01T20:12:52+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/cfgs/SHARED/namelist_ref
r14531 r14564 1273 1273 rn_osm_mle_thresh = 0.0001 ! delta b criterion used for FK MLE criterion 1274 1274 rn_osm_mle_tau = 172800. ! time scale for FK-OSM (seconds) (case rn_osm_mle=0) 1275 ln_osm_hmle_limit = .true. ! limit hmle to rn_osm_hmle_limit*hbl1276 rn_osm_hmle_limit = 500.01275 ln_osm_hmle_limit = .true. ! If true, limit hmle to rn_osm_hmle_limit*hbl 1276 rn_osm_hmle_limit = 1.5 1277 1277 / 1278 1278 !----------------------------------------------------------------------- -
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.