Changeset 2132 for branches/devmercator2010_1/NEMO/OPA_SRC/DYN/dynzdf.F90

Timestamp:

2010-09-29T17:31:36+02:00 (14 years ago)

Author:

cbricaud

Message:

add change from DEV_r1784_GLS

File:

• branches/devmercator2010_1/NEMO/OPA_SRC/DYN/dynzdf.F90 (modified) (2 diffs)

branches/devmercator2010_1/NEMO/OPA_SRC/DYN/dynzdf.F90

@@ -107 +107 @@
       USE zdftke_old
       USE zdftke
+      USE zdfgls
       USE zdfkpp
       !!----------------------------------------------------------------------
@@ -116 +117 @@
 
       ! Force implicit schemes
-      IF( lk_zdftke_old .OR. lk_zdftke .OR. lk_zdfkpp )   nzdf = 1   ! TKE or KPP physics
-      IF( ln_dynldf_iso                               )   nzdf = 1   ! iso-neutral lateral physics
-      IF( ln_dynldf_hor .AND. ln_sco                  )   nzdf = 1   ! horizontal lateral physics in s-coordinate
+      IF( lk_zdftke_old .OR. lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp )   nzdf = 1   ! TKE, GLS or KPP physics
+      IF( ln_dynldf_iso                                              )   nzdf = 1   ! iso-neutral lateral physics
+      IF( ln_dynldf_hor .AND. ln_sco                                 )   nzdf = 1   ! horizontal lateral physics in s-coordinate
 
       IF( lk_esopa )    nzdf = -1                   ! Esopa key: All schemes used