1 c----------------------------------------------------------------------
2 c @(#)zdemvars.h version 1.2.1 created 11/19/04 17:50:07
3 c Last modified: 19-Nov-2004 17:50:07 MB
5 c----------------------------------------------------------------------
6 c *****************************************************************************
7 c This is the common
block used
for sharing data between
zdem.f and models.f
8 c *****************************************************************************
12 c ----------------------------------------------------------------------
15 c 2004-11-19 MB: Created by MB when separated from zdemcomm.
16 c 2012-04-13
RBS: zdemvars was mislabeled in the first
line. Corrected.
17 c 2014-02-06
RBS: Change real*4 to real
18 c Define real
for variables in misc_for_models
19 c Reorder misc_for_models 64-bit first
20 c 2014-04-04
RBS: Added mdl common drdt variable and real definition
21 c 2014-04-11
RBS: Noticed that htd2 had not been defined real - added
22 c 2014-04-11
RBS: Defined reals and integer in last common blocks
23 c ----------------------------------------------------------------------
25 integer ibranch, itab_counter
26 common /circuit_vars/ ibranch, itab_counter
28 real rht, timehalf, htd2
29 common /time_vars/ rht, timehalf, htd2
33 c user subroutine(s) if he wishes to
use the
user variable feature
35 real u1, u2, u3, u4, u5, u6, u7, u8, u9, u10
36 common /uservar/ u1, u2, u3, u4, u5, u6, u7, u8, u9, u10
38 real lvar, cvar, rvar, gvar, drdt
39 common /mdl_vars/ lvar, cvar, rvar, gvar, drdt
42 & anodecurrent, blockvoltage, ccath, cplas,
43 & currentbr, currentin, currentl2, currentout, currentr2,
44 & dcdt, dcvdv, dldt, dlidi,
45 & dummyp1, dummyp2, dummyp3, dummyp4,
47 & pscurrent, psvoltage,
48 & swcurrent, zmeas, zvac,
49 & voltagec1, voltagec3, voltager1, voltager2, voltager3,
50 & voltagein, voltageout
53 & iblock, iblock_num, ielement, imodel, inode,
56 common /misc_for_models/
57 & anodecurrent, blockvoltage, ccath, cplas,
58 & currentbr, currentin, currentl2, currentout, currentr2,
59 & dcdt, dcvdv, dldt, dlidi,
60 & dummyp1, dummyp2, dummyp3, dummyp4,
62 & pscurrent, psvoltage,
63 & swcurrent, zmeas, zvac,
64 & voltagec1, voltagec3, voltager1, voltager2, voltager3,
65 & voltagein, voltageout,
66 & iblock, iblock_num, ielement, imodel, inode,
70 c variables needed for the energy check
73 & econ, eres, esour, elosscap, elossind, error
74 common /for_energy_checks/
75 & econ, eres, esour, elosscap, elossind, error
78 & decon, deres, dlosscap, dlossind, ecap, eind,
80 & halfi, halfi2, halfv, halfv2,
84 & i, ib, node, node1, node2, nrx
86 common /misc_energy_checks/
87 & decon, deres, dlosscap, dlossind, ecap, eind,
89 & halfi, halfi2, halfv, halfv2,
90 & i, ib, node, node1, node2, nrx,
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added line
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 RBS
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 c shell c &min A K c &trapped field c153 c c c Sin c c c remaining calls in rdscrelem c Tabular a10 Cond c c c &used with this model c Exponential model of a resistive c c c Rise model of a resistive c c Z FLOW POS c c c c SW1 c c c158 MFI Insulator CB c c c c161 Z FLOW Plasma Loss Current c c c Applied B Diode c &Ion Ion c c c c Initial c PRINT Output Request for block
subroutine zdem(ifile, clen)
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
subroutine user(timestep, time, p1, p2, p3, p4, v1, v2, v3)
c This is a Fortran header file