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

Last change on this file since 5428 was 5268, checked in by abarral, 2 months ago

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

File size: 147 bytes
RevLine 
[3491]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.