source: LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell.h @ 1330

Last change on this file since 1330 was 1146, checked in by Laurent Fairhead, 16 years ago

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 645 bytes
Line 
1      integer            :: iflag_thermals,nsplit_thermals
2      real,parameter     :: r_aspect_thermals=2.,l_mix_thermals=30.
3      real               :: tau_thermals
4      integer,parameter  :: w2di_thermals=1
5      integer            :: isplit
6
7      integer            :: iflag_coupl,iflag_clos,iflag_wake
8      integer            :: iflag_thermals_ed,iflag_thermals_optflux
9
10      common/ctherm1/iflag_thermals,nsplit_thermals
11      common/ctherm2/tau_thermals
12      common/ctherm4/iflag_coupl,iflag_clos,iflag_wake
13      common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux
14
15!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/)
Note: See TracBrowser for help on using the repository browser.