mercury/constants.pro at master · capile/mercury · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
; Constants

; Sun stuff
Msun      =  1.98892d30               ;kg
Rsun      =  695.3d6                  ;m
Lsun      =  3.939d26                 ;W

; Units
AU        =  1.4959787d11             ;m
yr        =  365.25*24*3600           ;s
day       =  24*3600.                 ;s
hr        =  3600.                    ;s

; Masses of some planets
Mjup      =  9.547922048d-4 * Msun    ;kg
Rjup      =  69.911d6                 ;m

Mearth    =  3.040433607d-6 * Msun    ;kg
Rearth    =  6371.0d3                 ;m

Mmars     =  6.4185d23                ;kg
Rmars     =  3.3895d6                 ;m

; Some physical constants
G         =  6.6742367d-11            ;m^3.kg^-1.s^-2
cc        =  299792458.d0             ;m/s
hp        =  6.626d-34                ;J.s
sig       =  5.67d-8                  ;W.m-2.K-4
kb        =  1.3806503d-23            ;m2.kg.s-2.K-1


;! moment of inertia (I/mR^2)
rg2_sun    =  5.9d-2
rg2_jup    =  2.54d-1
rg2_earth  =  3.308d-1