normalize_params_ms Subroutine

  1. korc_collisions.f90
  2. korc_collisions
  3. normalize_params_ms

private subroutine normalize_params_ms(params)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(in) :: params

Called by

proc~~normalize_params_ms~~CalledByGraph proc~normalize_params_ms normalize_params_ms proc~normalize_collisions_params normalize_collisions_params proc~normalize_collisions_params->proc~normalize_params_ms program~main main program~main->proc~normalize_collisions_params

Contents

Source Code

normalize_params_ms

Source Code

  subroutine normalize_params_ms(params)
    TYPE(KORC_PARAMS), INTENT(IN) :: params

    cparams_ms%Te = cparams_ms%Te/params%cpp%temperature
    cparams_ms%ne = cparams_ms%ne/params%cpp%density
    cparams_ms%nH = cparams_ms%nH/params%cpp%density
    cparams_ms%nef = cparams_ms%nef/params%cpp%density
    cparams_ms%neb = cparams_ms%neb/params%cpp%density
    if (ALLOCATED(cparams_ms%nz)) cparams_ms%nz = cparams_ms%nz/ &
         params%cpp%density
    if (ALLOCATED(cparams_ms%IZj)) cparams_ms%IZj = cparams_ms%IZj/ &
         params%cpp%energy
    cparams_ms%rD = cparams_ms%rD/params%cpp%length
    cparams_ms%re = cparams_ms%re/params%cpp%length
    cparams_ms%Ec = cparams_ms%Ec/params%cpp%Eo
    cparams_ms%Ec_min = cparams_ms%Ec_min/params%cpp%Eo
    cparams_ms%Gammac_min = cparams_ms%Gammac_min*params%cpp%time/ &
         (params%cpp%mass**2*params%cpp%velocity**3)
  end subroutine normalize_params_ms