13 integer:: d=0, e=0, px=0, py=0, pz=0, bx=0, by=0, bz=0, phi=0, tt=0, s=0, &
14 et=0, dphi=0, qr=0, ex=0, ey=0, ez=0
19 procedure:: request_index
28 SUBROUTINE init (self, ie, mhd)
33 call trace%begin (
'index_t%init')
66 SUBROUTINE request_index (self, idx, nv, success)
69 logical,
optional :: success
71 if (
present(success)) success = .false.
76 if (
present(success)) success = .true.
80 END SUBROUTINE request_index
85 SUBROUTINE copy (self)
105 SUBROUTINE output (self, unit)
110 d, e, et, s, px, py, pz, bx, by, bz, qr, tt, phi, p1, p2, p3, b1, b2, b3
112 d, e, et, s, px, py, pz, bx, by, bz, qr, tt, phi, p1, p2, p3, b1, b2, b3
114 if (io%time_derivs>0)
then 115 call output_time_derivs (self, unit)
137 write (unit, idx_nml)
139 END SUBROUTINE output
144 SUBROUTINE output_time_derivs (self, unit)
149 d, e, et, s, px, py, pz, bx, by, bz, qr, tt, phi, p1, p2, p3, b1, b2, b3, &
150 dpxdt, dpydt, dpzdt, dbxdt, dbydt, dbzdt, dphidt, dddt, dedt, dsdt, &
151 dp1dt, dp2dt, dp3dt, db1dt, db2dt, db3dt
153 d, e, et, s, px, py, pz, bx, by, bz, qr, tt, phi, p1, p2, p3, b1, b2, b3, &
154 dpxdt, dpydt, dpzdt, dbxdt, dbydt, dbzdt, dphidt, dddt, dedt, dsdt, &
155 dp1dt, dp2dt, dp3dt, db1dt, db2dt, db3dt
201 write (unit, idx_nml)
202 END SUBROUTINE output_time_derivs
This index file has slot indices for all solver, all initially equal to zero It is the responsibility...