source: LMDZ6/branches/Amaury_dev/libf/phylmd/cv3param.h @ 5136

Last change on this file since 5136 was 5117, checked in by abarral, 2 months ago

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
RevLine 
[1992]1!------------------------------------------------------------
2! Parameters for convectL, iflag_con=3:
3! (includes - microphysical parameters,
4!                       - parameters that control the rate of approach
5!               to quasi-equilibrium)
6!                       - noff & minorig (previously in input of convect1)
7!------------------------------------------------------------
[879]8
[5117]9      INTEGER flag_epKEorig
10      REAL flag_wb
11      INTEGER cv_flag_feed
12      INTEGER noff, minorig, nl, nlp, nlm
13      REAL sigdz, spfac
14      REAL pbcrit, ptcrit
15      REAL elcrit, tlcrit
16      REAL coef_peel
17      REAL omtrain
18      REAL dtovsh, dpbase, dttrig
19      REAL dtcrit, tau, beta, alpha, alpha1
20      REAL T_top_max
21      REAL tau_stop, noconv_stop
22      REAL wbmax
23      REAL delta
24      REAL betad
25      REAL ejectliq
26      REAL ejectice
[879]27
[2253]28      COMMON /cv3param/ sigdz, spfac &
[1992]29                      ,pbcrit, ptcrit &
30                      ,elcrit, tlcrit &
[2458]31                      ,coef_peel &
[1992]32                      ,omtrain &
33                      ,dtovsh, dpbase, dttrig &
34                      ,dtcrit, tau, beta, alpha, alpha1 &
[2761]35                      ,T_top_max &
[2398]36                      ,tau_stop, noconv_stop &
[2253]37                      ,wbmax &
38                      ,delta, betad  &
[3496]39                      ,ejectliq, ejectice &
[5081]40                      ,flag_wb &
[2253]41                      ,flag_epKEorig &
[5081]42                      ,cv_flag_feed &
[3496]43                      ,noff, minorig, nl, nlp, nlm
[987]44!$OMP THREADPRIVATE(/cv3param/)
[879]45
Note: See TracBrowser for help on using the repository browser.