3 & (
time, dt, rdt, ilt2,
77 parameter(mu = 2.0e-7)
78 parameter(pi = 3.14159265359)
80 real implode, end_implode
81 parameter(implode = 0.0, end_implode = 1.0)
143 beta = (theta + 90)/2
144 lminrad = 2*mu*(initrad-minrad)*(log(tan(beta*pi/180.0)))
147 if (testimpl .eq. implode)
then
151 arc = pi * radt3 * (angl/180.0)
152 acct2 = -(mu * ilt2**2 * arc ) / ( 2 * mass * radt3 )
156 velt1 = velt3 + acct2*dt
163 radt1 = radt3 + ((velt1+velt3) * dt * 0.5)
164 if (radt1 .lt. minrad)
then
166 testimpl = end_implode
167 write(9,999)
time, minrad
172 lt1 = 2*mu*(initrad-radt1)*(log(tan(beta*pi/180.0)))
176 ldott2 = (lt1 - lt3) * rdt
181 foilke = 0.5 * mass * velt1 * velt1
219 &
' ------------------------------------------------------------'/
220 &
' Foil radius has reached the minimum value.'/
221 &
' time: ', 1pe10.3/
222 &
' minimum radius: ', 1pe10.3/
223 &
' ------------------------------------------------------------'/
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 time