libf/dyn3d/logic.f90

module logic

  implicit none

  LOGICAL:: purmats= .FALSE.
  ! Help = Choix du schema d'integration temporel.
  ! y = pure Matsuno sinon c'est du Matsuno-leapfrog

  logical:: fxyhypb = .TRUE.
  ! (fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée
  ! sinusoïdale)

  logical:: ysinus = .TRUE.
  ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.)

  logical:: ok_guide= .FALSE. ! guidage

  INTEGER:: iflag_phys = 1
  ! contrôle l'appel à la physique :
  ! 0 : pas de physique
  ! 1 : physique normale (appel à phylmd, phymars...) (default)
  ! 2 : rappel Newtonien pour la température + friction au sol

contains

  subroutine read_logic

    namelist /logic_nml/ purmats, fxyhypb, ysinus, ok_guide, iflag_phys

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

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

  end subroutine read_logic

end module logic
1	module logic
2
3	implicit none
4
5	LOGICAL:: purmats= .FALSE.
6	! Help = Choix du schema d'integration temporel.
7	! y = pure Matsuno sinon c'est du Matsuno-leapfrog
8
9	logical:: fxyhypb = .TRUE.
10	! (fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée
11	! sinusoïdale)
12
13	logical:: ysinus = .TRUE.
14	! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.)
15
16	logical:: ok_guide= .FALSE. ! guidage
17
18	INTEGER:: iflag_phys = 1
19	! contrôle l'appel à la physique :
20	! 0 : pas de physique
21	! 1 : physique normale (appel à phylmd, phymars...) (default)
22	! 2 : rappel Newtonien pour la température + friction au sol
23
24	contains
25
26	subroutine read_logic
27
28	namelist /logic_nml/ purmats, fxyhypb, ysinus, ok_guide, iflag_phys
29
30	!------------------------------------
31
32	print *, "Enter namelist 'logic_nml'."
33	read(unit=*, nml=logic_nml)
34	write(unit=*, nml=logic_nml)
35
36	end subroutine read_logic
37
38	end module logic