trunk/phylmd/ctherm.f

module ctherm

  implicit none

  integer, save:: iflag_thermals, nsplit_thermals

  ! À inclure éventuellement dans les fichiers de configuration.

  real:: r_aspect_thermals = 4.
  real:: l_mix_thermals = 10.
  real:: tho_thermals = 0.
  integer:: w2di_thermals = 0

end module ctherm
1	guez	3	module ctherm
2
3			implicit none
4
5	guez	54	integer, save:: iflag_thermals, nsplit_thermals
6	guez	3
7	guez	54	! À inclure éventuellement dans les fichiers de configuration.
8	guez	3
9			real:: r_aspect_thermals = 4.
10			real:: l_mix_thermals = 10.
11			real:: tho_thermals = 0.
12			integer:: w2di_thermals = 0
13
14			end module ctherm