source: LMDZ5/trunk/libf/phylmd/thermcell.h @ 1509

Last change on this file since 1509 was 1496, checked in by Laurent Fairhead, 14 years ago

Modified closure for the new physics package, new values for the iflag_coupl parameter
FH


Fermeture modifiée pour la nouvelle physique, nouvelles valeurs définies pour
le paramètre iflag_coupl
FH

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