source: codes/icosagcm/trunk/src/math_const.f90 @ 519

Last change on this file since 519 was 12, checked in by ymipsl, 12 years ago

dynamico tree creation

YM
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.