/[lmdze]/trunk/phylmd/orbite.f90
ViewVC logotype

Diff of /trunk/phylmd/orbite.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 98 by guez, Tue May 13 17:23:16 2014 UTC revision 118 by guez, Thu Dec 18 17:30:24 2014 UTC
# Line 1  Line 1 
1  MODULE orbite_m  MODULE orbite_m
2    
3    ! From phylmd/orbite.F, v 1.1.1.1 2004/05/19 12:53:08    ! From phylmd/orbite.F, version 1.1.1.1 2004/05/19 12:53:08
4    
5    IMPLICIT NONE    IMPLICIT NONE
6    
# Line 8  CONTAINS Line 8  CONTAINS
8    
9    SUBROUTINE orbite(xjour, longi, dist)    SUBROUTINE orbite(xjour, longi, dist)
10    
     USE yomcst, ONLY : r_ecc, r_peri  
11      use nr_util, only: pi      use nr_util, only: pi
12        USE yomcst, ONLY : r_ecc, r_peri
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
16    
17      ! Pour un jour donné, calcule la longitude vraie de la Terre (par      ! Pour un jour donné, calcule la longitude vraie de la Terre (par
18      ! rapport au point vernal, 21 mars) dans son orbite solaire. Calcule aussi      ! rapport au point vernal, 21 mars) dans son orbite
19      ! la distance Terre-Soleil, c'est-à-dire l'unité astronomique.      ! solaire. Calcule aussi la distance Terre-Soleil, c'est-à-dire
20        ! l'unité astronomique.
21    
22      REAL, INTENT (IN):: xjour ! jour de l'année à compter du premier janvier      REAL, INTENT (IN):: xjour ! jour de l'année à compter du premier janvier
23    
Legend:
Removed from v.98  
changed lines
  Added in v.118
  ViewVC Help
Powered by ViewVC 1.1.21