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, save:: forward, leapf, apphys, statcl, conser
  logical, save:: apdiss, apdelq, saison

  logical, save:: fxyhypb
  ! fonction f(y) hyperbolique, sinon sinusoïdale

  logical, save:: ysinus

  logical:: ok_guide= .FALSE.
  ! Help = 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

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, save:: forward, leapf, apphys, statcl, conser
10	logical, save:: apdiss, apdelq, saison
11
12	logical, save:: fxyhypb
13	! fonction f(y) hyperbolique, sinon sinusoïdale
14
15	logical, save:: ysinus
16
17	logical:: ok_guide= .FALSE.
18	! Help = Guidage
19
20	INTEGER:: iflag_phys = 1
21	! contrôle l'appel à la physique :
22	! 0 : pas de physique
23	! 1 : physique normale (appel à phylmd, phymars...) (default)
24	! 2 : rappel Newtonien pour la température + friction au sol
25
26	end module logic