Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
!MNH_LIC Copyright 1995-2021 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
! ##################
MODULE MODD_TURB_n
! ##################
!
!!**** *MODD_TURB$n* - declaration of turbulence scheme free parameters
!!
!! PURPOSE
!! -------
! The purpose of this declarative module is to declare the
! variables that may be set by namelist for the turbulence scheme
!
!!
!!** IMPLICIT ARGUMENTS
!! ------------------
!! None
!!
!! REFERENCE
!! ---------
!! Book2 of documentation of Meso-NH (module MODD_PARAMn)
!!
!! AUTHOR
!! ------
!! J. Cuxart and J. Stein * I.N.M. and Meteo France*
!!
!! MODIFICATIONS
!! -------------
!! Original January 9, 1995
!! J.Cuxart February 15, 1995 add the switches for diagnostic storages
!! J.M. Carriere May 15, 1995 add the subgrid condensation
!! M. Tomasini Jul 05, 2001 add the subgrid autoconversion
!! P. Bechtold Feb 11, 2002 add switch for Sigma_s computation
!! P. Jabouille Apr 4, 2002 add switch for Sigma_s convection
!! V. Masson Nov 13 2002 add switch for SBL lengths
!! May 2006 Remove KEPS
!! C.Lac Nov 2014 add terms of TKE production for LES diag
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
!! D. Ricard May 2021 add the switches for Leonard terms
!! JL Redelsperger 03/2021 Add O-A flux for auto-coupled LES case
!!
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_PARAMETERS, ONLY: JPMODELMAX
IMPLICIT NONE
!
!
REAL :: XIMPL ! implicitness degree for the vertical terms of
! the turbulence scheme
REAL :: XKEMIN ! mimimum value for the TKE
REAL :: XCEDIS ! Constant for dissipation of Tke
REAL :: XCADAP ! Coefficient for ADAPtative mixing length
CHARACTER (LEN=4) :: CTURBLEN ! type of length used for the closure
! 'BL89' Bougeault and Lacarrere scheme
! 'DELT' length = ( volum) ** 1/3
CHARACTER (LEN=4) :: CTURBDIM ! dimensionality of the turbulence scheme
! '1DIM' for purely vertical computations
! '3DIM' for computations in the 3
! directions
LOGICAL :: LTURB_FLX ! logical switch for the storage of all
! the turbulent fluxes
LOGICAL :: LTURB_DIAG! logical switch for the storage of some
! turbulence related diagnostics
LOGICAL :: LSUBG_COND! Switch for subgrid condensation
LOGICAL :: LSIGMAS ! Switch for using Sigma_s from turbulence scheme
LOGICAL :: LSIG_CONV ! Switch for computing Sigma_s due to convection
!
LOGICAL :: LRMC01 ! Switch for computing separate mixing
! ! and dissipative length in the SBL
! ! according to Redelsperger, Mahe &
! ! Carlotti 2001
CHARACTER(LEN=4) :: CTOM ! type of Third Order Moments
! 'NONE' none
! 'TM06' Tomas Masson 2006
CHARACTER(LEN=4) :: CSUBG_AUCV ! type of subgrid rc->rr autoconv. method
CHARACTER(LEN=80) :: CSUBG_AUCV_RI ! type of subgrid ri->rs autoconv. method
CHARACTER(LEN=80) :: CCONDENS ! subrgrid condensation PDF
CHARACTER(LEN=4) :: CLAMBDA3 ! lambda3 choice for subgrid cloud scheme
CHARACTER(LEN=80) :: CSUBG_MF_PDF ! PDF to use for MF cloud autoconversions
! REAL, DIMENSION(:,:), POINTER :: XBL_DEPTH=>NULL() ! BL depth for TOMS computations
! REAL, DIMENSION(:,:), POINTER :: XSBL_DEPTH=>NULL()! SurfaceBL depth for RMC01 computations
! REAL, DIMENSION(:,:,:), POINTER :: XWTHVMF=>NULL()! Mass Flux vert. transport of buoyancy
REAL :: VSIGQSAT ! coeff applied to qsat variance contribution
REAL, DIMENSION(:,:,:), POINTER :: XDYP=>NULL() ! Dynamical production of Kinetic energy
REAL, DIMENSION(:,:,:), POINTER :: XTHP=>NULL() ! Thermal production of Kinetic energy
REAL, DIMENSION(:,:,:), POINTER :: XTR=>NULL() ! Transport production of Kinetic energy
REAL, DIMENSION(:,:,:), POINTER :: XDISS=>NULL() ! Dissipation of Kinetic energy
REAL, DIMENSION(:,:,:), POINTER :: XLEM=>NULL() ! Mixing length
REAL, DIMENSION(:,:,:), POINTER :: XSSUFL_C=>NULL() ! O-A interface flux for u
REAL, DIMENSION(:,:,:), POINTER :: XSSVFL_C=>NULL() ! O-A interface flux for v
REAL, DIMENSION(:,:,:), POINTER :: XSSTFL_C=>NULL() ! O-A interface flux for theta
REAL, DIMENSION(:,:,:), POINTER :: XSSRFL_C=>NULL() ! O-A interface flux for vapor
LOGICAL :: LHGRAD ! logical switch for the computation of the Leornard Terms
REAL :: XCOEFHGRADTHL ! coeff applied to thl contribution
REAL :: XCOEFHGRADRM ! coeff applied to mixing ratio contribution
REAL :: XALTHGRAD ! altitude from which to apply the Leonard terms
REAL :: XCLDTHOLD ! cloud threshold to apply the Leonard terms
! negative value : applied everywhere
! 0.000001 applied only inside the clouds ri+rc > 10**-6 kg/kg
!
END MODULE MODD_TURB_n