Changeset 10846

Timestamp:

2019-04-05T16:48:35+02:00 (6 years ago)

Author:

andmirek

Message:

ticket #2197 merge dev_r9950_old_tidal_mixing r10040: for use for ORCA25

Location:

NEMO/branches/UKMO/dev_r10037_GPU

Files:

• cfgs/SHARED/field_def_nemo-oce.xml (modified) (1 diff)
• cfgs/SHARED/namelist_ref (modified) (2 diffs)
• src/OCE/ZDF/zdf_oce.F90 (modified) (1 diff)
• src/OCE/ZDF/zdfphy.F90 (modified) (4 diffs)
• src/OCE/ZDF/zdftmx.F90 (copied) (copied from NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/src/OCE/ZDF/zdftmx.F90)

NEMO/branches/UKMO/dev_r10037_GPU/cfgs/SHARED/field_def_nemo-oce.xml

@@ -478 +478 @@
         <field id="avt_evd"      long_name="convective enhancement of vertical diffusivity" standard_name="ocean_vertical_tracer_diffusivity_due_to_convection"     unit="m2/s" />
         <field id="avm_evd"      long_name="convective enhancement of vertical viscosity"   standard_name="ocean_vertical_momentum_diffusivity_due_to_convection"   unit="m2/s" />
+
+        <!-- av_tmx: available with ln_zdftmx -->
+        <field id="av_tmx"      long_name="vertical diffusivity due to tidal mixing" unit="m2/s" />
 
         <!-- avt_tide: available with ln_zdfiwm=T -->

NEMO/branches/UKMO/dev_r10037_GPU/cfgs/SHARED/namelist_ref

@@ -993 +993 @@
    !                       ! gravity wave-driven vertical mixing
    ln_zdfiwm   = .false.      ! internal wave-induced mixing            (T =>   fill namzdf_iwm)
+   ln_zdftmx   = .false.      ! old tidal mixing scheme (Simmons et al 2004)
    ln_zdfswm   = .false.      ! surface  wave-induced mixing            (T => ln_wave=ln_sdw=T )
    !
@@ -1087 +1088 @@
    ln_mevar    = .true.    !  variable (T) or constant (F) mixing efficiency
    ln_tsdiff   = .true.    !  account for differential T/S mixing (T) or not (F)
+/
+!-----------------------------------------------------------------------
+&namzdf_tmx    !   tidal mixing parameterization                        ("key_zdftmx")
+!-----------------------------------------------------------------------
+   rn_htmx     = 500.      !  vertical decay scale for turbulence (meters)
+   rn_n2min    = 1.e-8     !  threshold of the Brunt-Vaisala frequency (s-1)
+   rn_tfe      = 0.333     !  tidal dissipation efficiency
+   rn_me       = 0.2       !  mixing efficiency
+   ln_tmx_itf  = .true.    !  ITF specific parameterisation
+   rn_tfe_itf  = 1.        !  ITF tidal dissipation efficiency
 /
 

NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/ZDF/zdf_oce.F90

@@ -38 +38 @@
    LOGICAL , PUBLIC ::   ln_zdfswm   !: surface  wave-induced mixing flag
    LOGICAL , PUBLIC ::   ln_zdfiwm   !: internal wave-induced mixing flag
+   LOGICAL , PUBLIC ::   ln_zdftmx   !: old tidal mixing scheme (Simmons et al 2004)
    !                             ! coefficients 
    REAL(wp), PUBLIC ::   rn_avm0     !: vertical eddy viscosity (m2/s)

NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/ZDF/zdfphy.F90

@@ -22 +22 @@
    USE zdfevd         ! vertical physics: convection via enhanced vertical diffusion  
    USE zdfiwm         ! vertical physics: internal wave-induced mixing  
+   USE zdftmx         ! vertical physics: old tidal mixing scheme (Simmons et al 2004)
    USE zdfswm         ! vertical physics: surface  wave-induced mixing
    USE zdfmxl         ! vertical physics: mixed layer
@@ -80 +81 @@
          &             ln_zdfswm,                                    &     ! surface  wave-induced mixing
          &             ln_zdfiwm,                                    &     ! internal  -      -      -
+         &             ln_zdftmx,                                    &     ! old tidal mixing scheme (Simmons et al 2004)
          &             rn_avm0, rn_avt0, nn_avb, nn_havtb                  ! coefficients
       !!----------------------------------------------------------------------
@@ -198 +200 @@
       !                          !== gravity wave-driven mixing  ==!
       IF( ln_zdfiwm )   CALL zdf_iwm_init       ! internal wave-driven mixing
+      IF( ln_zdftmx )   CALL zdf_tmx_init       ! old tidal mixing scheme (Simmons et al)
       IF( ln_zdfswm )   CALL zdf_swm_init       ! surface  wave-driven mixing
 
@@ -284 +287 @@
       IF( ln_zdfswm )   CALL zdf_swm( kt, avm, avt, avs )   ! surface  wave (Qiao et al. 2004) 
       IF( ln_zdfiwm )   CALL zdf_iwm( kt, avm, avt, avs )   ! internal wave (de Lavergne et al 2017)
+      IF( ln_zdftmx )   CALL zdf_tmx( kt, avm, avt, avs )   ! old tidal mixing scheme (Simmons et al 2004)
 
 #if defined key_agrif