- Timestamp:
- 2017-04-19T12:15:07+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdf_oce.F90
r7646 r7931 23 23 24 24 ! !!* namelist namzdf: vertical diffusion * 25 !!gm 26 ! ! vertical closure scheme flags 27 LOGICAL , PUBLIC :: ln_zdfcst !: constant coefficients 28 LOGICAL , PUBLIC :: ln_zdfric !: Richardson depend coefficients 29 LOGICAL , PUBLIC :: ln_zdftke !: Turbulent Kinetic Energy closure 30 LOGICAL , PUBLIC :: ln_zdfgls !: Generic Length Sclare closure 31 ! ! tidal induced mixing 32 LOGICAL , PUBLIC :: ln_zdftmx !: tidal mixing parameterization flag 33 ! ! double diffusion 34 LOGICAL , PUBLIC :: ln_zdfddm !: double diffusive mixing flag 35 REAL(wp), PUBLIC :: rn_avts !: maximum value of avs for salt fingering 36 REAL(wp), PUBLIC :: rn_hsbfr !: heat/salt buoyancy flux ratio 37 !!gm 38 LOGICAL , PUBLIC :: ln_zdfexp !: explicit vertical diffusion scheme flag 39 INTEGER , PUBLIC :: nn_zdfexp !: number of sub-time step (explicit time stepping) 40 LOGICAL , PUBLIC :: ln_zdfevd !: convection: enhanced vertical diffusion flag 41 INTEGER , PUBLIC :: nn_evdm !: =0/1 flag to apply enhanced avm or not 42 REAL(wp), PUBLIC :: rn_evd !: vertical eddy coeff. for enhanced vert. diff. (m2/s) 43 LOGICAL , PUBLIC :: ln_zdfnpc !: convection: non-penetrative convection flag 44 INTEGER , PUBLIC :: nn_npc !: non penetrative convective scheme call frequency 45 INTEGER , PUBLIC :: nn_npcp !: non penetrative convective scheme print frequency 46 ! ! Surface wave-induced mixing 47 LOGICAL , PUBLIC :: ln_zdfqiao !: Enhanced wave vertical mixing Qiao(2010) formulation flag 48 ! ! coefficients 25 49 REAL(wp), PUBLIC :: rn_avm0 !: vertical eddy viscosity (m2/s) 26 50 REAL(wp), PUBLIC :: rn_avt0 !: vertical eddy diffusivity (m2/s) 27 51 INTEGER , PUBLIC :: nn_avb !: constant or profile background on avt (=0/1) 28 INTEGER , PUBLIC :: nn_havtb !: horizontal shape or not for avtb (=0/1) 29 LOGICAL , PUBLIC :: ln_zdfexp !: explicit vertical diffusion scheme flag 30 INTEGER , PUBLIC :: nn_zdfexp !: number of sub-time step (explicit time stepping) 31 LOGICAL , PUBLIC :: ln_zdfevd !: convection: enhanced vertical diffusion flag 32 INTEGER , PUBLIC :: nn_evdm !: =0/1 flag to apply enhanced avm or not 33 REAL(wp), PUBLIC :: rn_avevd !: vertical eddy coeff. for enhanced vert. diff. (m2/s) 34 LOGICAL , PUBLIC :: ln_zdfnpc !: convection: non-penetrative convection flag 35 INTEGER , PUBLIC :: nn_npc !: non penetrative convective scheme call frequency 36 INTEGER , PUBLIC :: nn_npcp !: non penetrative convective scheme print frequency 37 LOGICAL , PUBLIC :: ln_zdfqiao !: Enhanced wave vertical mixing Qiao(2010) formulation flag 52 INTEGER , PUBLIC :: nn_havtb !: horizontal shape or not for avtb (=0/1) ! ! convection 38 53 54 55 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: avt , avs !: vertical eddy diffusivity coef at w-pt [m2/s] 39 56 40 57 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:) :: avmb , avtb !: background profile of avm and avt … … 43 60 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:) :: tfrua, tfrva !: top friction coefficients set in zdfbfr 44 61 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: avmu , avmv !: vertical viscosity coef at uw- & vw-pts [m2/s] 45 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: avm , avt!: vertical viscosity & diffusivity coef at w-pt [m2/s]62 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: avm !: vertical viscosity & diffusivity coef at w-pt [m2/s] 46 63 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: avt_k , avm_k ! not enhanced Kz 47 64 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: avmu_k, avmv_k ! not enhanced Kz … … 64 81 & tfrua(jpi, jpj), tfrva(jpi, jpj) , & 65 82 & avmu (jpi,jpj,jpk), avm (jpi,jpj,jpk) , & 66 & avmv (jpi,jpj,jpk), avt (jpi,jpj,jpk) , &83 & avmv (jpi,jpj,jpk), avt (jpi,jpj,jpk) , avs (jpi,jpj,jpk), & 67 84 & avt_k (jpi,jpj,jpk), avm_k (jpi,jpj,jpk) , & 68 85 & avmu_k(jpi,jpj,jpk), avmv_k(jpi,jpj,jpk) , &
Note: See TracChangeset
for help on using the changeset viewer.