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 1533 – NEMO

Changeset 1533


Ignore:
Timestamp:
2009-07-24T11:54:48+02:00 (15 years ago)
Author:
ctlod
Message:

change TKE cpp key names, see ticket: 485

Location:
trunk/NEMO
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/C1D_SRC/diawri_c1d.F90

    r1531 r1533  
    2020   USE sbcmod          ! surface Boundary Codition 
    2121   USE sbcssr          ! surface boundary condition: restauring to SSS and or SST 
     22   USE zdftke_old      ! TKE vertical mixing (old scheme) 
    2223   USE zdftke          ! TKE vertical mixing 
    2324   USE zdfkpp          ! KPP vertical mixing 

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

    r1531 r1533  
    105105      !!                explicit (time-splitting) scheme if ln_zdfexp=T 
    106106      !!---------------------------------------------------------------------- 
     107      USE zdftke_old 
    107108      USE zdftke 
    108       USE zdftke2 
    109109      USE zdfkpp 
    110110      !!---------------------------------------------------------------------- 

  • trunk/NEMO/OPA_SRC/TRA/trazdf.F90

    r1531 r1533  
    123123      !!      the implicit scheme is required. 
    124124      !!---------------------------------------------------------------------- 
     125      USE zdftke_old 
    125126      USE zdftke 
    126       USE zdftke2 
    127127      USE zdfkpp 
    128128      !!---------------------------------------------------------------------- 

  • trunk/NEMO/OPA_SRC/ZDF/zdfini.F90

    r1531 r1533  
    1414   USE zdf_oce         ! TKE vertical mixing           
    1515   USE lib_mpp         ! distribued memory computing 
    16    USE zdftke          ! TKE  vertical mixing   
    17    USE zdftke2         ! TKE2 vertical mixing 
     16   USE zdftke_old      ! TKE vertical mixing  (old scheme) 
     17   USE zdftke          ! TKE vertical mixing 
    1818   USE zdfkpp          ! KPP vertical mixing           
    1919   USE zdfddm          ! double diffusion mixing       
    … …  
    106106      ENDIF 
    107107      IF( lk_zdftke ) THEN 
    108          IF(lwp) WRITE(numout,*) '             TKE2 dependent eddy coefficients' 
     108         IF(lwp) WRITE(numout,*) '             TKE dependent eddy coefficients' 
    109109         ioptio = ioptio+1 
    110110      ENDIF 

  • trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

    r1532 r1533  
    108108   !!---------------------------------------------------------------------- 
    109109   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009)  
    110    !! $Id: zdftke2.F90 1201 2008-09-24 13:24:21Z rblod $ 
     110   !! $Id:$ 
    111111   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    112112   !!---------------------------------------------------------------------- 

  • trunk/NEMO/OPA_SRC/step.F90

    r1531 r1533  
    2020   !!             -   !  2006-07  (S. Masson)  restart using iom 
    2121   !!            3.2  !  2009-02  (G. Madec, R. Benshila)  reintroduicing z*-coordinate 
    22    !!             -   !  2009-06  (S. Masson, G. Madec)  TKE2 restart compatible with key_cpl 
     22   !!             -   !  2009-06  (S. Masson, G. Madec)  TKE restart compatible with key_cpl 
    2323   !!---------------------------------------------------------------------- 
    2424 
Note: See TracChangeset for help on using the changeset viewer.