Changeset 1531 for trunk/NEMO/OPA_SRC/TRA/trazdf.F90

Timestamp:

2009-07-24T08:48:42+02:00 (15 years ago)

Author:

ctlod

Message:

change TKE cpp key names, see ticket: #485

File:

• trunk/NEMO/OPA_SRC/TRA/trazdf.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/trazdf.F90

@@ -139 +139 @@
 
       ! Force implicit schemes
-      IF( lk_zdftke .OR. lk_zdftke2 .OR. lk_zdfkpp   ) nzdf = 1      ! TKE 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_old .OR. lk_zdftke .OR. lk_zdfkpp )   nzdf = 1      ! TKE 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 )   THEN