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 1239 for trunk/NEMO/OPA_SRC/DYN – NEMO

Ignore:
Timestamp:
2008-12-31T10:35:35+01:00 (16 years ago)
Author:
ctlod
Message:

this version allows to stabilize the computation of En production term, see ticket: #281

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/dynzdf.F90

    r1152 r1239  
    106106      !!---------------------------------------------------------------------- 
    107107      USE zdftke 
     108      USE zdftke2 
    108109      USE zdfkpp 
    109110      !!---------------------------------------------------------------------- 
    … …  
    115116 
    116117      ! Force implicit schemes 
    117       IF( lk_zdftke .OR. lk_zdfkpp   )  nzdf = 1   ! TKE or KPP physics 
    118       IF( ln_dynldf_iso              )   nzdf = 1   ! iso-neutral lateral physics 
    119       IF( ln_dynldf_hor .AND. ln_sco )   nzdf = 1   ! horizontal lateral physics in s-coordinate 
     118      IF( lk_zdftke .OR. lk_zdftke2 .OR. lk_zdfkpp   ) nzdf = 1   ! TKE or KPP physics 
     119      IF( ln_dynldf_iso              )                 nzdf = 1   ! iso-neutral lateral physics 
     120      IF( ln_dynldf_hor .AND. ln_sco )                 nzdf = 1   ! horizontal lateral physics in s-coordinate 
    120121 
    121122      IF( lk_esopa )    nzdf = -1                   ! Esopa key: All schemes used 
Note: See TracChangeset for help on using the changeset viewer.