source:
codes/icosagcm/devel/src/base/math_const.f90
Last change on this file was 883, checked in by dubos, 5 years ago | |
---|---|
File size: 174 bytes |
Rev | Line | |
---|---|---|
[12] | 1 | MODULE math_const |
2 | USE PREC | |
3 | ||
[883] | 4 | REAL(rstd), PARAMETER :: Pi=acos(-1._rstd), radian_to_degree=180._rstd/Pi |
[12] | 5 | COMPLEX(cstd), PARAMETER :: Imag=(0,1) |
6 | ||
7 | END MODULE math_const |
Note: See TracBrowser
for help on using the repository browser.