source:
codes/icosagcm/trunk/src/base/math_const.f90
@
1031
Last change on this file since 1031 was 548, checked in by dubos, 7 years ago | |
---|---|
File size: 142 bytes |
Line | |
---|---|
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.