source: codes/icosagcm/trunk/src/base/math_const.f90

Last change on this file was 548, checked in by dubos, 7 years ago

trunk : reorganize source tree
File size: 142 bytes
Line 
1MODULE math_const
2  USE PREC
3 
4  REAL(rstd),PARAMETER :: Pi=acos(-1._rstd)
5  COMPLEX(cstd), PARAMETER :: Imag=(0,1)
6 
7END MODULE math_const
Note: See TracBrowser for help on using the repository browser.