New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7294 – NEMO

Changeset 7294


Ignore:
Timestamp:
2016-11-21T16:57:32+01:00 (7 years ago)
Author:
till
Message:

a mod in zdftke.F90 for the dependence on the Prandtl number

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r7066 r7294  
    714714                  !                                          ! local Richardson number 
    715715                  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 ) ) ) 
    717718!!gm and even better with the use of the "true" ri_crit=0.22222...  (this change the results!) 
    718719!!gm              zpdlr = MAX(  0.1_wp,  ri_crit / MAX( ri_crit , zri )  ) 
Note: See TracChangeset for help on using the changeset viewer.