Go to the source code of this file.
|
module | tools_const |
| Define usual constants and missing values.
|
|
|
real(kind_real), parameter, public | tools_const::pi = acos(-1.0_kind_real) |
|
real(kind_real), parameter, public | tools_const::deg2rad = pi/180.0_kind_real |
|
real(kind_real), parameter, public | tools_const::rad2deg = 180.0_kind_real/pi |
|
real(kind_real), parameter, public | tools_const::req = 6371229.0_kind_real |
|
real(kind_real), parameter, public | tools_const::reqkm = 6371.229_kind_real |
|
real(kind_real), parameter, public | tools_const::ps = 101325.0_kind_real |
|