LMDZ
thermcell.h
Go to the documentation of this file.
1  integer :: iflag_thermals,nsplit_thermals
2 
3 !!! nrlmd le 10/04/2012
4  integer :: iflag_trig_bl,iflag_clos_bl
5  integer :: tau_trig_shallow,tau_trig_deep
6  real :: s_trig
7 !!! fin nrlmd le 10/04/2012
8 
9  real,parameter :: r_aspect_thermals=2.,l_mix_thermals=30.
10  real :: alp_bl_k
11  real :: tau_thermals,fact_thermals_ed_dz
12  integer,parameter :: w2di_thermals=0
13  integer :: isplit
14 
15  integer :: iflag_coupl,iflag_clos,iflag_wake
16  integer :: iflag_thermals_ed,iflag_thermals_optflux,iflag_thermals_closure
17 
18  common/ctherm1/iflag_thermals,nsplit_thermals,iflag_thermals_closure
19  common/ctherm2/tau_thermals,alp_bl_k,fact_thermals_ed_dz
20  common/ctherm4/iflag_coupl,iflag_clos,iflag_wake
21  common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux
22 
23 !!! nrlmd le 10/04/2012
24  common/ctherm6/iflag_trig_bl,iflag_clos_bl
25  common/ctherm7/tau_trig_shallow,tau_trig_deep
26  common/ctherm8/s_trig
27 !!! fin nrlmd le 10/04/2012
28 
29 !$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/)
30 !$OMP THREADPRIVATE(/ctherm6/,/ctherm7/,/ctherm8/)
iflag_thermals_optflux
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_optflux
Definition: thermcell.h:12
iflag_coupl
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_closure common ctherm1 iflag_thermals_closure common ctherm2 fact_thermals_ed_dz common ctherm4 iflag_coupl
Definition: thermcell.h:12
iflag_trig_bl
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_closure common ctherm1 iflag_thermals_closure common ctherm2 fact_thermals_ed_dz common ctherm4 iflag_wake common ctherm5 iflag_thermals_optflux!nrlmd le common ctherm6 iflag_trig_bl
Definition: thermcell.h:12
THREADPRIVATE
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_closure common ctherm1 iflag_thermals_closure common ctherm2 fact_thermals_ed_dz common ctherm4 iflag_wake common ctherm5 iflag_thermals_optflux!nrlmd le common ctherm6 iflag_clos_bl common ctherm7 tau_trig_deep common ctherm8 s_trig!fin nrlmd le!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/)!$OMP THREADPRIVATE(/ctherm6/
ctherm7
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_closure common ctherm1 iflag_thermals_closure common ctherm2 fact_thermals_ed_dz common ctherm4 iflag_wake common ctherm5 iflag_thermals_optflux!nrlmd le common ctherm6 iflag_clos_bl common ctherm7 tau_trig_deep common ctherm8 s_trig!fin nrlmd le!$OMP ctherm7
Definition: thermcell.h:30
tau_trig_shallow
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_closure common ctherm1 iflag_thermals_closure common ctherm2 fact_thermals_ed_dz common ctherm4 iflag_wake common ctherm5 iflag_thermals_optflux!nrlmd le common ctherm6 iflag_clos_bl common ctherm7 tau_trig_shallow
Definition: thermcell.h:12
real
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le real
Definition: thermcell.h:1
l_mix_thermals
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le l_mix_thermals
Definition: thermcell.h:9
iflag_thermals
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_closure common ctherm1 iflag_thermals
Definition: thermcell.h:12
integer
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz integer
Definition: thermcell.h:9
tau_thermals
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_closure common ctherm1 iflag_thermals_closure common ctherm2 tau_thermals
Definition: thermcell.h:12
nsplit_thermals
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_closure common ctherm1 nsplit_thermals
Definition: thermcell.h:12
iflag_thermals_ed
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_closure common ctherm1 iflag_thermals_closure common ctherm2 fact_thermals_ed_dz common ctherm4 iflag_wake common ctherm5 iflag_thermals_ed
Definition: thermcell.h:12
alp_bl_k
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_wake iflag_thermals_closure common ctherm1 iflag_thermals_closure common ctherm2 alp_bl_k
Definition: thermcell.h:12
iflag_clos
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz iflag_clos
Definition: thermcell.h:12