Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Module/phys

00001 module phys_constant
00002   implicit none
00003   Integer, parameter :: long = SELECTED_REAL_KIND(15,307)
00004   real(long), parameter :: pi = 3.141592653589793d+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   real(long), parameter :: mag_mu0= 4.0d0*pi*1.0d-02
00010   real(long), parameter :: fpieps0= 4.0d0*pi/(mag_mu0*c**2)
00011 ! Gauss: a conversion factor from G=c=M=4piepsilon=1 unit to cgs Gauss.
00012 ! statV: a conversion factor from G=c=M=4piepsilon=1 unit to cgs Gauss.
00013 !  real(long), parameter :: Gauss=(c**6/(fpieps0*G**3*msol**2))**0.5d0*10.0
00014 !  real(long), parameter :: statV=(c**8/(fpieps0*G**3*msol**2))**0.5d0*10.0/c
00015   real(long), parameter :: Gauss = 2.355368504154456d+19
00016   real(long), parameter :: statV = 2.355368504154456d+19
00017   integer, parameter :: nnrg = 520, nntg = 256, nnpg = 256, nnlg = 20
00018   integer, parameter :: nnrf = 500, nntf = 256, nnpf = 256, nnlf = 20
00019   integer, parameter :: nnpeos = 10
00020   integer, parameter :: nnmpt = 5
00021   integer, parameter :: nmpt = 2
00022 !  integer, parameter :: nmpt = 3
00023 end module phys_constant
/home/uryu/Cocal_svn_checkinout/Cocal/code/Module/phys_constant.f90
