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	guez	3	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	guez	12	logical:: fxyhypb = .TRUE.
10			! (fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée
11			! sinusoïdale)
12	guez	3
13	guez	12	logical:: ysinus = .TRUE.
14			! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.)
15	guez	3
16	guez	20	logical:: ok_guide= .FALSE. ! guidage
17	guez	3
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	guez	12	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	guez	3	end module logic