Changeset 2303 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf.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/TRA/trazdf.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf.F90

@@ -119 +119 @@
       !!      the implicit scheme is required.
       !!----------------------------------------------------------------------
-      USE zdftke_old
       USE zdftke
       USE zdfgls
@@ -131 +130 @@
 
       ! Force implicit schemes
-      IF( lk_zdftke_old .OR. lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp )   nzdf = 1      ! TKE, GLS or KPP physics
-      IF( ln_traldf_iso                                              )   nzdf = 1      ! iso-neutral lateral physics
-      IF( ln_traldf_hor .AND. ln_sco                                 )   nzdf = 1      ! horizontal lateral physics in s-coordinate
+      IF( lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp )   nzdf = 1      ! TKE, GLS or KPP physics
+      IF( ln_traldf_iso                           )   nzdf = 1      ! iso-neutral lateral physics
+      IF( ln_traldf_hor .AND. ln_sco              )   nzdf = 1      ! horizontal lateral physics in s-coordinate
       IF( ln_zdfexp .AND. nzdf == 1 )   CALL ctl_stop( 'tra_zdf : If using the rotation of lateral mixing operator',   &
             &                         ' TKE or KPP scheme, the implicit scheme is required, set ln_zdfexp = .false.' )