Newer
Older
!MNH_LIC Copyright 2002-2020 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.
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
!-----------------------------------------------------------------
! ###############
MODULE MODD_LES_BUDGET
! ###############
!
!!**** *MODD_LES_BUDGET* - declaration of LES variables for budget computations
!!
!! PURPOSE
!! -------
!
!!
!!** IMPLICIT ARGUMENTS
!! ------------------
!! None
!!
!! REFERENCE
!! ---------
!!
!!
!! AUTHOR
!! ------
!! V. Masson *Meteo France*
!!
!! MODIFICATIONS
!! -------------
!! Original Sept. 29 2002
!!
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_PARAMETERS
!
IMPLICIT NONE
!
!-------------------------------------------------------------------------------
!
REAL :: XTIME_LES_BU
! time spent in subgrid LES computations in this time-step for budgets
!
REAL :: XTIME_LES_BU_PROCESS
! time spent in subgrid LES computations in this time-step for budgets
! for this process only (advection, microphysics, etc...)
!
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
!-------------------------------------------------------------------------------
!
!* variables of current model needed in budget computations
!
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XCURRENT_L_O_EXN_CP
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XCURRENT_RHODJ
!
LOGICAL :: LCURRENT_USERV
LOGICAL :: LCURRENT_USERC
LOGICAL :: LCURRENT_USERR
LOGICAL :: LCURRENT_USERI
LOGICAL :: LCURRENT_USERS
LOGICAL :: LCURRENT_USERG
LOGICAL :: LCURRENT_USERH
!
INTEGER :: NCURRENT_RR
!
!-------------------------------------------------------------------------------
!
!* source of U, V, W, Th, R* from advection term
!
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XCURRENT_RTHS
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XCURRENT_RTKES
REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: XCURRENT_RRS
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XCURRENT_RTHLS
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XCURRENT_RRTS
!
!-------------------------------------------------------------------------------
!
!* anomaly fields of all variables on MESONH grid
!
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XU_ANOM
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XV_ANOM
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XW_ANOM
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XTHL_ANOM
REAL, DIMENSION(:,:,:), ALLOCATABLE :: XRT_ANOM
REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: XSV_ANOM
!
!-------------------------------------------------------------------------------
!
!* budget terms fot the current time-step
!
REAL, DIMENSION(:,:), ALLOCATABLE :: X_LES_BU_RES_KE ! total production terms
REAL, DIMENSION(:,:), ALLOCATABLE :: X_LES_BU_RES_WThl ! (including resolved
REAL, DIMENSION(:,:), ALLOCATABLE :: X_LES_BU_RES_Thl2 ! turbulent fluxes)
REAL, DIMENSION(:,:), ALLOCATABLE :: X_LES_BU_RES_WRt ! for the resolved
REAL, DIMENSION(:,:), ALLOCATABLE :: X_LES_BU_RES_Rt2 ! fluxes, variances
REAL, DIMENSION(:,:), ALLOCATABLE :: X_LES_BU_RES_ThlRt ! and covariances
REAL, DIMENSION(:,:,:), ALLOCATABLE :: X_LES_BU_RES_Sv2 !
REAL, DIMENSION(:,:,:), ALLOCATABLE :: X_LES_BU_RES_WSv !
REAL, DIMENSION(:,:), ALLOCATABLE :: X_LES_BU_SBG_Tke
!
!-------------------------------------------------------------------------------
!
!* index for each processus taken into account in the budgets
!
integer, parameter :: NLES_TOTADV= 1
integer, parameter :: NLES_RELA = 2
integer, parameter :: NLES_RAD = 3
integer, parameter :: NLES_GRAV = 4
integer, parameter :: NLES_COR = 5
integer, parameter :: NLES_MICR = 6
integer, parameter :: NLES_HTURB = 7
integer, parameter :: NLES_VTURB = 8
integer, parameter :: NLES_FORC = 9
integer, parameter :: NLES_PRES = 10
integer, parameter :: NLES_DIFF = 11
integer, parameter :: NLES_CURV = 12
integer, parameter :: NLES_PREF = 13
integer, parameter :: NLES_DP = 14
integer, parameter :: NLES_TP = 15
integer, parameter :: NLES_TR = 16
integer, parameter :: NLES_DISS = 17
integer, parameter :: NLES_TEND = 18
integer, parameter :: NLES_ADVR = 19
integer, parameter :: NLES_ADVM = 20
integer, parameter :: NLES_NEST = 21
integer, parameter :: NLES_MISC = 22
integer, parameter :: NLES_TOT = 22
!
!-------------------------------------------------------------------------------
!
END MODULE MODD_LES_BUDGET