New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10846 – NEMO

Changeset 10846


Ignore:
Timestamp:
2019-04-05T16:48:35+02:00 (5 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:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r10037_GPU/cfgs/SHARED/field_def_nemo-oce.xml

    r10843 r10846  
    478478        <field id="avt_evd"      long_name="convective enhancement of vertical diffusivity" standard_name="ocean_vertical_tracer_diffusivity_due_to_convection"     unit="m2/s" /> 
    479479        <field id="avm_evd"      long_name="convective enhancement of vertical viscosity"   standard_name="ocean_vertical_momentum_diffusivity_due_to_convection"   unit="m2/s" /> 
     480 
     481        <!-- av_tmx: available with ln_zdftmx --> 
     482        <field id="av_tmx"      long_name="vertical diffusivity due to tidal mixing" unit="m2/s" /> 
    480483 
    481484        <!-- avt_tide: available with ln_zdfiwm=T --> 
  • NEMO/branches/UKMO/dev_r10037_GPU/cfgs/SHARED/namelist_ref

    r10843 r10846  
    993993   !                       ! gravity wave-driven vertical mixing 
    994994   ln_zdfiwm   = .false.      ! internal wave-induced mixing            (T =>   fill namzdf_iwm) 
     995   ln_zdftmx   = .false.      ! old tidal mixing scheme (Simmons et al 2004) 
    995996   ln_zdfswm   = .false.      ! surface  wave-induced mixing            (T => ln_wave=ln_sdw=T ) 
    996997   ! 
     
    10871088   ln_mevar    = .true.    !  variable (T) or constant (F) mixing efficiency 
    10881089   ln_tsdiff   = .true.    !  account for differential T/S mixing (T) or not (F) 
     1090/ 
     1091!----------------------------------------------------------------------- 
     1092&namzdf_tmx    !   tidal mixing parameterization                        ("key_zdftmx") 
     1093!----------------------------------------------------------------------- 
     1094   rn_htmx     = 500.      !  vertical decay scale for turbulence (meters) 
     1095   rn_n2min    = 1.e-8     !  threshold of the Brunt-Vaisala frequency (s-1) 
     1096   rn_tfe      = 0.333     !  tidal dissipation efficiency 
     1097   rn_me       = 0.2       !  mixing efficiency 
     1098   ln_tmx_itf  = .true.    !  ITF specific parameterisation 
     1099   rn_tfe_itf  = 1.        !  ITF tidal dissipation efficiency 
    10891100/ 
    10901101 
  • NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/ZDF/zdf_oce.F90

    r10843 r10846  
    3838   LOGICAL , PUBLIC ::   ln_zdfswm   !: surface  wave-induced mixing flag 
    3939   LOGICAL , PUBLIC ::   ln_zdfiwm   !: internal wave-induced mixing flag 
     40   LOGICAL , PUBLIC ::   ln_zdftmx   !: old tidal mixing scheme (Simmons et al 2004) 
    4041   !                             ! coefficients  
    4142   REAL(wp), PUBLIC ::   rn_avm0     !: vertical eddy viscosity (m2/s) 
  • NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/ZDF/zdfphy.F90

    r10843 r10846  
    2222   USE zdfevd         ! vertical physics: convection via enhanced vertical diffusion   
    2323   USE zdfiwm         ! vertical physics: internal wave-induced mixing   
     24   USE zdftmx         ! vertical physics: old tidal mixing scheme (Simmons et al 2004) 
    2425   USE zdfswm         ! vertical physics: surface  wave-induced mixing 
    2526   USE zdfmxl         ! vertical physics: mixed layer 
     
    8081         &             ln_zdfswm,                                    &     ! surface  wave-induced mixing 
    8182         &             ln_zdfiwm,                                    &     ! internal  -      -      - 
     83         &             ln_zdftmx,                                    &     ! old tidal mixing scheme (Simmons et al 2004) 
    8284         &             rn_avm0, rn_avt0, nn_avb, nn_havtb                  ! coefficients 
    8385      !!---------------------------------------------------------------------- 
     
    198200      !                          !== gravity wave-driven mixing  ==! 
    199201      IF( ln_zdfiwm )   CALL zdf_iwm_init       ! internal wave-driven mixing 
     202      IF( ln_zdftmx )   CALL zdf_tmx_init       ! old tidal mixing scheme (Simmons et al) 
    200203      IF( ln_zdfswm )   CALL zdf_swm_init       ! surface  wave-driven mixing 
    201204 
     
    284287      IF( ln_zdfswm )   CALL zdf_swm( kt, avm, avt, avs )   ! surface  wave (Qiao et al. 2004)  
    285288      IF( ln_zdfiwm )   CALL zdf_iwm( kt, avm, avt, avs )   ! internal wave (de Lavergne et al 2017) 
     289      IF( ln_zdftmx )   CALL zdf_tmx( kt, avm, avt, avs )   ! old tidal mixing scheme (Simmons et al 2004) 
    286290 
    287291#if defined key_agrif  
Note: See TracChangeset for help on using the changeset viewer.