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.
Ticket Diff – NEMO

Changes between Initial Version and Version 7 of Ticket #1832


Ignore:
Timestamp:
2018-01-06T21:30:20+01:00 (6 years ago)
Author:
nemo
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #1832

    • Property Status changed from new to closed
    • Property Severity changed from to minor
    • Property Cc gm added
    • Property Resolution changed from to fixed
    • Property Owner changed from nemo to gm
    • Property Type changed from Bug to Defect

  • Ticket #1832 – Description

    initial v7  
    1818 
    1919Proposed modification in zdftke.F90 module:[[BR]] 
     20 
     21{{{#!f 
    2022Use '''( MAX(0.,1._wp - 4.*fr_i(ji,jj) ) )''' instead ( 1._wp - fr_i(ji,jj) ) weight. 
     23}}} 
    2124 
    2225''For the surface and internal wave breaking'':[[BR]] 
     26 
     27{{{#!f 
    2328 IF( nn_etau == 1 ) THEN           !* penetration below the mixed layer (rn_efr fraction) 
    2429   ..... 
    2530   en(ji,jj,jk) = en(ji,jj,jk) + rn_efr * en(ji,jj,1) * EXP( -fsdepw(ji,jj,jk) / htau(ji,jj) ) '''* ( MAX(0.,1._wp - 4.*fr_i(ji,jj) ) )'''  * wmask(ji,jj,jk) * tmask(ji,jj,1) 
    2631   .....  
    27  
     32}}} 
    2833 
    2934''For the Langmuir circulation parameterization'':[[BR]] 
    30                  en(ji,jj,jk) = en(ji,jj,jk) + rdt * '''( MAX(0.,1._wp - 4.*fr_i(ji,jj) ) )''' * ( zwlc * zwlc * zwlc ) /   zhlc(ji,jj) * wmask(ji,jj,jk) * tmask(ji,jj,1) 
     35 
     36{{{#!f 
     37en(ji,jj,jk) = en(ji,jj,jk) + rdt * '''( MAX(0.,1._wp - 4.*fr_i(ji,jj) ) )''' * ( zwlc * zwlc * zwlc ) /   zhlc(ji,jj) * wmask(ji,jj,jk) * tmask(ji,jj,1) 
     38}}}