LMDZ
tpm_constants.F90
Go to the documentation of this file.
1 MODULE tpm_constants
2 USE parkind1 ,ONLY : jpim ,jprb
3 
4 IMPLICIT NONE
5 
6 SAVE
7 
8 REAL(KIND=JPRB) :: ra=6371229._jprb ! Radius of Earth
9 
10 END MODULE tpm_constants
parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:31
tpm_constants::ra
real(kind=jprb) ra
Definition: tpm_constants.F90:8
parkind1::jpim
integer, parameter jpim
Definition: parkind1.F90:13
tpm_constants
Definition: tpm_constants.F90:1