init_pfcoil_variables Subroutine

public subroutine init_pfcoil_variables()

Initialise module variables

Arguments

None

Contents

Source Code


Source Code

  subroutine init_pfcoil_variables
    !! Initialise module variables
    implicit none

    alfapf = 5.0D-10
    alstroh = 4.0D8
    i_cs_stress = 0
    areaoh = 0.0D0
    a_oh_turn = 0.0D0
    awpoh = 0.0D0
    bmaxoh = 0.0D0
    bmaxoh0 = 0.0D0
    bpf = 0.0D0
    ccl0_ma = (/0.0D0, 0.0D0, 0.0D0, &
      0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0/)
    ccls_ma = (/0.0D0, 0.0D0, 0.0D0, &
      0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0/)
    cohbop = 0.0D0
    coheof = 1.85D7
    cpt = 0.0D0
    cptdin = (/4.0D4, 4.0D4, 4.0D4, &
    4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, &
    4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4, &
    4.0D4, 4.0D4, 4.0D4, 4.0D4, 4.0D4/)
    curpfb = 0.0D0
    curpff = 0.0D0
    curpfs = 0.0D0
    etapsu = 0.9D0
    fcohbof = 0.0D0
    fcohbop = 0.9D0
    fcuohsu = 0.7D0
    fcupfsu = 0.69D0
    fvssu = 1.0
    ipfloc = (/2,2,3,0,0,0,0,0,0,0/)
    ipfres = 0
    itr_sum = 0.0D0
    isumatoh = 1
    isumatpf = 1
    j_crit_str_cs = 0.0D0
    j_crit_str_pf = 0.0D0
    i_pf_current = 1
    i_sup_pf_shape = 0
    jscoh_bop = 0.0D0
    jscoh_eof = 0.0D0
    jcableoh_bop = 0.0D0
    jcableoh_eof = 0.0D0
    ncirt = 0
    ncls = (/1,1,2,0,0,0,0,0,0,0,0,0/)
    nfxfh = 7
    ngrp = 3
    nohc = 0
    ohhghf = 0.71D0
    oh_steel_frac = 0.5D0
    pf_current_safety_factor = 1.0D0
    pfcaseth = 0.0D0
    pfclres = 2.5D-8
    rhopfbus = 3.93D-8
    pfmmax = 0.0D0
    pfrmax = 0.0D0
    pfwpmw = 0.0D0
    powohres = 0.0D0
    powpfres = 0.0D0
    ra = 0.0D0
    rb = 0.0D0
    ric = 0.0D0
    rjconpf = (/3.0D7, 3.0D7, 3.0D7, &
      3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, &
      3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7, &
      3.0D7, 3.0D7, 3.0D7, 3.0D7, 3.0D7/)
    rjohc = 0.0D0
    rjohc0 = 0.0D0
    rjpfalw = 0.0D0
    rohc = 0.0D0
    routr = 1.5D0
    rpf = 0.0D0
    rpf1 = 0.0D0
    rpf2 = -1.63D0
    rref = (/7.0D0, 7.0D0, 7.0D0, &
      7.0D0, 7.0D0, 7.0D0, 7.0D0, 7.0D0, 7.0D0, 7.0D0/)
    s_tresca_oh = 0.0D0
    sigpfcalw = 500.0D0
    sigpfcf = 1.0D0
    sxlg = 0.0D0
    tmargoh = 0.0D0
    turns = 0.0D0
    vf = 0.3D0
    vfohc = 0.3D0
    vsbn = 0.0D0
    vsefbn = 0.0D0
    vsefsu = 0.0D0
    vseft = 0.0D0
    vsoh = 0.0D0
    vsohbn = 0.0D0
    vsohsu = 0.0D0
    vssu = 0.0D0
    vstot = 0.0D0
    waves = 0.0D0
    whtpf = 0.0D0
    whtpfs = 0.0D0
    wtc = 0.0D0
    wts = 0.0D0
    zh = 0.0D0
    zl = 0.0D0
    zpf = 0.0D0
    zref = (/3.6D0, 1.2D0, 2.5D0, &
      1.0D0, 1.0D0, 1.0D0, 1.0D0, 1.0D0, 1.0D0, 1.0D0/)
    bmaxcs_lim = 13.0
    fbmaxcs = 1.0
    ld_ratio_cst = 70/22
    l_cond_cst = 0.0D0
    d_cond_cst = 0.0D0
    r_in_cst = 0.0D0
    r_out_cst = 3.0D-3
  end subroutine init_pfcoil_variables