libf/phylmd/ctherm.f90

module ctherm

  implicit none

  integer, save:: iflag_thermals,nsplit_thermals

  !  A inclure eventuellement 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	module ctherm
2
3	implicit none
4
5	integer, save:: iflag_thermals,nsplit_thermals
6
7	! A inclure eventuellement dans les fichiers de configuration
8
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