source: LMDZ5/branches/AI-cosp/libf/phylmd/conema3.h @ 5440

Last change on this file since 5440 was 2253, checked in by jyg, 10 years ago

1/ Introduction of two variables in the ".def" files: (i) cvl_sig2feed is
the top of the convective feeding layer in sigma coordinates (D=0.97);
(ii) cvl_comp_threshold is the threshold fraction of convective points
below which compression occurs (D=1.).
2/ Corrections of various bugs revealed by the changes in compression:

  • correct bugs in cv3a_uncompress.F90 for 3 fields used for convective

scavenging.

  • add a reset to zero of "sig" and "w0" for non-convective points

(cva_driver.F90).

  • in cv3_routines.F90, correct bounds of a few loops in cv3_undilute2,

correct the reset of the no-convection counter in cv3_yield.

  • in phys_output_write_mod.F90, correct output of wdtrainA and wdtrainM.

3/ Improve declarations in various subroutines.

Modified files:

conema3.h
cv3param.h
cv3p1_closure.F90
conf_phys_m.F90
cv3a_compress.F90
phys_output_write_mod.F90
cv3_routines.F90
concvl.F90
cva_driver.F90
cv3a_uncompress.F90

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