source: trunk/LMDZ.TITAN/libf/phytitan/orbite.F @ 537

Last change on this file since 537 was 3, checked in by slebonnois, 14 years ago

Creation de repertoires:

  • chantiers : pour communiquer sur nos projets de modifs
  • documentation : pour stocker les docs

Ajout de:

  • libf/phytitan : physique de Titan
  • libf/chimtitan: chimie de Titan
  • libf/phyvenus : physique de Venus
File size: 1.0 KB
Line 
1      SUBROUTINE orbite(pls,pdist_sol,pdecli)
2      IMPLICIT NONE
3
4c=======================================================================
5c
6c   Objet:
7c   ------
8c
9c   Distance from sun and declination as a function of the solar
10c   longitude Ls
11c
12c   Interface:
13c   ----------
14c
15c    common 'comorbit.h' initialized by comorbit.f
16c
17c   Arguments:
18c   ----------
19c
20c   Input:
21c   ------
22c   pls          Ls
23c
24c   Output:
25c   -------
26c   pdist_sol     Distance Sun-Planet in UA
27c   pdecli        declinaison ( en radians )
28c
29c=======================================================================
30c-----------------------------------------------------------------------
31c   Declarations:
32c   -------------
33
34#include "comorbit.h"
35
36c arguments:
37c ----------
38
39      REAL pday,pdist_sol,pdecli,pls
40
41c-----------------------------------------------------------------------
42
43c Distance Sun-Planet
44
45      pdist_sol=p_elips/(1.+e_elips*cos(pls+timeperi))
46
47c Solar declination
48
49      pdecli= asin (sin(pls)*sin(obliquit*pi/180.))
50
51      RETURN
52      END
Note: See TracBrowser for help on using the repository browser.