Changeset 583 for trunk/NEMO/OPA_SRC

Timestamp:

2006-11-15T11:39:34+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_081 : GM+RB+CT : add control stop on ln_zdfexp and nzdf paramter to avoid making time stepping twice

File:

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

trunk/NEMO/OPA_SRC/TRA/trazdf.F90

@@ -156 +156 @@
       IF( ln_traldf_hor .AND. ln_sco )   nzdf = 1      ! horizontal lateral physics in s-coordinate
 
+      IF( ln_zdfexp .AND. nzdf == 1 )   THEN
+         CALL ctl_stop( 'tra_zdf : If using the rotation of lateral mixing operator or TKE ', &
+            &           '          or KPP scheme, the implicit scheme is required, set ln_zdfexp = .false.' )
+      ENDIF
+
       ! NEC autotasking / OpenMP
 #if defined key_mpp_omp