Changeset 2303 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/opa.F90

Timestamp:

2010-10-22T16:51:08+02:00 (14 years ago)

Author:

rblod

Message:

Suppress old TKE see ticket #742

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/opa.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/opa.F90

@@ -276 +276 @@
                             CALL zdf_bfr_init      ! bottom friction
       IF( lk_zdfric     )   CALL zdf_ric_init      ! Richardson number dependent Kz
-      IF( lk_zdftke_old )   CALL zdf_tke_init_o    ! TKE closure scheme for Kz (old scheme)
       IF( lk_zdftke     )   CALL zdf_tke_init      ! TKE closure scheme for Kz
       IF( lk_zdfkpp     )   CALL zdf_kpp_init      ! KPP closure scheme for Kz