phys_constant.f90

Go to the documentation of this file.
00001 module phys_constant
00002   implicit none
00003   Integer, parameter :: long = SELECTED_REAL_KIND(15,307)
00004   real(long), parameter :: pi = 3.14159265358979d+0
00005   real(long), parameter :: g = 6.67428d-08
00006   real(long), parameter :: c = 2.99792458d+10
00007   real(long), parameter :: msol   = 1.98892d+33
00008   real(long), parameter :: solmas = 1.98892d+33
00009   integer, parameter :: nnrg = 520, nntg = 256, nnpg = 256, nnlg = 20
00010   integer, parameter :: nnrf = 200, nntf = 256, nnpf = 256, nnlf = 20
00011   integer, parameter :: nnpeos = 10
00012   integer, parameter :: nnmpt = 5
00013   integer, parameter :: nmpt = 2
00014 !  integer, parameter :: nmpt = 3
00015 end module phys_constant