IGMBaseLib 1.0

src/util/phys/Earth_Constants.f90

説明を見る。
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
 全て クラス ネームスペース ファイル 関数 変数