phylmd/Thermcell/ctherm.f90

module ctherm_m

  implicit none

  logical, protected:: iflag_thermals = .false.
  integer, protected:: nsplit_thermals = 1

contains

  subroutine ctherm

    use unit_nml_m, only: unit_nml

    namelist /ctherm_nml/ iflag_thermals, nsplit_thermals

    !--------------------------------------------------------------------

    print *, "Enter namelist 'ctherm_nml'."
    read(unit=*, nml=ctherm_nml)
    write(unit_nml, nml=ctherm_nml)

  end subroutine ctherm

end module ctherm_m
1	module ctherm_m
2
3	implicit none
4
5	logical, protected:: iflag_thermals = .false.
6	integer, protected:: nsplit_thermals = 1
7
8	contains
9
10	subroutine ctherm
11
12	use unit_nml_m, only: unit_nml
13
14	namelist /ctherm_nml/ iflag_thermals, nsplit_thermals
15
16	!--------------------------------------------------------------------
17
18	print *, "Enter namelist 'ctherm_nml'."
19	read(unit=*, nml=ctherm_nml)
20	write(unit_nml, nml=ctherm_nml)
21
22	end subroutine ctherm
23
24	end module ctherm_m