Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
zdemparm.h
Go to the documentation of this file.
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).
5 c
6 c ----------------------------------------------------------------------
7 c
8 c Modifications:
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
20 c
21 c ----------------------------------------------------------------------
22 c
23 c file zdemparm.h
24 c
25 c ***** Time flag parameters ******
26 c
27  integer time_flag, half_step, whole_step
28  parameter (half_step = 1, whole_step = 2)
29 c
30 c ***** Set length of KEYWORD. *****
31 c
32  integer keyword_len
33  parameter (keyword_len = 3)
34 c
35 c ***** Setup parameters *****
36 c
37  character*(keyword_len)
38  & k_time_step,
39  & k_end_time,
40  & k_num_prints,
41  & k_num_cycles,
42  & k_res_time,
43  & k_switch_time,
44  & k_maxfpts
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')
52 c
53 c ***** How many cycles to execute. *****
54 c
55  character*1
56  & k_one_cycle,
57  & k_all_cycles
58  parameter (k_one_cycle = 'O')
59  parameter (k_all_cycles = 'A')
60 c
61  integer*4
62  & one_cycle,
63  & all_cycles
64  parameter (one_cycle = 0)
65  parameter (all_cycles = 1)
66 c
67 c ***** Grids on plots *****
68 c
69  character*(keyword_len)
70  & k_plot_grid
71  character*1
72  & k_yes_grid,
73  & k_no_grid
74  parameter (k_plot_grid = 'GRI')
75  parameter (k_yes_grid = 'Y')
76  parameter (k_no_grid = 'N')
77 c
78  integer yes_grid, no_grid
79  parameter (yes_grid = 0, no_grid = 1)
80 c
81 c ***** Echo setup and indicies *****
82 c
83  character*(keyword_len)
84  & k_echo
85  character*1
86  & k_yes_echo,
87  & k_no_echo
88  parameter (k_echo = 'ECH')
89  parameter (k_yes_echo = 'Y')
90  parameter (k_no_echo = 'N')
91 c
92  integer*4 yes_echo, no_echo
93  parameter (yes_echo = 0, no_echo = 1)
94 c
95 c ***** Detail of printing to log file at specified time steps *****
96 c
97  character*(keyword_len)
98  & k_detail_prints,
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')
104 c
105  integer*4 detail_prints_min, detail_prints_full
106  parameter (detail_prints_min = 0, detail_prints_full = 1)
107 c
108 c ***** Circuit blocks. *****
109 c
110  integer
111  & transline,
112  & outputreq,
113  & rcground,
114  & pisection,
115  & voltsource,
116  & mitline,
117  & adder,
118  & vendsource,
119  & pmitline,
120  & rlseries,
121  & currsource,
122  & cendsource,
123  & csclsource,
124  & transformer,
125  & cylfoilblock,
126  & gaspuffblock,
127  & sphfoilblock,
128  & measurezflow,
129  & nshellblock
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)
146 c
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.
152 c
153  parameter (cylfoilblock = 31)
154  parameter (gaspuffblock = 32)
155  parameter (sphfoilblock = 33)
156 c
157  character*(keyword_len)
158  & k_transline,
159  & k_rcground,
160  & k_pisection,
161  & k_voltsource,
162  & k_mitline,
163  & k_adder,
164  & k_vendsource,
165  & k_pmitline,
166  & k_rlseries,
167  & k_currsource,
168  & k_cendsource,
169  & k_csclsource,
170  & k_transformer,
171  & k_cylfoilblock,
172  & k_gaspuffblock,
173  & k_sphfoilblock,
174  & k_measurezflow,
175  & k_nshellblock
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')
194 c
195 c ***** Branches. *****
196 c
197  character*(keyword_len)
198  & k_branch,
199  & k_topbranch,
200  & k_endbranch
201  parameter (k_branch = 'BRA')
202  parameter (k_topbranch = 'TOP')
203  parameter (k_endbranch = 'END')
204 c
205  integer
206  & topbranch,
207  & endbranch
208  parameter (topbranch = 1)
209  parameter (endbranch = 2)
210 c
211 c ***** Type of transmission lines. *****
212 c
213  character*(keyword_len)
214  & k_linearz,
215  & k_exponentialz
216  parameter (k_linearz = 'LIN')
217  parameter (k_exponentialz = 'EXP')
218 c
219  integer
220  & linearz,
221  & exponentialz
222  parameter (linearz = 1)
223  parameter (exponentialz = 2)
224 c
225 c ***** Type of functions for voltage and current sources *****
226 c
227  character*(keyword_len)
228  & k_sinsquared,
229  & k_piecewiselinear,
230  & k_leastsquares,
231  & k_table,
232  & k_sinfun
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')
238 c
239  integer
240  & sinsquared,
241  & piecewiselinear,
242  & leastsquares,
243  & table,
244  & sinfun
245  parameter (sinsquared = 1)
246  parameter (piecewiselinear = 2)
247  parameter (leastsquares = 3)
248  parameter (table = 4)
249  parameter (sinfun = 5)
250 c
251 c ***** Variable elements for blocks. *****
252 c
253  character*(keyword_len)
254  & k_variable
255  parameter (k_variable = 'VAR')
256 c
257 c ***** Switched variable elements for blocks. *****
258 c
259  character*(keyword_len)
260  & k_svariable
261  parameter (k_svariable = 'SVA')
262 c
263 c ***** Which element is variable. *****
264 c
265  character*(keyword_len)
266  & k_r1_var,
267  & k_c1_var,
268  & k_r2_var,
269  & k_l2_var,
270  & k_r3_var,
271  & k_c3_var
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 ')
278 c
279  integer
280  & r1_var,
281  & c1_var,
282  & r2_var,
283  & l2_var,
284  & r3_var,
285  & c3_var
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)
292 c
293 c ***** Types of variable element models. *****
294 c
295  character*(keyword_len)
296  & k_user_model,
297  & k_lsf_model,
298  & k_pwl_model,
299  & k_exp_model,
300  & k_decay_model,
301  & k_rise_model,
302  & k_magsw_model,
303  & k_ps1_model,
304  & k_ps2_model,
305  & k_diode_model,
306  & k_abdiode_model,
307  & k_tab_model,
308  & k_user1_model,
309  & k_user2_model,
310  & k_user3_model,
311  & k_user4_model,
312  & k_sw_model,
313  & k_sw1_model,
314  & k_sw2_model,
315  & k_sw3_model,
316  & k_sw4_model,
317  & k_pos_model,
318  & k_mfi_model,
319  & k_zmip_model,
320  & k_rwall_model,
321  & k_r2wall_model,
322  & k_zflow_model
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')
350 c
351  integer
352  & user_model,
353  & lsf_model,
354  & pwl_model,
355  & exp_model,
356  & decay_model,
357  & rise_model,
358  & magsw_model,
359  & ps1_model,
360  & ps2_model,
361  & diode_model,
362  & abdiode_model,
363  & tab_model,
364  & user1_model,
365  & user2_model,
366  & user3_model,
367  & user4_model,
368  & sw_model,
369  & pos_model,
370  & zmip_model,
371  & mfi_model,
372  & rwall_model,
373  & r2wall_model,
374  & zflow_model
375 c
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)
399 c
400 c ***** Last entry seen in long parameter list. *****
401 c
402  character*(keyword_len)
403  & k_last_entry
404  parameter (k_last_entry = 'LAS')
405 c
406 c ***** Setting initial voltages or currents *****
407 c
408  character*(keyword_len)
409  & k_initial,
410  & k_vcapacitor1,
411  & k_vcapacitor3,
412  & k_vtrline,
413  & k_cinductor,
414  & k_ctrline
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')
421 c
422  integer
423  & vcapacitor1,
424  & vcapacitor3,
425  & vtrline,
426  & cinductor,
427  & ctrline
428  parameter (vcapacitor1 = 1)
429  parameter (vcapacitor3 = 2)
430  parameter (vtrline = 3)
431  parameter (cinductor = 4)
432  parameter (ctrline = 5)
433 c
434 c User variable label
435 c
436  character*(keyword_len)
437  & k_ulabel
438 c
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
Definition: zdemfmt.h:78
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
Definition: zdemfmt.h:78
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
Definition: zdemfmt.h:52
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into use
Definition: zdemfmt.h:7
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
Definition: zdemfmt.h:52
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
Definition: zdemfmt.h:7
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
Definition: zdemfmt.h:72
subroutine user(timestep, time, p1, p2, p3, p4, v1, v2, v3)
Definition: usrfunc.f:1
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
Definition: zdemfmt.h:72