scan_module Module

  1. scan.f90
  2. scan_module

Module containing routines to perform a parameter scan author: P J Knight, CCFE, Culham Science Centre None This module contains routines to perform a parameter scan over a range of values of a particular scanning variable. !


Uses


Contents

Variables

Subroutines


Variables

TypeVisibility AttributesNameInitial
integer, public, parameter:: ipnscns =1000

Maximum number of scan points
integer, public, parameter:: ipnscnv =81

Number of available scan variables
integer, public, parameter:: noutvars =84
integer, public, parameter:: width =110
integer, public :: scan_dim

1-D or 2-D scan switch (1=1D, 2=2D)
integer, public :: isweep

Number of scan points to calculate
integer, public :: isweep_2

Number of 2D scan points to calculate
integer, public :: nsweep

Switch denoting quantity to scan:

  • 1 aspect
  • 2 hldivlim
  • 3 pnetelin
  • 4 hfact
  • 5 oacdcp
  • 6 walalw
  • 7 beamfus0
  • 8 fqval
  • 9 te
  • 10 boundu(15: fvs)
  • 11 beta_norm_max
  • 12 bootstrap_current_fraction_max
  • 13 boundu(10: hfact)
  • 14 fiooic
  • 15 fjprot
  • 16 rmajor
  • 17 bmxlim
  • 18 gammax
  • 19 boundl(16: dr_cs)
  • 20 t_burn_min
  • 21 not used
  • 22 cfactr (N.B. requires iavail=0)
  • 23 boundu(72: fipir)
  • 24 powfmax
  • 25 kappa
  • 26 triang
  • 27 tbrmin (for blktmodel > 0 only)
  • 28 bt
  • 29 radius_plasma_core_norm
  • 30 fimpvar # OBSOLETE
  • 31 f_alpha_energy_confinement_min
  • 32 epsvmc
  • 33 ttarget
  • 34 qtargettotal
  • 35 lambda_q_omp
  • 36 lambda_target
  • 37 lcon_factor
  • 38 Neon upper limit
  • 39 Argon upper limit
  • 40 Xenon upper limit
  • 41 dr_blkt_outboard
  • 42 Argon fraction fimp(9)
  • 43 normalised minor radius at which electron cyclotron current drive is maximum
  • 44 Allowable maximum shear stress (Tresca) in tf coil structural material
  • 45 Minimum allowable temperature margin ; tf coils
  • 46 boundu(150) fgwsep
  • 47 impurity_enrichment(9) Argon impurity enrichment
  • 48 TF coil - n_pancake (integer turn winding pack)
  • 49 TF coil - n_layer (integer turn winding pack)
  • 50 Xenon fraction fimp(13)
  • 51 Power fraction to lower DN Divertor ftar
  • 52 SoL radiation fraction
  • 54 GL_nbti upper critical field at 0 Kelvin
  • 55 dr_shld_inboard : Inboard neutron shield thickness
  • 56 crypmw_max: Maximum cryogenic power (ixx=164, ixc=87)
  • 57 bt lower boundary
  • 58 dr_fw_plasma_gap_inboard : Inboard plasma-first wall gap
  • 59 dr_fw_plasma_gap_outboard : Outboard plasma-first wall gap
  • 60 sig_tf_wp_max: Allowable stress in TF Coil conduit (Tresca)
  • 61 copperaoh_m2_max : CS coil current / copper area
  • 62 j_cs_flat_top_end : CS coil current density at EOF
  • 63 dr_cs : CS thickness (m)
  • 64 f_z_cs_tf_internal : CS height (m)
  • 65 n_cycle_min : Minimum cycles for CS stress model constraint 90
  • 66 f_a_cs_steel: Steel fraction in CS coil
  • 67 t_crack_vertical: Initial crack vertical dimension (m)
  • 68 inlet_temp_liq' : Inlet temperature of blanket liquid metal coolant/breeder (K) <LI> 69outlet_temp_liq' : Outlet temperature of blanket liquid metal coolant/breeder (K)
  • 70 blpressure_liq' : Blanket liquid metal breeder/coolant pressure (Pa) <LI> 71n_liq_recirc' : Selected number of liquid metal breeder recirculations per day
  • 72 bz_channel_conduct_liq' : Conductance of liquid metal breeder duct walls (A V-1 m-1) <LI> 73pnuc_fw_ratio_dcll' : Ratio of FW nuclear power as fraction of total (FW+BB)
  • 74 `f_nuc_pow_bz_struct' : Fraction of BZ power cooled by primary coolant for dual-coolant balnket
  • 75 dx_fw_module : pitch of first wall cooling channels (m)
  • 76 etath : Thermal conversion eff.
  • 77 startupratio : Gyrotron redundancy
  • 78 fkind : Multiplier for Nth of a kind costs
  • 79 etaech : ECH wall plug to injector efficiency

    		•
    integer, public :: nsweep_2

    nsweep_2 /3/ : switch denoting quantity to scan for 2D scan:
    real(kind=dp), public, dimension(ipnscns):: sweep

    sweep(ipnscns) /../: actual values to use in scan
    real(kind=dp), public, dimension(ipnscns):: sweep_2

    sweep_2(ipnscns) /../: actual values to use in 2D scan
    logical, public :: first_call_1d
    logical, public :: first_call_2d

    Subroutines

    public subroutine init_scan_module()

    Initialise module variables

    Arguments

    None