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	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			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