Changeset 6497 for trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

Timestamp:

2016-04-27T09:33:46+02:00 (8 years ago)

Author:

gm

Message:

#1720 - trunk: add Casimir tidal parameterization

File:

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

trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

@@ -174 +174 @@
                   &                             +  0.15 * zrau(ji,jj)          * zmskd2(ji,jj)  )
                ! add to the eddy viscosity coef. previously computed
+# if defined key_zdftmx_new
+               ! key_zdftmx_new: New internal wave-driven param: use avs value computed by zdftmx
+               avs (ji,jj,jk) = avs(ji,jj,jk) + zavfs + zavds
+# else
                avs (ji,jj,jk) = avt(ji,jj,jk) + zavfs + zavds
+# endif
                avt (ji,jj,jk) = avt(ji,jj,jk) + zavft + zavdt
                avm (ji,jj,jk) = avm(ji,jj,jk) + MAX( zavft + zavdt, zavfs + zavds )