source:
LMDZ6/branches/Amaury_dev/libf/misc/lmdz_physical_constants.f90
Last change on this file was 5119, checked in by , 2 months ago | |
---|---|
File size: 915 bytes |
Line | |
---|---|
1 | MODULE lmdz_physical_constants |
2 | |
3 | IMPLICIT NONE; PRIVATE |
4 | PUBLIC k8, PI, PIO2, TWOPI, SQRT2, EULER, PI_D, PIO2_D, TWOPI_D |
5 | |
6 | INTEGER, parameter :: k8 = selected_real_kind(13) |
7 | |
8 | ! Frequently used mathematical constants (with precision to spare): |
9 | |
10 | REAL, PARAMETER :: PI = 3.141592653589793238462643383279502884197 |
11 | REAL, PARAMETER :: PIO2 = 1.57079632679489661923132169163975144209858 |
12 | REAL, PARAMETER :: TWOPI = 6.283185307179586476925286766559005768394 |
13 | REAL, PARAMETER :: SQRT2 = 1.41421356237309504880168872420969807856967 |
14 | REAL, PARAMETER :: EULER = 0.5772156649015328606065120900824024310422 |
15 | |
16 | REAL(K8), PARAMETER :: & |
17 | PI_D = 3.141592653589793238462643383279502884197_k8 |
18 | REAL(K8), PARAMETER :: & |
19 | PIO2_D = 1.57079632679489661923132169163975144209858_k8 |
20 | REAL(K8), PARAMETER :: & |
21 | TWOPI_D = 6.283185307179586476925286766559005768394_k8 |
22 | |
23 | END MODULE lmdz_physical_constants |
Note: See TracBrowser
for help on using the repository browser.