9 |
SUBROUTINE orbite(xjour, longi, dist) |
SUBROUTINE orbite(xjour, longi, dist) |
10 |
|
|
11 |
USE yomcst, ONLY : r_ecc, r_peri |
USE yomcst, ONLY : r_ecc, r_peri |
12 |
use numer_rec, only: pi |
use nr_util, only: pi |
13 |
|
|
14 |
! Auteur(s): Z.X. Li (LMD/CNRS) |
! Auteur(s): Z.X. Li (LMD/CNRS) |
15 |
! Date: 1993/08/18 |
! Date: 1993/08/18 |
64 |
USE yomcst, ONLY : r_incl |
USE yomcst, ONLY : r_incl |
65 |
USE phyetat0_m, ONLY : rlat, rlon |
USE phyetat0_m, ONLY : rlat, rlon |
66 |
USE comconst, ONLY : pi |
USE comconst, ONLY : pi |
67 |
use numer_rec, only: assert |
use nr_util, only: assert |
68 |
|
|
69 |
! Author : O. Boucher (LMD/CNRS), d'après les routines "zenith" et |
! Author : O. Boucher (LMD/CNRS), d'après les routines "zenith" et |
70 |
! "angle" de Z.X. Li |
! "angle" de Z.X. Li |