SURFEX v8.1
General documentation of Surfex
yomcst_ifsaux.F90
Go to the documentation of this file.
2 
3 USE parkind1 ,ONLY : jprb
4 
5 IMPLICIT NONE
6 
7 SAVE
8 
9 ! ------------------------------------------------------------------
10 
11 !* Module of physical constants: XRD/IFSAUX version.
12 
13 ! A1.0 Fundamental constants
14 ! * XRPI : number Pi
15 REAL(KIND=JPRB) :: xrpi
16 
17 ! A1.2 Geoide
18 ! * XRA : Earth radius
19 REAL(KIND=JPRB) :: xra
20 
21 ! ------------------------------------------------------------------
22 END MODULE yomcst_ifsaux
real(kind=jprb) xrpi
real(kind=jprb) xra
integer, parameter jprb
Definition: parkind1.F90:32