outj(i) = LH driven current density, MA/m^2 dndt(i) = d^2Jr1/dt^2/E, MA/m^2/sec^2/(V/m), ~runaway d(el.density)/dt/E djdt(i) = dJr2/dt, time drivative of runaway current Jr2, MA/m^2/sec outjrun(i) = LH driven runaway current density, MA/m^2 outnerun(i) = runaway electron density/10^19 m^-3
variant !! write(,) i,outj(i)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=8) | :: | outj(NRD) | ||||
| real(kind=8) | :: | sigmaj(NRD) | ||||
| double precision | :: | UPL(NRD) | ||||
| integer | :: | NRD | ||||
| integer | :: | NA1 | ||||
| double precision | :: | TIME | ||||
| double precision | :: | TAU | ||||
| double precision | :: | ROC | ||||
| double precision | :: | RTOR | ||||
| double precision | :: | GP2 |