Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
zdemloop.h
Go to the documentation of this file.
1 c----------------------------------------------------------------------
2 c @(#)zdemcomm.h version 1.2.1 created 11/23/04 11:41:07
3 c Last modified: 23-Nov-2004 11:41:07 MB
4 C_Groups @(#)
5 c----------------------------------------------------------------------
6 c *****************************************************************************
7 c This is the common block used for sharing data between zdem.f and main_loop.f
8 c *****************************************************************************
9 c file zdemloop.h
10 c
11 c -----------------------------------------------------------------------
12 c Modified:
13 c 2014-02-06 RBS: Explicitly defined reals and integers
14 c Reordered common block with 64 bit first
15 c 2014-04-11 RBS: Explict integer definition in /files/ common
16 c -----------------------------------------------------------------------
17 c
18 
19 c
20 c variables needed for the main loop
21 c
22  real
23  & any3, any4, ctime, tim, vcond, vtime
24 
25  integer
26  & i1km, i2, i5, i51, i52, i53, i54, i55, i56, i58,
27  & ia, iax, iblock1, ic, icb, icbp, icx, icy, icycle,
28  & id, ie, iexit_type,
29  & if_cendsource, if_vendsource,
30  & ig, ih, ii, iib, ij, ik, il, if,
31  & imitl, ip, iptime, iptold, iq, itypcs,
32  & j, j1, j2, j3, j4, j5, ja, jb, jc, jd, jdiv,
33  & je, jes, jf, jg, jh, ji, jis, jk, jl,
34  & k, k2p1, k2p2, km, km1, kmm,
35  & l, l1, l10, l11, l12, l13, l14, l2, l3,
36  & l3m, l3p, l4, l5, l6, l7, l8,
37  & m, mm1, mp1,
38  & n, nbm, ncycle, nele, nelmt,
39  & nk, nkm, nkp1, nm1,
40  & node_num, nr2, nrm, nrow, ntot, ny, nzz
41 
42  character cyclln*80
43 
44  common /for_main_loop/
45  & any3, any4, ctime, tim, vcond, vtime,
46  & i1km, i2, i5, i51, i52, i53, i54, i55, i56, i58,
47  & ia, iax, iblock1, ic, icb, icbp, icx, icy, icycle,
48  & id, ie, iexit_type,
49  & if_cendsource, if_vendsource,
50  & ig, ih, ii, iib, ij, ik, il, if,
51  & imitl, ip, iptime, iptold, iq, itypcs,
52  & j, j1, j2, j3, j4, j5, ja, jb, jc, jd, jdiv,
53  & je, jes, jf, jg, jh, ji, jis, jk, jl,
54  & k, k2p1, k2p2, km, km1, kmm,
55  & l, l1, l10, l11, l12, l13, l14, l2, l3,
56  & l3m, l3p, l4, l5, l6, l7, l8,
57  & m, mm1, mp1,
58  & n, nbm, ncycle, nele, nelmt,
59  & nk, nkm, nkp1, nm1,
60  & node_num, nr2, nrm, nrow, ntot, ny, nzz,
61  & cyclln
62 
63 c variables needed for file outputs
64 
65  integer iunit, ierr
66  common /files/ iunit, ierr
int main(int argc, char *argv[])
Definition: cprog.cpp:19
subroutine main_loop
Definition: main_loop.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 RBS
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 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
Definition: zdemfmt.h:192
subroutine zdem(ifile, clen)
Definition: zdem.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 c
Definition: zdemfmt.h:7
c This is a Fortran header file
Definition: sfc.h:3