MODULE TPM_CONSTANTS
USE PARKIND1  ,ONLY : JPIM     ,JPRB

IMPLICIT NONE

SAVE

REAL(KIND=JPRB) :: RA=6371229._JPRB   ! Radius of Earth

END MODULE TPM_CONSTANTS