Changeset 7294
- Timestamp:
- 2016-11-21T16:57:32+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r7066 r7294 714 714 ! ! local Richardson number 715 715 zri = MAX( rn2b(ji,jj,jk), 0._wp ) * zcoef / (zdku + zdkv + rn_bshear ) 716 zpdlr = MAX( 0.1_wp, 0.2 / MAX( 0.2 , zri ) ) 716 ! below a mod suggested by Colin Jones (implementation by TK) 717 zpdlr = MAX( 0.05_wp, 1.0 / MAX( 1.0 , ( 1.0 + 10.0*zri ) ) ) 717 718 !!gm and even better with the use of the "true" ri_crit=0.22222... (this change the results!) 718 719 !!gm zpdlr = MAX( 0.1_wp, ri_crit / MAX( ri_crit , zri ) )
Note: See TracChangeset
for help on using the changeset viewer.