--- trunk/libf/phylmd/orbite.f90 2009/12/14 15:25:16 23 +++ trunk/phylmd/orbite.f90 2013/11/15 18:45:49 76 @@ -9,7 +9,7 @@ SUBROUTINE orbite(xjour, longi, dist) USE yomcst, ONLY : r_ecc, r_peri - use numer_rec, only: pi + use nr_util, only: pi ! Auteur(s): Z.X. Li (LMD/CNRS) ! Date: 1993/08/18 @@ -63,8 +63,7 @@ USE dimphy, ONLY : klon USE yomcst, ONLY : r_incl USE phyetat0_m, ONLY : rlat, rlon - USE comconst, ONLY : pi - use numer_rec, only: assert + use nr_util, only: assert, pi ! Author : O. Boucher (LMD/CNRS), d'après les routines "zenith" et ! "angle" de Z.X. Li