1 c *****************************************************************************
2 c Set various parameters
for read_screamer_data and
use INCLUDE
'ZDEMPARM.H'
3 c Have various keywords (
for the interface to the
user) and integers (
for
4 c the code itself
's use).
6 c ----------------------------------------------------------------------
9 c KWS, 10/14/93, Added MFI CB parameters
10 c KWS, 03/07/94, Added rwall model, deleted references to multiple
11 c copies of the lossy switch model.
12 c KWS, 05/30/95, Added parameters for Zflow Plasma Loss Model
13 c MLK, 07/19/95, Added parameters for detail of printing on log file
14 c KWS, 06/06/97, Added NShell model parameters
15 c KWS, 08/12/97, Added parameters for Measure Zflow Block
16 c RBS, 2012/03/28, Added R2wall and incremented Zflow to param 25
17 c RBS, 2012-04-05, Replaced fixed *3 char length with (keyword_len)
18 c 2014-05-01 RBS: Added new switch_time variable in setup
19 c 2014-05-04 RBS: Changed integer*4 to integer
21 c ----------------------------------------------------------------------
25 c ***** Time flag parameters ******
27 integer time_flag, half_step, whole_step
28 parameter (half_step = 1, whole_step = 2)
30 c ***** Set length of KEYWORD. *****
33 parameter (keyword_len = 3)
35 c ***** Setup parameters *****
37 character*(keyword_len)
45 parameter (k_time_step = 'TIM
')
46 parameter (k_end_time = 'END
')
47 parameter (k_num_prints = 'NUM
')
48 parameter (k_num_cycles = 'EXE
')
49 parameter (k_res_time = 'RES
')
50 parameter (k_switch_time = 'SWI
')
51 parameter (k_maxfpts = 'MAX
')
53 c ***** How many cycles to execute. *****
58 parameter (k_one_cycle = 'O
')
59 parameter (k_all_cycles = 'A
')
64 parameter (one_cycle = 0)
65 parameter (all_cycles = 1)
67 c ***** Grids on plots *****
69 character*(keyword_len)
74 parameter (k_plot_grid = 'GRI
')
75 parameter (k_yes_grid = 'Y
')
76 parameter (k_no_grid = 'N
')
78 integer yes_grid, no_grid
79 parameter (yes_grid = 0, no_grid = 1)
81 c ***** Echo setup and indicies *****
83 character*(keyword_len)
88 parameter (k_echo = 'ECH
')
89 parameter (k_yes_echo = 'Y
')
90 parameter (k_no_echo = 'N
')
92 integer*4 yes_echo, no_echo
93 parameter (yes_echo = 0, no_echo = 1)
95 c ***** Detail of printing to log file at specified time steps *****
97 character*(keyword_len)
99 & k_detail_prints_full,
100 & k_detail_prints_min
101 parameter (k_detail_prints = 'DET
')
102 parameter (k_detail_prints_full = 'FUL
')
103 parameter (k_detail_prints_min = 'MIN
')
105 integer*4 detail_prints_min, detail_prints_full
106 parameter (detail_prints_min = 0, detail_prints_full = 1)
108 c ***** Circuit blocks. *****
130 parameter (transline = 0)
131 parameter (outputreq = 1)
132 parameter (rcground = 2)
133 parameter (pisection = 3)
134 parameter (voltsource = 5)
135 parameter (mitline = 6)
136 parameter (adder = 7)
137 parameter (vendsource = 8)
138 parameter (pmitline = 9)
139 parameter (rlseries = 10)
140 parameter (currsource = 11)
141 parameter (cendsource = 12)
142 parameter (csclsource = 13)
143 parameter (transformer = 14)
144 parameter (measurezflow = 34)
145 parameter (nshellblock = 35)
147 c Set foil block and gaspuff block so that these numbers do not conflict with
148 c the user#_model parameters (which currently extend to 20).
149 c This is because the foil block and gaspuff block are at times treated as
150 c models instead of blocks.
151 c If new block types are added, start them at the next number.
153 parameter (cylfoilblock = 31)
154 parameter (gaspuffblock = 32)
155 parameter (sphfoilblock = 33)
157 character*(keyword_len)
176 parameter (k_transline = 'TRL
')
177 parameter (k_rcground = 'RCG
')
178 parameter (k_pisection = 'PIS
')
179 parameter (k_voltsource = 'VOL
')
180 parameter (k_mitline = 'MIT
')
181 parameter (k_adder = 'ADD
')
182 parameter (k_vendsource = 'VEN
')
183 parameter (k_pmitline = 'PMI
')
184 parameter (k_rlseries = 'RLS
')
185 parameter (k_currsource = 'CUR
')
186 parameter (k_cendsource = 'CEN
')
187 parameter (k_csclsource = 'CSC
')
188 parameter (k_transformer = 'TRA
')
189 parameter (k_cylfoilblock = 'CYL
')
190 parameter (k_gaspuffblock = 'GAS
')
191 parameter (k_sphfoilblock = 'SPH
')
192 parameter (k_measurezflow = 'MZF
')
193 parameter (k_nshellblock = 'NSH
')
195 c ***** Branches. *****
197 character*(keyword_len)
201 parameter (k_branch = 'BRA
')
202 parameter (k_topbranch = 'TOP
')
203 parameter (k_endbranch = 'END
')
208 parameter (topbranch = 1)
209 parameter (endbranch = 2)
211 c ***** Type of transmission lines. *****
213 character*(keyword_len)
216 parameter (k_linearz = 'LIN
')
217 parameter (k_exponentialz = 'EXP
')
222 parameter (linearz = 1)
223 parameter (exponentialz = 2)
225 c ***** Type of functions for voltage and current sources *****
227 character*(keyword_len)
233 parameter (k_sinsquared = 'SSQ
')
234 parameter (k_piecewiselinear = 'PWL
')
235 parameter (k_leastsquares = 'LSF
')
236 parameter (k_table = 'TAB
')
237 parameter (k_sinfun = 'SIN
')
245 parameter (sinsquared = 1)
246 parameter (piecewiselinear = 2)
247 parameter (leastsquares = 3)
248 parameter (table = 4)
249 parameter (sinfun = 5)
251 c ***** Variable elements for blocks. *****
253 character*(keyword_len)
255 parameter (k_variable = 'VAR
')
257 c ***** Switched variable elements for blocks. *****
259 character*(keyword_len)
261 parameter (k_svariable = 'SVA
')
263 c ***** Which element is variable. *****
265 character*(keyword_len)
272 parameter (k_r1_var = 'R1 ')
273 parameter (k_c1_var = 'C1 ')
274 parameter (k_r2_var = 'R2 ')
275 parameter (k_l2_var = 'L2 ')
276 parameter (k_r3_var = 'R3 ')
277 parameter (k_c3_var = 'C3 ')
286 parameter (r1_var = 1)
287 parameter (c1_var = 2)
288 parameter (r2_var = 3)
289 parameter (l2_var = 4)
290 parameter (r3_var = 5)
291 parameter (c3_var = 6)
293 c ***** Types of variable element models. *****
295 character*(keyword_len)
323 parameter (k_user_model = 'USE
')
324 parameter (k_lsf_model = 'LSF
')
325 parameter (k_pwl_model = 'PWL
')
326 parameter (k_exp_model = 'EXP
')
327 parameter (k_decay_model = 'DEC
')
328 parameter (k_rise_model = 'RIS
')
329 parameter (k_magsw_model = 'MSW
')
330 parameter (k_ps1_model = 'PS1
')
331 parameter (k_ps2_model = 'PS2
')
332 parameter (k_diode_model = 'DIO
')
333 parameter (k_abdiode_model = 'ABD
')
334 parameter (k_tab_model = 'TAB
')
335 parameter (k_user1_model = 'US1
')
336 parameter (k_user2_model = 'US2
')
337 parameter (k_user3_model = 'US3
')
338 parameter (k_user4_model = 'US4
')
339 parameter (k_sw_model = 'SWI
')
340 parameter (k_sw1_model = 'SW1
')
341 parameter (k_sw2_model = 'SW2
')
342 parameter (k_sw3_model = 'SW3
')
343 parameter (k_sw4_model = 'SW4
')
344 parameter (k_pos_model = 'POS
')
345 parameter (k_mfi_model = 'MFI
')
346 parameter (k_zmip_model = 'MIP
')
347 parameter (k_rwall_model = 'RWA
')
348 parameter (k_r2wall_model = 'R2W
')
349 parameter (k_zflow_model = 'ZLO
')
376 parameter (user_model = 0)
377 parameter (lsf_model = 1)
378 parameter (pwl_model = 2)
379 parameter (exp_model = 3)
380 parameter (decay_model = 4)
381 parameter (rise_model = 5)
382 parameter (magsw_model = 6)
383 parameter (ps1_model = 7)
384 parameter (ps2_model = 8)
385 parameter (diode_model = 9)
386 parameter (abdiode_model = 10)
387 parameter (tab_model = 11)
388 parameter (user1_model = 12)
389 parameter (user2_model = 13)
390 parameter (user3_model = 14)
391 parameter (user4_model = 15)
392 parameter (sw_model = 16)
393 parameter (pos_model = 20)
394 parameter (zmip_model = 21)
395 parameter (mfi_model = 22)
396 parameter (rwall_model = 23)
397 parameter (r2wall_model = 24)
398 parameter (zflow_model = 25)
400 c ***** Last entry seen in long parameter list. *****
402 character*(keyword_len)
404 parameter (k_last_entry = 'LAS
')
406 c ***** Setting initial voltages or currents *****
408 character*(keyword_len)
415 parameter (k_initial = 'INI
')
416 parameter (k_vcapacitor1 = 'VC1
')
417 parameter (k_vcapacitor3 = 'VC3
')
418 parameter (k_vtrline = 'VTR
')
419 parameter (k_cinductor = 'IL2
')
420 parameter (k_ctrline = 'ITR
')
428 parameter (vcapacitor1 = 1)
429 parameter (vcapacitor3 = 2)
430 parameter (vtrline = 3)
431 parameter (cinductor = 4)
432 parameter (ctrline = 5)
434 c User variable label
436 character*(keyword_len)
439 parameter (k_ulabel = 'ULA
')
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c removed from all code calls c c c c c a80 c i10 c No grids on plots c Do not write files containing the plotted points c Execute only one cycle c Do not echo the setup parameters and indicies c c &exitting c a13 c c c c c c c c102 c &described as a function of time c c c &described as a function of time c c c &function of time c R3
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c removed from all code calls c c c c c a80 c i10 c No grids on plots c Do not write files containing the plotted points c Execute only one cycle c Do not echo the setup parameters and indicies c c &exitting c a13 c c c c c c c c102 c &described as a function of time c c c &described as a function of time c c c &function of time c C3
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c removed from all code calls c c c c c a80 c i10 c No grids on plots c Do not write files containing the plotted points c Execute only one cycle c Do not echo the setup parameters and indicies c c &exitting c a13 c c c c c L2
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into use
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c removed from all code calls c c c c c a80 c i10 c No grids on plots c Do not write files containing the plotted points c Execute only one cycle c Do not echo the setup parameters and indicies c c &exitting c a13 c c c c c R2
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line c
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c removed from all code calls c c c c c a80 c i10 c No grids on plots c Do not write files containing the plotted points c Execute only one cycle c Do not echo the setup parameters and indicies c c &exitting c a13 c c c c c c c c102 c &described as a function of time c c c &described as a function of time c R1
subroutine user(timestep, time, p1, p2, p3, p4, v1, v2, v3)
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c removed from all code calls c c c c c a80 c i10 c No grids on plots c Do not write files containing the plotted points c Execute only one cycle c Do not echo the setup parameters and indicies c c &exitting c a13 c c c c c c c c102 c &described as a function of time c c c &described as a function of time c C1