init_constraint_variables Subroutine

public subroutine init_constraint_variables()

Initialise module variables

Arguments

None

Contents


Source Code

  subroutine init_constraint_variables
    !! Initialise module variables
    implicit none

    auxmin = 0.1D0
    betpmx = 0.19D0
    bigqmin = 10.0D0
    bmxlim = 12.0D0
    fauxmn = 1.0D0
    fbeta = 1.0D0
    fbetap = 1.0D0
    fbetatry = 1.0D0
    fbetatry_lower = 1.0D0
    fcpttf = 1.0D0
    fcwr = 1.0D0
    fdene = 1.0D0
    fdivcol = 1.0D0
    fdtmp = 1.0D0
    fflutf = 1.0D0
    ffuspow = 1.0D0
    fgamcd = 1.0D0
    fhldiv = 1.0D0
    fiooic = 0.5D0
    fipir = 1.0D0
    fjohc = 1.0D0
    fjohc0 = 1.0D0
    fjprot = 1.0D0
    flhthresh = 1.0D0
    fmva = 1.0D0
    fnbshinef = 1.0D0
    fncycle = 1.0D0
    fnesep = 1.0D0
    foh_stress = 1.0D0
    fpeakb = 1.0D0
    fpinj = 1.0D0
    fpnetel = 1.0D0
    fportsz = 1.0D0
    fpsepbqar = 1.0D0
    fpsepr = 1.0D0
    fptemp = 1.0D0
    fptfnuc = 1.0D0
    fq = 1.0D0
    fqval = 1.0D0
    fradpwr = 0.99D0
    fradwall = 1.0D0
    freinke = 1.0D0
    frminor = 1.0D0
    fstrcase = 1.0D0
    fstrcond = 1.0D0
    fstr_wp = 1.0D0
    fmaxvvstress = 1.0D0
    ftbr = 1.0D0
    ftburn = 1.0D0
    ftcycl = 1.0D0
    ftmargoh = 1.0D0
    ftmargtf = 1.0D0
    ftohs = 1.0D0
    ftpeak = 1.0D0
    fvdump = 1.0D0
    fvs = 1.0D0
    fvvhe = 1.0D0
    fwalld = 1.0D0
    fzeffmax = 1.0D0
    gammax = 2.0D0
    maxradwallload = 1.0D0
    mvalim = 40.0D0
    nbshinefmax = 1.0D-3
    nflutfmax = 1.0D23
    pdivtlim = 150.0D0
    peakfactrad = 3.33D0
    peakradwallload = 0.0D0
    pnetelin = 1.0D3
    powfmax = 1.5D3
    psepbqarmax = 9.5D0
    pseprmax = 25.0D0
    ptfnucmax = 1.0D-3
    tbrmin = 1.1D0
    tbrnmn = 1.0D0
    tcycmn = 0.0D0
    tohsmn = 1.0D0
    vvhealw = 1.0D0
    walalw = 1.0D0
    taulimit = 5.0D0
    ftaulimit = 1.0D0
    fniterpump = 1.0D0
    zeffmax = 3.6D0
    fpoloidalpower = 1.0D0
    fpsep = 1.0D0
    fcqt = 1.0D0
    fecrh_ignition = 1.0D0
  end subroutine init_constraint_variables