Changeset 1533 for trunk/NEMO/OPA_SRC/ZDF/zdfini.F90

Timestamp:

2009-07-24T11:54:48+02:00 (15 years ago)

Author:

ctlod

Message:

change TKE cpp key names, see ticket: 485

File:

• trunk/NEMO/OPA_SRC/ZDF/zdfini.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdfini.F90

@@ -14 +14 @@
    USE zdf_oce         ! TKE vertical mixing          
    USE lib_mpp         ! distribued memory computing
-   USE zdftke          ! TKE  vertical mixing  
-   USE zdftke2         ! TKE2 vertical mixing
+   USE zdftke_old      ! TKE vertical mixing  (old scheme)
+   USE zdftke          ! TKE vertical mixing
    USE zdfkpp          ! KPP vertical mixing          
    USE zdfddm          ! double diffusion mixing      
@@ -106 +106 @@
       ENDIF
       IF( lk_zdftke ) THEN
-         IF(lwp) WRITE(numout,*) '             TKE2 dependent eddy coefficients'
+         IF(lwp) WRITE(numout,*) '             TKE dependent eddy coefficients'
          ioptio = ioptio+1
       ENDIF