source: LMDZ6/trunk/libf/phylmd/cospv2/cosp_math_constants.f90

Last change on this file was 5268, checked in by abarral, 8 days ago

.f90 <-> .F90 depending on cpp key use

File size: 147 bytes
Line 
1MODULE cosp_math_constants
2  USE cosp_kinds, only: wp
3  IMPLICIT NONE
4  REAL(wp), PARAMETER :: pi =  acos(-1.0_wp)
5
6END MODULE cosp_math_constants
Note: See TracBrowser for help on using the repository browser.