source: LMDZ4/trunk/libf/phylmd/thermcell.h @ 1349

Last change on this file since 1349 was 1146, checked in by Laurent Fairhead, 15 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
RevLine 
[1146]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
[542]6
[1146]7      integer            :: iflag_coupl,iflag_clos,iflag_wake
8      integer            :: iflag_thermals_ed,iflag_thermals_optflux
9
[878]10      common/ctherm1/iflag_thermals,nsplit_thermals
[1146]11      common/ctherm2/tau_thermals
[879]12      common/ctherm4/iflag_coupl,iflag_clos,iflag_wake
[1026]13      common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux
14
[1146]15!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/)
Note: See TracBrowser for help on using the repository browser.