Changeset 1527 for trunk/NEMO/OPA_SRC/ZDF/zdftmx.F90

Timestamp:

2009-07-22T17:18:48+02:00 (15 years ago)

Author:

ctlod

Message:

tke2: minor bug correction on the TKE vertical diffusion term, see ticket: #484

File:

• trunk/NEMO/OPA_SRC/ZDF/zdftmx.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdftmx.F90

@@ -79 +79 @@
       !!              - update the model vertical eddy viscosity and diffusivity: 
       !!                     avt  = avt  +    av_tides
+      !!                     avm  = avm  +    av_tides
       !!                     avmu = avmu + mi(av_tides)
       !!                     avmv = avmv + mj(av_tides)
       !!
-      !! ** Action  :   avt, avmu, avmv   increased by tidal mixing
+      !! ** Action  :   avt, avm, avmu, avmv   increased by tidal mixing
       !!
       !! References : Simmons et al. 2004, Ocean Modelling, 6, 3-4, 245-263.
@@ -142 +143 @@
       DO jk = 2, jpkm1              !* update momentum & tracer diffusivity with tidal mixing
          avt(:,:,jk) = avt(:,:,jk) + av_tide(:,:,jk)
+         avm(:,:,jk) = avm(:,:,jk) + av_tide(:,:,jk)
          DO jj = 2, jpjm1
             DO ji = fs_2, fs_jpim1  ! vector opt.