Changeset 2303 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/step.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/step.F90 (modified) (1 diff)

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

@@ -121 +121 @@
       !                                               ! Vertical eddy viscosity and diffusivity coefficients
       IF( lk_zdfric     )   CALL zdf_ric    ( kstp )  ! Richardson number dependent Kz
-      IF( lk_zdftke_old )   CALL zdf_tke_old( kstp )  ! TKE closure scheme for Kz (old scheme)
       IF( lk_zdftke     )   CALL zdf_tke    ( kstp )  ! TKE closure scheme for Kz
       IF( lk_zdfgls     )   CALL zdf_gls    ( kstp )  ! GLS closure scheme for Kz