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