tpm_constants.F90 Source File


This file depends on

sourcefile~~tpm_constants.f90~2~~EfferentGraph sourcefile~tpm_constants.f90~2 tpm_constants.F90 sourcefile~parkind1.f90 parkind1.F90 sourcefile~tpm_constants.f90~2->sourcefile~parkind1.f90

Contents

Source Code


Source Code

MODULE TPM_CONSTANTS
USE PARKIND1  ,ONLY : JPIM     ,JPRB

IMPLICIT NONE

SAVE

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

END MODULE TPM_CONSTANTS