VMEC 8.52
3D Equilibrium solver with nested flux surfaces.
Loading...
Searching...
No Matches
vparams.f90 File Reference

Go to the source code of this file.

Modules

module  vparams
 

Variables

integer, parameter vparams::nsd = 10001
 maximum number of radial nodes
 
integer, parameter vparams::mpold = 101
 maximum number of poloidal harmonics (in r,z,lam fourier series)
 
integer, parameter vparams::ntord = 101
 maximum number of toroidal harmonics
 
integer, parameter vparams::ndatafmax = 1001
 
integer, parameter vparams::mpol1d = mpold - 1
 
integer, parameter vparams::ntor1d = ntord + 1
 
integer, parameter vparams::nthreed0 = 9
 
integer, parameter vparams::indata0 = nthreed0 + 2
 
integer, parameter vparams::nwout0 = nthreed0 + 3
 
integer, parameter vparams::jxbout0 = nthreed0 + 4
 
integer, parameter vparams::nfort18 = 18
 
integer, parameter vparams::nmercier0 = 52
 
integer vparams::nthreed
 
real(rprec), parameter vparams::c1pm13 = 1.0e-13_dp
 
real(rprec), parameter vparams::c1pm8 = 1.0e-8_dp
 
real(rprec), parameter vparams::c1pm2 = 1.0e-2_dp
 
real(rprec), parameter vparams::cp05 = 0.05_dp
 
real(rprec), parameter vparams::cp15 = 0.15_dp
 
real(rprec), parameter vparams::cp25 = 0.25_dp
 
real(rprec), parameter vparams::cp5 = 0.50_dp
 
real(rprec), parameter vparams::osqrt2 = 0.707106781186547462_dp
 1/sqrt(2)
 
real(rprec), parameter vparams::c1p5 = 1.50_dp
 
real(rprec), parameter vparams::c2p0 = 2.0_dp
 
real(rprec), parameter vparams::c3p0 = 3.0_dp
 
real(rprec), parameter vparams::cbig = 0.9e30_dp