Changeset 1201 for trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

Timestamp:

2008-09-24T15:24:21+02:00 (16 years ago)

Author:

rblod

Message:

Fix a bug in tke, see ticket #238

File:

• trunk/NEMO/OPA_SRC/ZDF/zdftke.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -876 +876 @@
       ENDIF
 
-!!gm  the increase is only required when using cen2 advection scheme 
-!!gm  for the equatorial upwelling.       ===>  use of TVD in ORCA  so this have to be suppressed
-      !   Increase the background in the surface layers
-      avmb(1) = 10.  * avmb(1)      ;      avtb(1) = 10.  * avtb(1)
-      avmb(2) = 10.  * avmb(2)      ;      avtb(2) = 10.  * avtb(2)
-      avmb(3) =  5.  * avmb(3)      ;      avtb(3) =  5.  * avtb(3)
-      avmb(4) =  2.5 * avmb(4)      ;      avtb(4) =  2.5 * avtb(4)
-!!gm end
-
-
       ! Initialization of vertical eddy coef. to the background value
       ! -------------------------------------------------------------