Line | |
---|
1 | MODULE earth_const |
---|
2 | USE prec |
---|
3 | USE math_const |
---|
4 | |
---|
5 | REAL(rstd),PARAMETER :: radius=6.37122E6 |
---|
6 | ! REAL(rstd),PARAMETER :: radius=1. |
---|
7 | REAL(rstd),PARAMETER :: g=9.80616 |
---|
8 | REAL(rstd),PARAMETER :: daysec=86400 |
---|
9 | ! REAL(rstd),PARAMETER :: omega=2*Pi/daysec |
---|
10 | REAL(rstd),PARAMETER :: omega=7.292E-5 |
---|
11 | ! REAL(rstd),PARAMETER :: omega=0 |
---|
12 | REAL(rstd),PARAMETER :: kappa=0.2857143 |
---|
13 | REAL(rstd),PARAMETER :: cpp=1004.70885 |
---|
14 | REAL(rstd),PARAMETER :: preff=101325. |
---|
15 | REAL(rstd),PARAMETER :: pa=50000. |
---|
16 | |
---|
17 | END MODULE earth_const |
---|
18 | |
---|
Note: See
TracBrowser
for help on using the repository browser.