initialize_params Subroutine

  1. korc_simple_equilibrium_pdf.f90
  2. korc_simple_equilibrium_pdf
  3. initialize_params

private subroutine initialize_params(params, go)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(in) :: params
real(kind=rp), intent(in) :: go

Called by

proc~~initialize_params~~CalledByGraph proc~initialize_params initialize_params proc~get_equilibrium_distribution get_equilibrium_distribution proc~get_equilibrium_distribution->proc~initialize_params

Contents

Source Code

initialize_params

Source Code

  SUBROUTINE initialize_params(params,go)
    TYPE(KORC_PARAMS), INTENT(IN) :: params
    REAL(rp), INTENT(IN) :: go
    !REAL(rp) :: max_pitch_angle
    !REAL(rp) :: min_pitch_angle
    !REAL(rp) :: Zeff
    !REAL(rp) :: E
    !REAL(rp) :: Bo
    !REAL(rp) :: lambda
    !NAMELIST /SimpleEquilibriumPDF/ max_pitch_angle,min_pitch_angle,Zeff,E,Bo,lambda

    !open(unit=default_unit_open,file=TRIM(params%path_to_inputs),status='OLD',form='formatted')
    !read(default_unit_open,nml=SimpleEquilibriumPDF)
    !close(default_unit_open)

    pdf_params%max_pitch_angle = max_pitch_angle_simple
    pdf_params%min_pitch_angle = min_pitch_angle_simple
    pdf_params%Zeff = Zeff_simple
    pdf_params%E = E_simple
    pdf_params%Bo = Bo_simple
    pdf_params%lambda = lambda_simple

    pdf_params%po = sqrt(go**2 - 1.0_rp)
  END SUBROUTINE initialize_params