PARAMS_MS Derived Type

  1. korc_collisions.f90
  2. korc_collisions
  3. PARAMS_MS

type, private :: PARAMS_MS


Contents

Variables

Source Code

PARAMS_MS

Components

TypeVisibility AttributesNameInitial
integer, public :: num_impurity_species
real(kind=rp), public :: Te
real(kind=rp), public :: ne
real(kind=rp), public :: nH
real(kind=rp), public :: nef
real(kind=rp), public, DIMENSION(:), ALLOCATABLE:: neb
real(kind=rp), public, DIMENSION(:), ALLOCATABLE:: Zi
real(kind=rp), public, DIMENSION(:), ALLOCATABLE:: Zo
real(kind=rp), public, DIMENSION(:), ALLOCATABLE:: Zj
real(kind=rp), public, DIMENSION(:), ALLOCATABLE:: nz
real(kind=rp), public, DIMENSION(:), ALLOCATABLE:: IZj
real(kind=rp), public, DIMENSION(:), ALLOCATABLE:: aZj
real(kind=rp), public, DIMENSION(:), ALLOCATABLE:: Ee_IZj
real(kind=rp), public :: rD
real(kind=rp), public :: re
real(kind=rp), public :: Gammac_min
real(kind=rp), public, DIMENSION(2):: aH =(/274._rp, 0._rp/)
real(kind=rp), public, DIMENSION(7):: aC =(/144._rp, 118._rp, 95._rp, 70._rp, 42._rp, 39._rp, 0._rp/)
real(kind=rp), public, DIMENSION(11):: aNe =(/111._rp, 100._rp, 90._rp, 80._rp, 71._rp, 62._rp, 52._rp, 40._rp, 24._rp, 23._rp, 0._rp/)
real(kind=rp), public, DIMENSION(19):: aAr =(/96._rp, 90._rp, 84._rp, 78._rp, 72._rp, 65._rp, 59._rp, 53._rp, 47._rp, 44._rp, 41._rp, 38._rp, 25._rp, 32._rp, 27._rp, 21._rp, 13._rp, 13._rp, 0._rp/)
real(kind=rp), public, DIMENSION(2):: IH =(/14.9916_rp, huge(1._rp)/)
real(kind=rp), public, DIMENSION(7):: IC =(/65.9_rp, 92.6_rp, 134.8_rp, 214.2_rp, 486.2_rp, 539.5_rp, huge(1._rp)/)
real(kind=rp), public, DIMENSION(11):: INe =(/137.2_rp, 165.2_rp, 196.9_rp, 235.2_rp, 282.8_rp, 352.6_rp, 475.0_rp, 696.8_rp, 1409.2_rp, 1498.4_rp, huge(1._rp)/)
real(kind=rp), public, DIMENSION(19):: IAr =(/188.5_rp, 219.4_rp, 253.8_rp, 293.4_rp, 339.1_rp, 394.5_rp, 463.4_rp, 568.0_rp, 728.0_rp, 795.9_rp, 879.8_rp, 989.9_rp, 1138.1_rp, 1369.5_rp, 1791.2_rp, 2497.0_rp, 4677.2_rp, 4838.2_rp, huge(1._rp)/)
character(len=30), public :: neut_prof
real(kind=rp), public :: Ec
real(kind=rp), public :: Ec_min
logical, public :: LargeCollisions

Source Code

  TYPE, PRIVATE :: PARAMS_MS
     INTEGER 					:: num_impurity_species
     REAL(rp) 					:: Te
     ! Background electron temperature in eV
     REAL(rp) 					:: ne
     ! Background electron density in 1/m^3
     REAL(rp) 					:: nH
     ! Background proton density in 1/m^3
     REAL(rp) 					:: nef
     ! Free electron density in 1/m^3
     REAL(rp), DIMENSION(:), ALLOCATABLE        :: neb
     ! Bound electron density in 1/m^3
     REAL(rp), DIMENSION(:), ALLOCATABLE        :: Zi
     ! Atomic number of (majority) background ions
     REAL(rp), DIMENSION(:), ALLOCATABLE        :: Zo
     ! Full nuclear charge of each impurity: Z=1 for D, Z=10 for Ne
     REAL(rp), DIMENSION(:), ALLOCATABLE        :: Zj
     ! Atomic number of each impurity: Z=1 for D, Z=10 for Ne
     REAL(rp), DIMENSION(:), ALLOCATABLE        :: nz
     ! Impurity densities
     REAL(rp), DIMENSION(:), ALLOCATABLE        :: IZj,aZj
     ! Ionization energy of impurity in eV
     REAL(rp), DIMENSION(:), ALLOCATABLE        :: Ee_IZj
     ! me*c^2/IZj dimensionless parameter

     REAL(rp) 					:: rD
     ! Debye length
     REAL(rp) 					:: re
     ! Classical electron radius
     REAL(rp) 					:: Gammac_min


     REAL(rp), DIMENSION(2) :: aH=(/274._rp,0._rp/)
     REAL(rp), DIMENSION(7) :: aC=(/144._rp,118._rp,95._rp,70._rp, &
          42._rp,39._rp,0._rp/)
     REAL(rp), DIMENSION(11) :: aNe=(/111._rp,100._rp,90._rp,80._rp, &
          71._rp,62._rp,52._rp,40._rp,24._rp,23._rp,0._rp/)
     REAL(rp), DIMENSION(19) :: aAr=(/96._rp,90._rp,84._rp,78._rp,72._rp, &
          65._rp,59._rp,53._rp,47._rp,44._rp,41._rp,38._rp,25._rp,32._rp, &
          27._rp,21._rp,13._rp,13._rp,0._rp/)


     REAL(rp), DIMENSION(2) :: IH=(/14.9916_rp,huge(1._rp)/)
     REAL(rp), DIMENSION(7) :: IC=(/65.9_rp,92.6_rp,134.8_rp,214.2_rp, &
          486.2_rp,539.5_rp,huge(1._rp)/)
     REAL(rp), DIMENSION(11) :: INe=(/137.2_rp,165.2_rp,196.9_rp,235.2_rp, &
          282.8_rp,352.6_rp,475.0_rp,696.8_rp,1409.2_rp,1498.4_rp,huge(1._rp)/)
     REAL(rp), DIMENSION(19) :: IAr=(/188.5_rp,219.4_rp,253.8_rp,293.4_rp, &
          339.1_rp,394.5_rp,463.4_rp,568.0_rp,728.0_rp,795.9_rp,879.8_rp, &
          989.9_rp,1138.1_rp,1369.5_rp,1791.2_rp,2497.0_rp,4677.2_rp, &
          4838.2_rp,huge(1._rp)/)

     CHARACTER(30) :: neut_prof
     REAL(rp) 			:: Ec,Ec_min
     ! Critical electric field
     LOGICAL  :: LargeCollisions
     
  END TYPE PARAMS_MS