tpm_constants.F90 Source File


This file depends on

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

Files dependent on this one

sourcefile~~tpm_constants.f90~~AfferentGraph sourcefile~tpm_constants.f90 tpm_constants.F90 sourcefile~suleg_mod.f90 suleg_mod.F90 sourcefile~suleg_mod.f90->sourcefile~tpm_constants.f90 sourcefile~suleg_mod.f90~2 suleg_mod.F90 sourcefile~suleg_mod.f90~2->sourcefile~tpm_constants.f90 sourcefile~setup_trans.f90 setup_trans.F90 sourcefile~setup_trans.f90->sourcefile~suleg_mod.f90 sourcefile~setup_trans.f90~2 setup_trans.F90 sourcefile~setup_trans.f90~2->sourcefile~suleg_mod.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