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 |