source: LMDZ6/branches/Amaury_dev/libf/phylmd/conema3.h @ 5117

Last change on this file since 5117 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: 741 bytes
Line 
1
2! $Header$
3!-- Modified by : Filiberti M-A 06/2005
4
5      REAL epmax             ! 0.993
6      REAL coef_epmax_cape             ! 0.993
7!jyg<
8      REAL  cvl_comp_threshold     ! 0.
9!>jyg
10      LOGICAL ok_adj_ema      ! F
11      INTEGER iflag_clw      ! 0
12      INTEGER iflag_cvl_sigd
13      REAL cvl_sig2feed      ! 0.97
14
15!jyg<
16!!      common/comconema1/epmax,coef_epmax_cape,ok_adj_ema,iflag_clw,sig1feed,sig2feed
17!!      common/comconema2/iflag_cvl_sigd
18      common/comconema1/epmax,coef_epmax_cape, cvl_comp_threshold, cvl_sig2feed
19      common/comconema2/iflag_cvl_sigd, iflag_clw, ok_adj_ema
20!>jyg
21
22!      common/comconema/epmax,coef_epmax_cape,ok_adj_ema,iflag_clw
23!$OMP THREADPRIVATE(/comconema1/)
24!$OMP THREADPRIVATE(/comconema2/)
25
Note: See TracBrowser for help on using the repository browser.