7 |
! A1.1.bis Constantes concernant l'orbite de la Terre |
! A1.1.bis Constantes concernant l'orbite de la Terre |
8 |
! Default values from AMIP II |
! Default values from AMIP II |
9 |
|
|
10 |
REAL:: R_ecc = 0.016715 ! excentricité |
REAL, protected, save:: R_ecc = 0.016715 ! excentricité |
11 |
real:: R_peri = 102.7 ! équinoxe |
real, protected, save:: R_peri = 102.7 ! équinoxe, en degr\'es |
12 |
real:: R_incl = 23.441 ! inclinaison, en degr\'es |
real, protected, save:: R_incl = 23.441 ! inclinaison, en degr\'es |
13 |
|
|
14 |
contains |
contains |
15 |
|
|