Changeset 2476

Timestamp:

2010-12-17T13:55:42+01:00 (14 years ago)

Author:

cetlod

Message:

v3.3beta:impose vertical implicit scheme for passive tracers when using gls, see ticket #778

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.F90

@@ -119 +119 @@
       !!      nzdf = 0   explicit (time-splitting) scheme (ln_trczdf_exp=T)
       !!           = 1   implicit (euler backward) scheme (ln_trczdf_exp=F)
-      !!      NB: rotation of lateral mixing operator or TKE or KPP scheme,
-      !!      the implicit scheme is required.
+      !!      NB: The implicit scheme is required when using : 
+      !!             - rotated lateral mixing operator
+      !!             - TKE, GLS or KPP vertical mixing scheme
       !!----------------------------------------------------------------------
 
@@ -136 +137 @@
       IF( ln_trcldf_iso                               )   nzdf = 1      ! iso-neutral lateral physics
       IF( ln_trcldf_hor .AND. ln_sco                  )   nzdf = 1      ! horizontal lateral physics in s-coordinate
-#if defined key_zdftke || defined key_zdfkpp
-                                                          nzdf = 1      ! TKE or KPP physics       
+#if defined key_zdftke || defined key_zdfgls || defined key_zdfkpp
+                                                          nzdf = 1      ! TKE, GLS or KPP physics       
 #endif
       IF( ln_trczdf_exp .AND. nzdf == 1 )   THEN
-         CALL ctl_stop( 'trc_zdf : If using the rotation of lateral mixing operator or TKE ', &
-            &           '          or KPP scheme, the implicit scheme is required, set ln_trczdf_exp = .false.' )
+         CALL ctl_stop( 'trc_zdf : If using the rotated lateral mixing operator or TKE, GLS or KPP vertical scheme ', &
+            &           '          the implicit scheme is required, set ln_trczdf_exp = .false.' )
       ENDIF