init_divertor_variables Subroutine

public subroutine init_divertor_variables()

Initialise divertor_variables

Arguments

None

Contents


Source Code

  subroutine init_divertor_variables
    !! Initialise divertor_variables
    implicit none

    adas = 0.0D0
    anginc = 0.262D0
    beta_div = 1.0D0
    betai = 1.0D0
    betao = 1.0D0
    bpsout = 0.60D0
    c1div = 0.45D0
    c2div = -7.0D0
    c3div = 0.54D0
    c4div = -3.6D0
    c5div = 0.7D0
    c6div = 0.0D0
    delld = 1.0D0
    dendiv = 0.0D0
    densin = 0.0D0
    divclfr = 0.3D0
    divdens = 1.0D4
    divdum = 0
    divfix = 0.2D0
    divmas = 0.0D0
    divplt = 0.035D0
    divsur = 0.0D0
    fdfs = 10.0D0
    fdiva = 1.11D0
    fhout = 0.0D0
    fififi = 4.0D-3
    flux_exp = 2.0D0
    frrp = 0.4D0
    hldiv = 0.0D0
    i_hldiv = 0
    hldivlim = 5.0D0
    ksic = 0.8D0
    lamp = 0.0D0
    minstang = 0.0D0
    omegan = 1.0D0
    omlarg = 0.0D0
    ppdivr = 0.0D0
    prn1 = 0.285D0
    ptpdiv = 0.0D0
    rconl = 0.0D0
    rlclolcn = 0.0D0
    rlenmax = 0.5D0
    rsrd = 0.0D0
    tconl = 0.0D0
    tdiv = 2.0D0
    tsep = 0.0D0
    xparain = 2.1D3
    xpertin = 2.0D0
    zeffdiv = 1.0D0
  end subroutine init_divertor_variables