Changeset 11750


Ignore:
Timestamp:
2019-10-21T15:55:37+02:00 (11 months ago)
Author:
davestorkey
Message:

UKMO/NEMO_4.0.1_old_tidal_mixing : science change.

Location:
NEMO/branches/UKMO/NEMO_4.0.1_old_tidal_mixing
Files:
3 edited
1 copied

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_old_tidal_mixing/cfgs/SHARED/field_def_nemo-oce.xml

    r11536 r11750  
    475475        <field id="avt_evd"      long_name="convective enhancement of vertical diffusivity" standard_name="ocean_vertical_tracer_diffusivity_due_to_convection"     unit="m2/s" /> 
    476476        <field id="avm_evd"      long_name="convective enhancement of vertical viscosity"   standard_name="ocean_vertical_momentum_diffusivity_due_to_convection"   unit="m2/s" /> 
     477 
     478        <!-- av_tmx: available with ln_zdftmx --> 
     479        <field id="av_tmx"      long_name="vertical diffusivity due to tidal mixing" unit="m2/s" /> 
    477480 
    478481        <!-- avt_tide: available with ln_zdfiwm=T --> 
  • NEMO/branches/UKMO/NEMO_4.0.1_old_tidal_mixing/src/OCE/ZDF/zdf_oce.F90

    r11715 r11750  
    4040   LOGICAL , PUBLIC ::   ln_zdfswm   !: surface  wave-induced mixing flag 
    4141   LOGICAL , PUBLIC ::   ln_zdfiwm   !: internal wave-induced mixing flag 
     42   LOGICAL , PUBLIC ::   ln_zdftmx   !: old tidal mixing scheme (Simmons et al 2004) 
    4243   !                             ! coefficients  
    4344   REAL(wp), PUBLIC ::   rn_avm0     !: vertical eddy viscosity (m2/s) 
  • NEMO/branches/UKMO/NEMO_4.0.1_old_tidal_mixing/src/OCE/ZDF/zdfphy.F90

    r11715 r11750  
    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         &             ln_zad_Aimp,                                  &     ! apdative-implicit vertical advection 
    8385         &             rn_avm0, rn_avt0, nn_avb, nn_havtb                  ! coefficients 
     
    207209      !                          !== gravity wave-driven mixing  ==! 
    208210      IF( ln_zdfiwm )   CALL zdf_iwm_init       ! internal wave-driven mixing 
     211      IF( ln_zdftmx )   CALL zdf_tmx_init       ! old tidal mixing scheme (Simmons et al) 
    209212      IF( ln_zdfswm )   CALL zdf_swm_init       ! surface  wave-driven mixing 
    210213 
     
    293296      IF( ln_zdfswm )   CALL zdf_swm( kt, avm, avt, avs )   ! surface  wave (Qiao et al. 2004)  
    294297      IF( ln_zdfiwm )   CALL zdf_iwm( kt, avm, avt, avs )   ! internal wave (de Lavergne et al 2017) 
     298      IF( ln_zdftmx )   CALL zdf_tmx( kt, avm, avt, avs )   ! old tidal mixing scheme (Simmons et al 2004) 
    295299 
    296300#if defined key_agrif  
  • NEMO/branches/UKMO/NEMO_4.0.1_old_tidal_mixing/src/OCE/ZDF/zdftmx.F90

    r10903 r11750  
    348348      REWIND( numnam_ref )              ! Namelist namzdf_tmx in reference namelist : Tidal Mixing 
    349349      READ  ( numnam_ref, namzdf_tmx, IOSTAT = ios, ERR = 901) 
    350 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in reference namelist', lwp ) 
     350901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in reference namelist' ) 
    351351 
    352352      REWIND( numnam_cfg )              ! Namelist namzdf_tmx in configuration namelist : Tidal Mixing 
    353353      READ  ( numnam_cfg, namzdf_tmx, IOSTAT = ios, ERR = 902 ) 
    354 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp ) 
     354902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist' ) 
    355355      IF(lwm) WRITE ( numond, namzdf_tmx ) 
    356356 
Note: See TracChangeset for help on using the changeset viewer.