source: LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h @ 1142

Last change on this file since 1142 was 1142, checked in by yann meurdesoif, 15 years ago

Portage vers Vargas

Y.M + E.M
  • 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.