Changeset 1417 for trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90

Timestamp:

2009-04-29T17:27:07+02:00 (15 years ago)

Author:

ctlod

Message:

add zdftmx.F90 module linked to the calculation of vertical viscosity/diffusion coefficients due to internal tidal mixing, see ticket: #425

File:

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

trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90

@@ -45 +45 @@
       avt_evd,           &  !: convection: enhanced vertical diffusivity coeff. at w-point
       avmu_evd              !: convection: enhanced vertical viscosity   coeff. at w-point
+#if defined key_zdftmx
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   av_tide, av_tide_itf   !: Tidal mixing
+#endif
  
    REAL(wp), PUBLIC, DIMENSION(jpk) ::   &   !: