times_variables Module

J. Morris (UKAEA)
39 statements
Source File

Module containing global variables relating to the plasma pulse timings

References

-

Uses

- iso_fortran_env

Contents

Variables

pulsetimings tburn tburn0 tcycle tdown tdwell t_fusion_ramp tim timelabel intervallabel tohs tohsin tpulse tqnch tramp

Subroutines

init_times_variables

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public		::	pulsetimings			Switch for pulse timings (if lpulse=1): =0, tohs = Ip(MA)/0.1 tramp, tqnch = input =1, tohs = iteration var or input. tramp/tqnch max of input or tohs
real(kind=dp),	public		::	tburn			burn time (s) (calculated if `lpulse=1`)
real(kind=dp),	public		::	tburn0			burn time (s) - used for internal consistency
real(kind=dp),	public		::	tcycle			full cycle time (s)
real(kind=dp),	public		::	tdown			down time (s)
real(kind=dp),	public		::	tdwell			time between pulses in a pulsed reactor (s) (`iteration variable 17`)
real(kind=dp),	public		::	t_fusion_ramp			heating time, after current ramp up (s)
real(kind=dp),	public,	dimension(6)	::	tim			array of time points during plasma pulse (s)
character(len=11),	public,	dimension(6)	::	timelabel			array of time labels during plasma pulse (s)
character(len=11),	public,	dimension(5)	::	intervallabel			time intervals - as strings (s)
real(kind=dp),	public		::	tohs			plasma current ramp-up time for current initiation (s) (calculated if `lpulse=0`) (`iteration variable 65`)
real(kind=dp),	public		::	tohsin			Switch for plasma current ramp-up time (if lpulse=0): = 0, tohs = tramp = tqnch = Ip(MA)/0.5 <>0, tohs = tohsin; tramp, tqnch are input
real(kind=dp),	public		::	tpulse			pulse length = tohs + t_fusion_ramp + tburn + tqnch
real(kind=dp),	public		::	tqnch			shut down time for PF coils (s); if pulsed, = tohs
real(kind=dp),	public		::	tramp			initial PF coil charge time (s); if pulsed, = tohs

Subroutines

public subroutine init_times_variables()

Initialise module variables

Arguments

None