gray/tests/11-vacuum/inputs/equilibrium.txt
Michele Guerini Rocco 6fad08ed7c
add tests
2024-02-09 11:16:17 +01:00

5 lines
305 B
Plaintext

0.0 0.0 0.0 : rr0m,zr0m,rpam ! rhot[m] = min(sqrt((r-rr0m)**2+(z-zr0m)**2), rpam); tor flux phi = pi*b0*rhot**2
0.0 : b0 ! Bphi[T] @ rr0m[m]
1 3 2 : q0, qa, alq ! q = q0 + (qa-q0)*sqrt(psin)**alq
0 : nlim ! number of points in first wall (rlim,zlim) polygon