source:
codes/icosagcm/trunk/src/math_const.f90
@
276
Last change on this file since 276 was 12, checked in by ymipsl, 12 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.