|
IGMBaseLib 1.0
|
src/util/phys/Earth_Constants.f90
Go to the documentation of this file.
00001 00012 module Earth_Constants 00013 00014 ! モジュール引用 ; Use statements 00015 ! 00016 use dc_types, only : DP 00017 00018 ! 宣言文 ; Declaration statements 00019 ! 00020 implicit none 00021 private 00022 00025 real(DP), parameter, public :: earth_radius = 6.378137e06 00026 00029 real(DP), parameter, public :: earth_g = 9.80665e00 00030 00033 real(DP), parameter, public :: earth_Omega = 7.2921159e-05 00034 00035 end module Earth_Constants
