diff --git a/annotated.html b/annotated.html index 971f3b5bf..66aa0f771 100644 --- a/annotated.html +++ b/annotated.html @@ -3,16 +3,18 @@
- +▼Mread_wout_mod | Reading of wout VMEC output file |
▼Mread_wout_mod | Reading of wout VMEC output file |
Cread_wout_file |
Functions/Subroutines | |
subroutine | scalpot (bvec, amatrix, wint, ivacskip, lasym, m_map, n_map) |
subroutine | scalpot (bvec, amatrix, wint, ivacskip, lasym, m_map, n_map) |
Compute all required terms for solving for the scalar magnetic potential. | |
Functions/Subroutines | |
subroutine | fourp (grpmn, grp) |
subroutine | fourp (grpmn, grp) |
Perform Fourier integrals of Green's function kernel. | |
Functions/Subroutines | |
subroutine | eqfor (br, bz, bsubu, bsubv, tau, rzl_array, ier_flag) |
subroutine | eqfor (br, bz, bsubu, bsubv, tau, rzl_array, ier_flag) |
Basis physics analysis and evaluaton of force balance. This is where most of the contents of the threed1 output file is computed. | |
fault-tolerant file opening routines -More...
+More...Functions/Subroutines | |
subroutine | safe_open (iunit, istat, filename, filestat, fileform, record_in, access_in, delim_in) |
subroutine | safe_open (iunit, istat, filename, filestat, fileform, record_in, access_in, delim_in) |
Functions/Subroutines | |
subroutine | heading (extension) |
subroutine | heading (extension) |
Open output files and print banner message at the top. | |
Functions/Subroutines | |
subroutine | tomnsps (frzl_array, armn, brmn, crmn, azmn, bzmn, czmn, blmn, clmn, arcon, azcon) |
subroutine | tomnsps (frzl_array, armn, brmn, crmn, azmn, bzmn, czmn, blmn, clmn, arcon, azcon) |
Fourier-transform symmetric forces from real space to Fourier space. | |
subroutine | tomnspa (frzl_array, armn, brmn, crmn, azmn, bzmn, czmn, blmn, clmn, arcon, azcon) |
subroutine | tomnspa (frzl_array, armn, brmn, crmn, azmn, bzmn, czmn, blmn, clmn, arcon, azcon) |
Fourier-transform anti-symmetric forces from real space to Fourier space. | |
Functions/Subroutines | |
subroutine | fileout (ier_flag) |
subroutine | fileout (ier_flag) |
Write the output files. | |
Functions/Subroutines | |
subroutine | read_mgrid (mgrid_file, extcur, nv, nfp, lscreen, ier_flag) |
subroutine | read_mgrid (mgrid_file, extcur, nv, nfp, lscreen, ier_flag) |
subroutine | sum_bfield (bfield, bf_add, cur, n1) |
subroutine | sum_bfield (bfield, bf_add, cur, n1) |
subroutine | assign_bptrs (bptr) |
subroutine | assign_bptrs (bptr) |
subroutine | free_mgrid (istat) |
subroutine | free_mgrid (istat) |
Variables | |
logical | lnverror =.true. |
logical | lnverror =.true. |
integer, parameter | nlimset = 2 |
integer, parameter | nlimset = 2 |
character(len= *), parameter | vn_br0 = 'br' |
character(len= *), parameter | vn_br0 = 'br' |
character(len= *), parameter | vn_bp0 = 'bp' |
character(len= *), parameter | vn_bp0 = 'bp' |
character(len= *), parameter | vn_bz0 = 'bz' |
character(len= *), parameter | vn_bz0 = 'bz' |
character(len= *), parameter | vn_ir = 'ir' |
character(len= *), parameter | vn_ir = 'ir' |
character(len= *), parameter | vn_jz = 'jz' |
character(len= *), parameter | vn_jz = 'jz' |
character(len= *), parameter | vn_kp = 'kp' |
character(len= *), parameter | vn_kp = 'kp' |
character(len= *), parameter | vn_nfp = 'nfp' |
character(len= *), parameter | vn_nfp = 'nfp' |
character(len= *), parameter | vn_rmin ='rmin' |
character(len= *), parameter | vn_rmin ='rmin' |
character(len= *), parameter | vn_rmax ='rmax' |
character(len= *), parameter | vn_rmax ='rmax' |
character(len= *), parameter | vn_zmin ='zmin' |
character(len= *), parameter | vn_zmin ='zmin' |
character(len= *), parameter | vn_zmax ='zmax' |
character(len= *), parameter | vn_zmax ='zmax' |
character(len= *), parameter | vn_coilgrp ='coil_group' |
character(len= *), parameter | vn_coilgrp ='coil_group' |
character(len= *), parameter | vn_nextcur = 'nextcur' |
character(len= *), parameter | vn_nextcur = 'nextcur' |
character(len= *), parameter | vn_mgmode ='mgrid_mode' |
character(len= *), parameter | vn_mgmode ='mgrid_mode' |
character(len= *), parameter | vn_coilcur = 'raw_coil_cur' |
character(len= *), parameter | vn_coilcur = 'raw_coil_cur' |
character(len= *), parameter | vn_flp = 'nobser' |
character(len= *), parameter | vn_flp = 'nobser' |
character(len= *), parameter | vn_nobd = 'nobd' |
character(len= *), parameter | vn_nobd = 'nobd' |
character(len= *), parameter | vn_nbset = 'nbsets' |
character(len= *), parameter | vn_nbset = 'nbsets' |
character(len= *), parameter | vn_nbfld = 'nbfld' |
character(len= *), parameter | vn_nbfld = 'nbfld' |
character(len= *), parameter | ln_flp = 'flux loops' |
character(len= *), parameter | ln_flp = 'flux loops' |
character(len= *), parameter | ln_nobd = 'Connected flux loops' |
character(len= *), parameter | ln_nobd = 'Connected flux loops' |
character(len= *), parameter | ln_nbset = 'B-coil loops' |
character(len= *), parameter | ln_nbset = 'B-coil loops' |
character(len= *), parameter | ln_next = 'External currents' |
character(len= *), parameter | ln_next = 'External currents' |
character(len= *), parameter | ln_nbfld = 'B-coil measurements' |
character(len= *), parameter | ln_nbfld = 'B-coil measurements' |
integer | nr0b |
integer | nr0b |
integer | np0b |
integer | np0b |
integer | nfper0 |
integer | nfper0 |
integer | nz0b |
integer | nz0b |
integer | nobd |
integer | nobd |
integer | nobser |
integer | nobser |
integer | nextcur |
integer | nextcur |
integer | nbfldn |
integer | nbfldn |
integer | nbsets |
integer | nbsets |
integer | nbcoilsn |
integer | nbcoilsn |
integer | nbvac |
integer | nbvac |
integer | nbcoil_max |
integer | nbcoil_max |
integer | nlim |
integer | nlim |
integer | nlim_max |
integer | nlim_max |
integer | nsets |
integer | nsets |
integer | nrgrid |
integer | nrgrid |
integer | nzgrid |
integer | nzgrid |
integer, dimension(:), allocatable | needflx |
integer, dimension(:), allocatable | needflx |
integer, dimension(:), allocatable | nbcoils |
integer, dimension(:), allocatable | nbcoils |
integer, dimension(:), allocatable | limitr |
integer, dimension(:), allocatable | limitr |
integer, dimension(:), allocatable | nsetsn |
integer, dimension(:), allocatable | nsetsn |
integer, dimension(:,:), allocatable | iconnect |
integer, dimension(:,:), allocatable | iconnect |
integer, dimension(:,:), allocatable | needbfld |
integer, dimension(:,:), allocatable | needbfld |
real(rprec) | rminb |
real(rprec) | rminb |
real(rprec) | zminb |
real(rprec) | zminb |
real(rprec) | rmaxb |
real(rprec) | rmaxb |
real(rprec) | zmaxb |
real(rprec) | zmaxb |
real(rprec) | delrb |
real(rprec) | delrb |
real(rprec) | delzb |
real(rprec) | delzb |
real(rprec) | rx1 |
real(rprec) | rx1 |
real(rprec) | rx2 |
real(rprec) | rx2 |
real(rprec) | zy1 |
real(rprec) | zy1 |
real(rprec) | zy2 |
real(rprec) | zy2 |
real(rprec) | condif |
real(rprec) | condif |
real(rprec), dimension(:,:), allocatable, target | bvac |
real(rprec), dimension(:,:), allocatable, target | bvac |
real(rprec), dimension(:,:,:), pointer | brvac |
real(rprec), dimension(:,:,:), pointer | brvac |
real(rprec), dimension(:,:,:), pointer | bzvac |
real(rprec), dimension(:,:,:), pointer | bzvac |
real(rprec), dimension(:,:,:), pointer | bpvac |
real(rprec), dimension(:,:,:), pointer | bpvac |
real(rprec), dimension(:,:), allocatable | unpsiext |
real(rprec), dimension(:,:), allocatable | unpsiext |
real(rprec), dimension(:,:), allocatable | plbfld |
real(rprec), dimension(:,:), allocatable | plbfld |
real(rprec), dimension(:,:), allocatable | rbcoil |
real(rprec), dimension(:,:), allocatable | rbcoil |
real(rprec), dimension(:,:), allocatable | zbcoil |
real(rprec), dimension(:,:), allocatable | zbcoil |
real(rprec), dimension(:,:), allocatable | abcoil |
real(rprec), dimension(:,:), allocatable | abcoil |
real(rprec), dimension(:,:), allocatable | bcoil |
real(rprec), dimension(:,:), allocatable | bcoil |
real(rprec), dimension(:,:), allocatable | rbcoilsqr |
real(rprec), dimension(:,:), allocatable | rbcoilsqr |
real(rprec), dimension(:), allocatable | raw_coil_current |
real(rprec), dimension(:), allocatable | raw_coil_current |
real(rprec), dimension(:), allocatable | xobser |
real(rprec), dimension(:), allocatable | xobser |
real(rprec), dimension(:), allocatable | zobser |
real(rprec), dimension(:), allocatable | zobser |
real(rprec), dimension(:), allocatable | xobsqr |
real(rprec), dimension(:), allocatable | xobsqr |
real(rprec), dimension(:), allocatable | dsiext |
real(rprec), dimension(:), allocatable | dsiext |
real(rprec), dimension(:), allocatable | psiext |
real(rprec), dimension(:), allocatable | psiext |
real(rprec), dimension(:), allocatable | plflux |
real(rprec), dimension(:), allocatable | plflux |
real(rprec), dimension(:), allocatable | b_chi |
real(rprec), dimension(:), allocatable | b_chi |
character(len=300) | mgrid_path |
character(len=300) | mgrid_path |
character(len=300) | mgrid_path_old = " " |
character(len=300) | mgrid_path_old = " " |
character(len=30), dimension(:), allocatable | curlabel |
character(len=30), dimension(:), allocatable | curlabel |
character(len=15), dimension(:), allocatable | dsilabel |
character(len=15), dimension(:), allocatable | dsilabel |
character(len=15), dimension(:), allocatable | bloopnames |
character(len=15), dimension(:), allocatable | bloopnames |
character(len=30) | tokid |
character(len=30) | tokid |
real(rprec), dimension(:,:,:), allocatable | dbcoil |
real(rprec), dimension(:,:,:), allocatable | dbcoil |
real(rprec), dimension(:,:,:), allocatable | pfcspec |
real(rprec), dimension(:,:,:), allocatable | pfcspec |
real(rprec), dimension(:,:), allocatable | rlim |
real(rprec), dimension(:,:), allocatable | rlim |
real(rprec), dimension(:,:), allocatable | zlim |
real(rprec), dimension(:,:), allocatable | zlim |
real(rprec), dimension(:,:), allocatable | reslim |
real(rprec), dimension(:,:), allocatable | reslim |
real(rprec), dimension(:,:), allocatable | seplim |
real(rprec), dimension(:,:), allocatable | seplim |
character(len=1) | mgrid_mode |
character(len=1) | mgrid_mode |
character(len=*), parameter mgrid_mod::vn_flp = 'nobser' | +character(len=*), parameter mgrid_mod::vn_flp = 'nobser' |
character(len=*), parameter mgrid_mod::vn_mgmode ='mgrid_mode' | +character(len=*), parameter mgrid_mod::vn_mgmode ='mgrid_mode' |
character(len=*), parameter mgrid_mod::vn_nbset = 'nbsets' | +character(len=*), parameter mgrid_mod::vn_nbset = 'nbsets' |
character(len=*), parameter mgrid_mod::vn_nextcur = 'nextcur' | +character(len=*), parameter mgrid_mod::vn_nextcur = 'nextcur' |
character(len=*), parameter mgrid_mod::vn_nobd = 'nobd' | +character(len=*), parameter mgrid_mod::vn_nobd = 'nobd' |
Functions/Subroutines | |
subroutine | tolower (string) |
subroutine | tolower (string) |
Convert a string to lower case. | |
Variables | |
real(rprec), dimension(:), allocatable | blam |
real(rprec), dimension(:), allocatable | blam |
real(rprec), dimension(:), allocatable | clam |
real(rprec), dimension(:), allocatable | clam |
real(rprec), dimension(:), allocatable | dlam |
real(rprec), dimension(:), allocatable | dlam |
real(rprec), dimension(:,:), allocatable | ard |
real(rprec), dimension(:,:), allocatable | ard |
real(rprec), dimension(:,:), allocatable | arm |
real(rprec), dimension(:,:), allocatable | arm |
real(rprec), dimension(:,:), allocatable | brd |
real(rprec), dimension(:,:), allocatable | brd |
real(rprec), dimension(:,:), allocatable | brm |
real(rprec), dimension(:,:), allocatable | brm |
real(rprec), dimension(:,:), allocatable | azd |
real(rprec), dimension(:,:), allocatable | azd |
real(rprec), dimension(:,:), allocatable | azm |
real(rprec), dimension(:,:), allocatable | azm |
real(rprec), dimension(:,:), allocatable | bzd |
real(rprec), dimension(:,:), allocatable | bzd |
real(rprec), dimension(:,:), allocatable | bzm |
real(rprec), dimension(:,:), allocatable | bzm |
real(rprec), dimension(:), allocatable | crd |
real(rprec), dimension(:), allocatable | crd |
real(rprec), dimension(:), allocatable | sm |
real(rprec), dimension(:), allocatable | sm |
shalf(i)/sfull(i) | |
real(rprec), dimension(:), allocatable | sp |
real(rprec), dimension(:), allocatable | sp |
shalf(i+1)/sfull(i) | |
real(rprec), dimension(:), allocatable | bdamp |
real(rprec), dimension(:), allocatable | bdamp |
radial mesh-blending factor | |
real(rprec), dimension(:,:,:,:), allocatable | faclam |
real(rprec), dimension(:,:,:,:), allocatable | faclam |
real(rprec), dimension(:,:,:,:), allocatable | faclam0 |
real(rprec), dimension(:,:,:,:), allocatable | faclam0 |
real(rprec), dimension(:,:), allocatable | bmin |
real(rprec), dimension(:,:), allocatable | bmin |
real(rprec), dimension(:,:), allocatable | bmax |
real(rprec), dimension(:,:), allocatable | bmax |
real(rprec), dimension(:), allocatable | iotaf |
real(rprec), dimension(:), allocatable | iotaf |
rotational transform (full grid) | |
real(rprec), dimension(:), allocatable | phipf |
real(rprec), dimension(:), allocatable | phipf |
radial derivative of toroidal magnetic flux (full grid) | |
real(rprec), dimension(:), allocatable | chipf |
real(rprec), dimension(:), allocatable | chipf |
radial derivative of poloidal magnetic flux (full grid) | |
real(rprec), dimension(:), allocatable | phi |
real(rprec), dimension(:), allocatable | phi |
toroidal magnetic flux | |
real(rprec), dimension(:), allocatable | beta_vol |
real(rprec), dimension(:), allocatable | beta_vol |
real(rprec), dimension(:), allocatable | jcuru |
real(rprec), dimension(:), allocatable | jcuru |
poloidal current density | |
real(rprec), dimension(:), allocatable | jcurv |
real(rprec), dimension(:), allocatable | jcurv |
toroidal current density | |
real(rprec), dimension(:), allocatable | jdotb |
real(rprec), dimension(:), allocatable | jdotb |
real(rprec), dimension(:), allocatable | buco |
real(rprec), dimension(:), allocatable | buco |
enclosed toroidal current profile | |
real(rprec), dimension(:), allocatable | bvco |
real(rprec), dimension(:), allocatable | bvco |
enclosed poloidal current profile | |
real(rprec), dimension(:), allocatable | bdotgradv |
real(rprec), dimension(:), allocatable | bdotgradv |
real(rprec), dimension(:), allocatable | equif |
real(rprec), dimension(:), allocatable | equif |
radial force balance error: grad(p) - <j x B> | |
real(rprec), dimension(:), allocatable | specw |
real(rprec), dimension(:), allocatable | specw |
spectral width (diagnostic) | |
real(rprec), dimension(:), allocatable | tcon |
real(rprec), dimension(:), allocatable | tcon |
constraint-force multiplier | |
real(rprec), dimension(:), allocatable | psi |
real(rprec), dimension(:), allocatable | psi |
real(rprec), dimension(:,:), allocatable | yellip |
real(rprec), dimension(:,:), allocatable | yellip |
real(rprec), dimension(:,:), allocatable | yinden |
real(rprec), dimension(:,:), allocatable | yinden |
real(rprec), dimension(:,:), allocatable | ytrian |
real(rprec), dimension(:,:), allocatable | ytrian |
real(rprec), dimension(:,:), allocatable | yshift |
real(rprec), dimension(:,:), allocatable | yshift |
real(rprec), dimension(:,:), allocatable | ygeo |
real(rprec), dimension(:,:), allocatable | ygeo |
real(rprec), dimension(:), allocatable | overr |
real(rprec), dimension(:), allocatable | overr |
real(rprec), dimension(:), allocatable | pres |
real(rprec), dimension(:), allocatable | pres |
pressure profile | |
real(rprec), dimension(:), allocatable | vp |
real(rprec), dimension(:), allocatable | vp |
radial derivative of enclosed volume | |
real(rprec), dimension(:), allocatable | jpar2 |
real(rprec), dimension(:), allocatable | jpar2 |
real(rprec), dimension(:), allocatable | jperp2 |
real(rprec), dimension(:), allocatable | jperp2 |
real(rprec), dimension(:), allocatable | bdotb |
real(rprec), dimension(:), allocatable | bdotb |
real(rprec), dimension(:), allocatable | vpphi |
real(rprec), dimension(:), allocatable | vpphi |
real(rprec), dimension(:), allocatable | presgrad |
real(rprec), dimension(:), allocatable | presgrad |
pressure gradient: dp/ds | |
real(rprec), dimension(:), allocatable | bucof |
real(rprec), dimension(:), allocatable | bucof |
real(rprec), dimension(:), allocatable | bvcof |
real(rprec), dimension(:), allocatable | bvcof |
real(rprec), dimension(:), allocatable | chi |
real(rprec), dimension(:), allocatable | chi |
poloidal magnetic flux | |
real(rprec), dimension(:), allocatable | presf |
real(rprec), dimension(:), allocatable | presf |
pressure profile on full-grid, mass/phip**gamma | |
real(rprec), dimension(:), allocatable | chips |
real(rprec), dimension(:), allocatable | chips |
poloidal flux (same as chip), one-dimensional array | |
real(rprec), dimension(:), allocatable | phips |
real(rprec), dimension(:), allocatable | phips |
toroidal flux (same as phip), one-dimensional array | |
real(rprec), dimension(:), allocatable | iotas |
real(rprec), dimension(:), allocatable | iotas |
rotational transform , on half radial mesh | |
real(rprec), dimension(:), allocatable | icurv |
real(rprec), dimension(:), allocatable | icurv |
(-)toroidal current inside flux surface (vanishes like s) | |
real(rprec), dimension(:), allocatable | mass |
real(rprec), dimension(:), allocatable | mass |
mass profile on half-grid | |
real(rprec), dimension(:,:), allocatable | bsqsav |
real(rprec), dimension(:,:), allocatable | bsqsav |
real(rprec), dimension(:), allocatable | bredge |
real(rprec), dimension(:), allocatable | bredge |
real(rprec), dimension(:), allocatable | bpedge |
real(rprec), dimension(:), allocatable | bpedge |
real(rprec), dimension(:), allocatable | bzedge |
real(rprec), dimension(:), allocatable | bzedge |
real(rprec), dimension(:), allocatable | xcl0 |
real(rprec), dimension(:), allocatable | xcl0 |
real(rprec), dimension(0:mpol1d, 3) | xmpq |
real(rprec), dimension(0:mpol1d, 3) | xmpq |
spectral condensation weighting factors | |
real(rprec), dimension(0:mpol1d) | faccon |
real(rprec), dimension(0:mpol1d) | faccon |
factor for spectral constraint | |
real(rprec) | hs |
real(rprec) | hs |
radial mesh size increment | |
real(rprec) | currv |
real(rprec) | currv |
toroidal current (?) | |
real(rprec) | aspect |
real(rprec) | aspect |
real(rprec) | ohs |
real(rprec) | ohs |
real(rprec) | voli |
real(rprec) | voli |
total plasma volume in m^3 | |
real(rprec) | r00 |
real(rprec) | r00 |
real(rprec) | r0scale |
real(rprec) | r0scale |
real(rprec) | z00 |
real(rprec) | z00 |
real(rprec) | fsqsum0 |
real(rprec) | fsqsum0 |
real(rprec) | fnorm |
real(rprec) | fnorm |
real(rprec) | fsqr = 1.0_dp |
real(rprec) | fsqr = 1.0_dp |
real(rprec) | fsqz = 1.0_dp |
real(rprec) | fsqz = 1.0_dp |
real(rprec) | fsql = 1.0_dp |
real(rprec) | fsql = 1.0_dp |
real(rprec) | fnorm1 |
real(rprec) | fnorm1 |
real(rprec) | fnorml |
real(rprec) | fnorml |
real(rprec) | fsqr1 |
real(rprec) | fsqr1 |
real(rprec) | fsqz1 |
real(rprec) | fsqz1 |
real(rprec) | fsql1 |
real(rprec) | fsql1 |
real(rprec) | fsq |
real(rprec) | fsq |
real(rprec) | fedge |
real(rprec) | fedge |
real(rprec) | wb |
real(rprec) | wb |
magnetic energy: volume integral over B^2/2 | |
real(rprec) | wp |
real(rprec) | wp |
kinetic/thermal energy (from pressure) | |
real(rprec) | fsqr_con = 1.0_dp |
real(rprec) | fsqr_con = 1.0_dp |
real(rprec) | fsqz_con = 1.0_dp |
real(rprec) | fsqz_con = 1.0_dp |
real(rprec) | fsqr1_con |
real(rprec) | fsqr1_con |
real(rprec) | fsqz1_con |
real(rprec) | fsqz1_con |
real(rprec) | fsqr_mhd = 1.0_dp |
real(rprec) | fsqr_mhd = 1.0_dp |
real(rprec) | fsqz_mhd = 1.0_dp |
real(rprec) | fsqz_mhd = 1.0_dp |
real(rprec) | fsqr1_mhd |
real(rprec) | fsqr1_mhd |
real(rprec) | fsqz1_mhd |
real(rprec) | fsqz1_mhd |
real(rprec) | router |
real(rprec) | router |
real(rprec) | rinner |
real(rprec) | rinner |
real(rprec) | ftolv |
real(rprec) | ftolv |
real(rprec) | otav |
real(rprec) | otav |
time-step algorithm | |
real(rprec), dimension(ndamp) | otau |
real(rprec), dimension(ndamp) | otau |
real(rprec), dimension(:,:,:), allocatable, target | rmn_bdy |
real(rprec), dimension(:,:,:), allocatable, target | rmn_bdy |
real(rprec), dimension(:,:,:), allocatable, target | zmn_bdy |
real(rprec), dimension(:,:,:), allocatable, target | zmn_bdy |
real(rprec), dimension(:), allocatable | bsubu0 |
real(rprec), dimension(:), allocatable | bsubu0 |
real(rprec), dimension(:), allocatable | dbsq |
real(rprec), dimension(:), allocatable | dbsq |
real(rprec), dimension(:), allocatable | rbsq |
real(rprec), dimension(:), allocatable | rbsq |
real(rprec) | rbtor |
real(rprec) | rbtor |
poloidal current at LCFS | |
real(rprec) | rbtor0 |
real(rprec) | rbtor0 |
poloidal current at magnetic axis | |
real(rprec) | ctor |
real(rprec) | ctor |
toroidal current (?) | |
real(rprec) | delbsq |
real(rprec) | delbsq |
real(rprec) | res0 |
real(rprec) | res0 |
real(rprec) | delt0r |
real(rprec) | delt0r |
logical | lthreed |
logical | lthreed |
logical | lconm1 |
logical | lconm1 |
logical | lflip |
logical | lflip |
from init_geometry | |
integer, dimension(:), allocatable | ireflect |
integer, dimension(:), allocatable | ireflect |
two-dimensional array for computing 2pi-v angle | |
integer | multi_ns_grid |
integer | multi_ns_grid |
integer | niterv |
integer | niterv |
max iterations for current multi-grid iteration | |
integer | first |
integer | first |
"counter" monitoring sign of jacobian; resets R, Z, and Lambda when jacobian changes sign and decreases time step (was called irst before) | |
integer | neqs |
integer | neqs |
total number of equations to evolve (size of xc) | |
integer | irzloff |
integer | irzloff |
offset in xc array between R,Z,L components | |
integer | iequi |
integer | iequi |
counter used to call -EQFOR- at end of run | |
integer | ijacob |
integer | ijacob |
counter for number of times jacobian changes sign | |
integer | iter1 |
integer | iter1 |
number of iterations at which the currently active evolution was branched off from | |
integer | iter2 |
integer | iter2 |
total number of iterations | |
integer | ivac |
integer | ivac |
counts number of free-boundary iterations | |
integer | vacuum_calls |
integer | vacuum_calls |
integer | num_eqsolve_retries |
integer | num_eqsolve_retries |
Variables | |
integer, parameter | meven = 0 |
integer, parameter | meven = 0 |
parity selection label for even poloidal modes of R and Z | |
integer, parameter | modd = 1 |
integer, parameter | modd = 1 |
parity selection label for odd poloidal modes of R and Z | |
integer, parameter | ndamp = 10 |
integer, parameter | ndamp = 10 |
number of iterations over which damping is averaged | |
integer, parameter | ns4 = 25 |
integer, parameter | ns4 = 25 |
integer, dimension(0:mpold), parameter | jmin1 = (/ 1,1,(2,ink=2,mpold) /) |
integer, dimension(0:mpold), parameter | jmin1 = (/ 1,1,(2,ink=2,mpold) /) |
starting js(m) values where R,Z are non-zero | |
integer, dimension(0:mpold), parameter | jmin2 = (/ 1,2,(2,ink=2,mpold) /) |
integer, dimension(0:mpold), parameter | jmin2 = (/ 1,2,(2,ink=2,mpold) /) |
starting js(m) values for which R,Z are evolved | |
integer, dimension(0:mpold), parameter | jlam = (/ 2,2,(2,ink=2,mpold) /) |
integer, dimension(0:mpold), parameter | jlam = (/ 2,2,(2,ink=2,mpold) /) |
starting js(m) values for which Lambda is evolved | |
integer, parameter | norm_term_flag = 0 |
integer, parameter | norm_term_flag = 0 |
integer, parameter | bad_jacobian_flag = 1 |
integer, parameter | bad_jacobian_flag = 1 |
integer, parameter | jac75_flag = 4 |
integer, parameter | jac75_flag = 4 |
integer, parameter | input_error_flag = 5 |
integer, parameter | input_error_flag = 5 |
integer, parameter | phiedge_error_flag = 7 |
integer, parameter | phiedge_error_flag = 7 |
integer, parameter | ns_error_flag = 8 |
integer, parameter | ns_error_flag = 8 |
integer, parameter | misc_error_flag = 9 |
integer, parameter | misc_error_flag = 9 |
integer, parameter | successful_term_flag = 11 |
integer, parameter | successful_term_flag = 11 |
integer, parameter | restart_flag = 1 |
integer, parameter | restart_flag = 1 |
integer, parameter | readin_flag = 2 |
integer, parameter | readin_flag = 2 |
integer, parameter | timestep_flag = 4 |
integer, parameter | timestep_flag = 4 |
integer, parameter | output_flag = 8 |
integer, parameter | output_flag = 8 |
integer, parameter | cleanup_flag = 16 |
integer, parameter | cleanup_flag = 16 |
integer, parameter | reset_jacdt_flag = 32 |
integer, parameter | reset_jacdt_flag = 32 |
real(rprec), parameter | pdamp = 0.05_dp |
real(rprec), parameter | pdamp = 0.05_dp |
character(len= *), parameter | version_ = '8.52' |
character(len= *), parameter | version_ = '8.52' |
integer | ntmax |
integer | ntmax |
number of contributing Fourier basis function (can be 1, 2 or 4); assigned in read_indata() | |
integer | rcc |
integer | rcc |
integer | rss |
integer | rss |
integer | rsc |
integer | rsc |
integer | rcs |
integer | rcs |
integer | zsc |
integer | zsc |
integer | zcs |
integer | zcs |
integer | zcc |
integer | zcc |
integer | zss |
integer | zss |
integer | mnyq |
integer | mnyq |
integer | nnyq |
integer | nnyq |
integer, dimension(:), allocatable | uminus |
integer, dimension(:), allocatable | uminus |
real(rprec), dimension(:), allocatable | mscale |
real(rprec), dimension(:), allocatable | mscale |
array for norming theta-trig functions (internal use only) so that the discrete SUM[cos(mu)*cos(m'u)] = .5 delta(m,m') | |
real(rprec), dimension(:), allocatable | nscale |
real(rprec), dimension(:), allocatable | nscale |
array for norming zeta -trig functions (internal use only) | |
real(rprec) | signgs |
real(rprec) | signgs |
sign of Jacobian : must be =1 (right-handed) or =-1 (left-handed) | |
real(rprec) | lamscale =1 |
real(rprec) | lamscale =1 |
integer, parameter | m0 =0 |
integer, parameter | m0 =0 |
from totzsp | |
integer, parameter | m1 =1 |
integer, parameter | m1 =1 |
from totzsp | |
integer, parameter | n0 =0 |
integer, parameter | n0 =0 |
from totzsp | |
Functions/Subroutines | |
subroutine | freeb_data (rmnc, zmns, rmns, zmnc, bmodmn, bmodmn1) |
subroutine | freeb_data (rmnc, zmns, rmns, zmnc, bmodmn, bmodmn1) |
Write out edge values of fields. | |
Functions/Subroutines | |
subroutine | analysum2 (grpmn, bvec, m, n, l, ivacskip, lasym, m_map, n_map, grpmn_m_map, grpmn_n_map) |
subroutine | analysum2 (grpmn, bvec, m, n, l, ivacskip, lasym, m_map, n_map, grpmn_m_map, grpmn_n_map) |
Compute the (m>0 and n>0) part of the DFT of the analytical Fourier transforms of the equivalently-singular integrals. | |
Functions/Subroutines | |
subroutine | spline_akima_int (x, y, xx, yy, npts, iflag) |
subroutine | spline_akima_int (x, y, xx, yy, npts, iflag) |
Functions/Subroutines | |
subroutine | getbsubs (bsubsmn, frho, bsupu, bsupv, mmax, nmax, info) |
subroutine | getbsubs (bsubsmn, frho, bsupu, bsupv, mmax, nmax, info) |
Solves the radial force balance \(\mathbf{B} \cdot B_s = F_s\) for \(B_s\) in real space using collocation. | |
Functions/Subroutines | |
subroutine | set_nestor_sizes (nfp, ntor, mpol, nzeta, ntheta, lasym) |
subroutine | set_nestor_sizes (nfp, ntor, mpol, nzeta, ntheta, lasym) |
Variables | |
integer | mf |
integer | mf |
integer | nf |
integer | nf |
integer | nu |
integer | nu |
integer | nv |
integer | nv |
integer | mf1 |
integer | mf1 |
integer | nf1 |
integer | nf1 |
integer | mnpd |
integer | mnpd |
integer | mnpd2 |
integer | mnpd2 |
integer | nuv |
integer | nuv |
integer | nu2 |
integer | nu2 |
integer | nu3 |
integer | nu3 |
integer | nuv2 |
integer | nuv2 |
integer | nfper |
integer | nfper |
integer | nvper |
integer | nvper |
integer | nuv_tan |
integer | nuv_tan |
integer | nvp |
integer | nvp |
integer | ndim |
integer | ndim |
Variables | |
integer | mpol1 |
integer | mpol1 |
mpol-1 | |
integer | ntor1 |
integer | ntor1 |
ntor+1 | |
integer | mnmax |
integer | mnmax |
integer | ntheta1 |
integer | ntheta1 |
integer | ntheta2 |
integer | ntheta2 |
integer | ntheta3 |
integer | ntheta3 |
effective number of poloidal grid points | |
integer | nznt |
integer | nznt |
integer | nrzt |
integer | nrzt |
integer | mns |
integer | mns |
integer | mnsize |
integer | mnsize |
integer | mnmax_nyq |
integer | mnmax_nyq |
integer | ns |
integer | ns |
number of flux surfaces | |
integer | ns1 |
integer | ns1 |
ns-1 | |
integer | ns_maxval |
integer | ns_maxval |
Functions/Subroutines | |
subroutine | flip_theta (rmn, zmn, lmn) |
subroutine | flip_theta (rmn, zmn, lmn) |
Flip the definition of the poloidal angle in the user-provided initial guess for the LCFS geometry. | |
Functions/Subroutines | |
subroutine | allocate_funct3d |
subroutine | allocate_funct3d |
allocate arrays required in funct3d() | |
Functions/Subroutines | |
subroutine | open_output_files (extension, lfirst) |
subroutine | open_output_files (extension, lfirst) |
Open output files. | |
This module containes code to create a profile constructed of line segments. These line segments are assumed to be specified such that \(xx(i) < xx(i + 1)\). -More...
+More...Functions/Subroutines | |
subroutine, public | line_seg (x, y, xx, yy, n) |
subroutine, public | line_seg (x, y, xx, yy, n) |
subroutine, public | line_seg_int (x, y, xx, yy, n) |
subroutine, public | line_seg_int (x, y, xx, yy, n) |
logical function, public | line_seg_test () |
logical function, public | line_seg_test () |
Functions/Subroutines | |
subroutine | getfsq (gcr, gcz, gnormr, gnormz, gnorm, medge) |
subroutine | getfsq (gcr, gcz, gnormr, gnormz, gnorm, medge) |
Compute total force residual on flux surfaces. | |
Functions/Subroutines | |
subroutine | funct3d (ier_flag) |
subroutine | funct3d (ier_flag) |
Evaluate the three-dimensional MHD energy functional. Think of this as the "forward model" that tells you the MHD forces in Fourier space given the Fourier coefficients of the flux surface geometry. | |
Functions/Subroutines | |
subroutine | residue_con (gcr, gcz, gcl, fsqrz, old_fsqz) |
subroutine | residue_con (gcr, gcz, gcl, fsqrz, old_fsqz) |
Compute invariant residuals. | |
Functions/Subroutines | |
subroutine | elongation (r1, z1, waist, height) |
subroutine | elongation (r1, z1, waist, height) |
Compute Waist thickness and height in \(\varphi = 0, \pi\) symmetry planes. | |
Functions/Subroutines | |
subroutine | fsym_invfft (bsubsu, bsubsv) |
subroutine | fsym_invfft (bsubsu, bsubsv) |
Extends function from ntheta2 to ntheta3 range. | |
Functions/Subroutines | |
subroutine | lamcal (overg, guu, guv, gvv) |
subroutine | lamcal (overg, guu, guv, gvv) |
Normalization parameters for \(\lambda\). | |
Functions/Subroutines | |
program | nestor |
program | nestor |
Main program of stand-alone version of NESTOR. | |
Functions/Subroutines | |
subroutine | precondn (lu1, bsq, gsqrt, r12, xs, xu12, xue, xuo, xodd, axm, axd, bxm, bxd, cx, trigmult) |
subroutine | precondn (lu1, bsq, gsqrt, r12, xs, xu12, xue, xuo, xodd, axm, axd, bxm, bxd, cx, trigmult) |
Compute preconditioning matrix elements for \(R\), \(Z\) force. | |
Functions/Subroutines | |
subroutine | read_indata (in_file, iunit, ier_flag) |
subroutine | read_indata (in_file, iunit, ier_flag) |
Read the INDATA namelist from a given input file. | |
Functions/Subroutines | |
subroutine | fixaray |
subroutine | fixaray |
allocate and fill some fixed-size arrays (only depending on Fourier resolution). | |
Functions/Subroutines | |
subroutine | symforce (ars, brs, crs, azs, bzs, czs, bls, cls, rcs, zcs, ara, bra, cra, aza, bza, cza, bla, cla, rca, zca) |
subroutine | symforce (ars, brs, crs, azs, bzs, czs, bls, cls, rcs, zcs, ara, bra, cra, aza, bza, cza, bla, cla, rca, zca) |
Symmetrize forces on restricted \(\theta\) interval \((0 \leq \theta \leq \pi \) so cos, sin integrals can be performed. | |
Functions/Subroutines | |
real(rprec) function | torflux_deriv (x) |
real(rprec) function | torflux_deriv (x) |
Compute the radial derivative of the enclosed toroidal magnetic flux. | |
real(rprec) function | polflux_deriv (x) |
real(rprec) function | polflux_deriv (x) |
Compute the radial derivative of the enclosed poloidal magnetic flux. | |
real(rprec) function | torflux (x) |
real(rprec) function | torflux (x) |
Compute the enclosed toroidal magnetic flux. | |
real(rprec) function | polflux (x) |
real(rprec) function | polflux (x) |
Compute the enclosed poloidal magnetic flux. | |
Functions/Subroutines | |
subroutine | residue_mhd (gcr, gcz, gcl, fsqrz, old_fsqz) |
subroutine | residue_mhd (gcr, gcz, gcl, fsqrz, old_fsqz) |
Compute invariant residuals. | |
Functions/Subroutines | |
subroutine | restart_iter (time_step) |
subroutine | restart_iter (time_step) |
Save current or restore previous good state vector and reduce time step. | |
Functions | |
list (APPEND vmec_sources ${CMAKE_CURRENT_SOURCE_DIR}/realspace.f90 ${CMAKE_CURRENT_SOURCE_DIR}/stel_constants.f90 ${CMAKE_CURRENT_SOURCE_DIR}/stel_kinds.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vforces.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_dim.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_input.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_io.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_main.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_params.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_persistent.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmercier.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vparams.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vsvd0.f90 ${CMAKE_CURRENT_SOURCE_DIR}/xstuff.f90) set(vmec_sources "$ | |
list (APPEND vmec_sources ${CMAKE_CURRENT_SOURCE_DIR}/realspace.f90 ${CMAKE_CURRENT_SOURCE_DIR}/stel_constants.f90 ${CMAKE_CURRENT_SOURCE_DIR}/stel_kinds.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vforces.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_dim.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_input.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_io.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_main.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_params.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmec_persistent.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vmercier.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vparams.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vsvd0.f90 ${CMAKE_CURRENT_SOURCE_DIR}/xstuff.f90) set(vmec_sources "$ | |
Variables | |
integer, parameter | nsd = 10001 |
integer, parameter | nsd = 10001 |
maximum number of radial nodes | |
integer, parameter | mpold = 101 |
integer, parameter | mpold = 101 |
maximum number of poloidal harmonics (in r,z,lam fourier series) | |
integer, parameter | ntord = 101 |
integer, parameter | ntord = 101 |
maximum number of toroidal harmonics | |
integer, parameter | ndatafmax = 1001 |
integer, parameter | ndatafmax = 1001 |
integer, parameter | mpol1d = mpold - 1 |
integer, parameter | mpol1d = mpold - 1 |
integer, parameter | ntor1d = ntord + 1 |
integer, parameter | ntor1d = ntord + 1 |
integer, parameter | nthreed0 = 9 |
integer, parameter | nthreed0 = 9 |
integer, parameter | indata0 = nthreed0 + 2 |
integer, parameter | indata0 = nthreed0 + 2 |
integer, parameter | nwout0 = nthreed0 + 3 |
integer, parameter | nwout0 = nthreed0 + 3 |
integer, parameter | jxbout0 = nthreed0 + 4 |
integer, parameter | jxbout0 = nthreed0 + 4 |
integer, parameter | nfort18 = 18 |
integer, parameter | nfort18 = 18 |
integer, parameter | nmercier0 = 52 |
integer, parameter | nmercier0 = 52 |
integer | nthreed |
integer | nthreed |
real(rprec), parameter | c1pm13 = 1.0e-13_dp |
real(rprec), parameter | c1pm13 = 1.0e-13_dp |
real(rprec), parameter | c1pm8 = 1.0e-8_dp |
real(rprec), parameter | c1pm8 = 1.0e-8_dp |
real(rprec), parameter | c1pm2 = 1.0e-2_dp |
real(rprec), parameter | c1pm2 = 1.0e-2_dp |
real(rprec), parameter | cp05 = 0.05_dp |
real(rprec), parameter | cp05 = 0.05_dp |
real(rprec), parameter | cp15 = 0.15_dp |
real(rprec), parameter | cp15 = 0.15_dp |
real(rprec), parameter | cp25 = 0.25_dp |
real(rprec), parameter | cp25 = 0.25_dp |
real(rprec), parameter | cp5 = 0.50_dp |
real(rprec), parameter | cp5 = 0.50_dp |
real(rprec), parameter | osqrt2 = 0.707106781186547462_dp |
real(rprec), parameter | osqrt2 = 0.707106781186547462_dp |
1/sqrt(2) | |
real(rprec), parameter | c1p5 = 1.50_dp |
real(rprec), parameter | c1p5 = 1.50_dp |
real(rprec), parameter | c2p0 = 2.0_dp |
real(rprec), parameter | c2p0 = 2.0_dp |
real(rprec), parameter | c3p0 = 3.0_dp |
real(rprec), parameter | c3p0 = 3.0_dp |
real(rprec), parameter | cbig = 0.9e30_dp |
real(rprec), parameter | cbig = 0.9e30_dp |
integer, parameter vparams::indata0 = nthreed0 + 2 | +integer, parameter vparams::indata0 = nthreed0 + 2 |
integer, parameter vparams::jxbout0 = nthreed0 + 4 | +integer, parameter vparams::jxbout0 = nthreed0 + 4 |
integer, parameter vparams::mpol1d = mpold - 1 | +integer, parameter vparams::mpol1d = mpold - 1 |
integer, parameter vparams::ntor1d = ntord + 1 | +integer, parameter vparams::ntor1d = ntord + 1 |
integer, parameter vparams::nwout0 = nthreed0 + 3 | +integer, parameter vparams::nwout0 = nthreed0 + 3 |
Functions/Subroutines | |
subroutine | alias (gcons, ztemp, gcs, gsc, gcc, gss) |
subroutine | alias (gcons, ztemp, gcs, gsc, gcc, gss) |
Fourier-space bandpass filter on constraint force for spectral condensation. | |
Functions/Subroutines | |
subroutine | guess_axis (r1, z1, ru0, zu0) |
subroutine | guess_axis (r1, z1, ru0, zu0) |
Computes guess for magnetic axis if user guess leads to initial sign change of Jacobian. | |
Functions/Subroutines | |
subroutine | surface (rc, rs, zs, zc, xm, xn, mnmax, lasym, signgs) |
subroutine | surface (rc, rs, zs, zc, xm, xn, mnmax, lasym, signgs) |
Evaluate the geometry of the LCFS and tangential derivatives. | |
Functions/Subroutines | |
subroutine | jxbforce (bsupu, bsupv, bsubu, bsubv, bsubsh, bsubsu, bsubsv, gsqrt, bsq, itheta, izeta, brho, ier_flag) |
subroutine | jxbforce (bsupu, bsupv, bsubu, bsubv, bsubsh, bsubsu, bsubsv, gsqrt, bsq, itheta, izeta, brho, ier_flag) |
Program for computing local \(\mathbf{K} \times \mathbf{B} = \nabla p\) force balance. | |
Functions/Subroutines | |
subroutine | fouri (grpmn, gsource, amatrix, amatsq, bvec, wint, lasym) |
subroutine | fouri (grpmn, gsource, amatrix, amatsq, bvec, wint, lasym) |
Compute Fourier integrals and build amatrix. | |
Functions/Subroutines | |
subroutine | becoil (rad, zee, brvac, bpvac, bzvac) |
subroutine | becoil (rad, zee, brvac, bpvac, bzvac) |
Compute the cylindrical components of the magnetic field due to external coils. by bi-linear interpolation of the mgrid file. | |
Functions/Subroutines | |
subroutine | spline_akima (x, y, xx, yy, npts, iflag) |
subroutine | spline_akima (x, y, xx, yy, npts, iflag) |
Functions/Subroutines | |
subroutine | getcurmid (curmid, izeta, gsqrt, r12) |
subroutine | getcurmid (curmid, izeta, gsqrt, r12) |
Get current at midplane (?) | |
Variables | |
real(rprec), dimension(:,:), allocatable | r1 |
real(rprec), dimension(:,:), allocatable | r1 |
\(R\) | |
real(rprec), dimension(:,:), allocatable | ru |
real(rprec), dimension(:,:), allocatable | ru |
\(\partial R/\partial \theta\) | |
real(rprec), dimension(:,:), allocatable | rv |
real(rprec), dimension(:,:), allocatable | rv |
\(\partial R/\partial \zeta\) | |
real(rprec), dimension(:,:), allocatable, target | z1 |
real(rprec), dimension(:,:), allocatable, target | z1 |
\(Z \) | |
real(rprec), dimension(:,:), allocatable | zu |
real(rprec), dimension(:,:), allocatable | zu |
\(\partial Z/\partial \theta\) | |
real(rprec), dimension(:,:), allocatable | zv |
real(rprec), dimension(:,:), allocatable | zv |
\(\partial Z/\partial \zeta\) | |
real(rprec), dimension(:,:), allocatable | rcon |
real(rprec), dimension(:,:), allocatable | rcon |
spectral condensation term in \(R\) | |
real(rprec), dimension(:,:), allocatable | zcon |
real(rprec), dimension(:,:), allocatable | zcon |
spectral condensation term in \(Z\) | |
real(rprec), dimension(:), allocatable | rcon0 |
real(rprec), dimension(:), allocatable | rcon0 |
spectral condensation term in \(R\) at start of current multi-grid iteration | |
real(rprec), dimension(:), allocatable | zcon0 |
real(rprec), dimension(:), allocatable | zcon0 |
spectral condensation term in \(R\) at start of current multi-grid iteration | |
real(rprec), dimension(:), allocatable | guu |
real(rprec), dimension(:), allocatable | guu |
\(g_{\theta, \theta}\) metric element | |
real(rprec), dimension(:), allocatable | guv |
real(rprec), dimension(:), allocatable | guv |
\(g_{\theta, \zeta}\) metric element | |
real(rprec), dimension(:), allocatable | gvv |
real(rprec), dimension(:), allocatable | gvv |
\(g_{\zeta, \zeta}\) metric element | |
real(rprec), dimension(:), allocatable | ru0 |
real(rprec), dimension(:), allocatable | ru0 |
\(\partial R/\partial \theta\), even-m and odd-m added together appropriately | |
real(rprec), dimension(:), allocatable | zu0 |
real(rprec), dimension(:), allocatable | zu0 |
\(\partial Z/\partial \theta\), even-m and odd-m added together appropriately | |
real(rprec), dimension(:), allocatable | gcon |
real(rprec), dimension(:), allocatable | gcon |
spectral condensation force; "alias force" | |
real(rprec), dimension(:), allocatable | phip |
real(rprec), dimension(:), allocatable | phip |
radial derivative of phi/(2*pi) on half-grid | |
real(rprec), dimension(:), allocatable | chip |
real(rprec), dimension(:), allocatable | chip |
radial derivative of chi/(2*pi) on half-grid | |
real(rprec), dimension(:), allocatable | shalf |
real(rprec), dimension(:), allocatable | shalf |
sqrt(s) ,two-dimensional array on half-grid | |
real(rprec), dimension(:), allocatable | sqrts |
real(rprec), dimension(:), allocatable | sqrts |
sqrt(s), two-dimensional array on full-grid | |
real(rprec), dimension(:), allocatable | wint |
real(rprec), dimension(:), allocatable | wint |
two-dimensional array for normalizing angle integrations | |
real(rprec), dimension(:,:), allocatable, target | extra1 |
real(rprec), dimension(:,:), allocatable, target | extra1 |
real(rprec), dimension(:,:), allocatable, target | extra2 |
real(rprec), dimension(:,:), allocatable, target | extra2 |
real(rprec), dimension(:,:), allocatable, target | extra3 |
real(rprec), dimension(:,:), allocatable, target | extra3 |
real(rprec), dimension(:,:), allocatable, target | extra4 |
real(rprec), dimension(:,:), allocatable, target | extra4 |
Variables | |
integer, parameter | nigroup = 100 |
integer, parameter | nigroup = 100 |
number of external current groups | |
Functions/Subroutines | |
subroutine | solver (amat, b, m, nrhs, info) |
subroutine | solver (amat, b, m, nrhs, info) |
Solve a linear system of equations using dgesv . | |
Functions/Subroutines | |
subroutine | eqsolve (ier_flag) |
subroutine | eqsolve (ier_flag) |
Iteratively evolve the Fourier coefficients that specify the equilibrium. | |
Functions | |
list (APPEND vmec_sources ${CMAKE_CURRENT_SOURCE_DIR}/vacmod.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vacmod0.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vac_persistent.f90 ${CMAKE_CURRENT_SOURCE_DIR}/nestor_io.f90) set(vmec_sources "$ | |
list (APPEND vmec_sources ${CMAKE_CURRENT_SOURCE_DIR}/vacmod.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vacmod0.f90 ${CMAKE_CURRENT_SOURCE_DIR}/vac_persistent.f90 ${CMAKE_CURRENT_SOURCE_DIR}/nestor_io.f90) set(vmec_sources "$ | |
Functions/Subroutines | |
subroutine | bcovar (lu, lv) |
subroutine | bcovar (lu, lv) |
Compute the covariant components of the magnetic field \(B_\theta\), \(B_\zeta\). | |
Functions/Subroutines | |
subroutine | profil1d () |
subroutine | profil1d () |
Compute phip and iota profiles on full grid. | |
Functions/Subroutines | |
subroutine | bss (r12, rs, zs, ru12, zu12, bsubs, bsupu, bsupv, br, bphi, bz) |
subroutine | bss (r12, rs, zs, ru12, zu12, bsubs, bsupu, bsupv, br, bphi, bz) |
Computes br, bphi, bz, bsubs on half-radial mesh. | |
Functions/Subroutines | |
subroutine | allocate_nunv |
subroutine | allocate_nunv |
allocate arrays depending on the number of Fourier coefficients nunv | |
Public Member Functions | |
subroutine | readw_and_open (file_or_extension, ierr, iopen) |
subroutine | readw_and_open (file_or_extension, ierr, iopen) |
Functions/Subroutines | |
subroutine | printout (i0, delt0, w0) |
subroutine | printout (i0, delt0, w0) |
Print iteration progress to screen and threed1 output file. | |
Functions/Subroutines | |
subroutine | allocate_ns (linterp, neqs_old) |
subroutine | allocate_ns (linterp, neqs_old) |
allocate arrays depending on the number of flux surfaces ns | |
Variables | |
real(rprec), dimension(:), allocatable, target | armn |
real(rprec), dimension(:), allocatable, target | armn |
real(rprec), dimension(:), allocatable, target | brmn |
real(rprec), dimension(:), allocatable, target | brmn |
real(rprec), dimension(:), allocatable, target | crmn |
real(rprec), dimension(:), allocatable, target | crmn |
real(rprec), dimension(:), allocatable, target | azmn |
real(rprec), dimension(:), allocatable, target | azmn |
real(rprec), dimension(:), allocatable, target | bzmn |
real(rprec), dimension(:), allocatable, target | bzmn |
real(rprec), dimension(:), allocatable, target | czmn |
real(rprec), dimension(:), allocatable, target | czmn |
real(rprec), dimension(:), allocatable, target | blmn |
real(rprec), dimension(:), allocatable, target | blmn |
real(rprec), dimension(:), allocatable, target | clmn |
real(rprec), dimension(:), allocatable, target | clmn |
real(rprec), dimension(:), pointer | armn_e |
real(rprec), dimension(:), pointer | armn_e |
real(rprec), dimension(:), pointer | armn_o |
real(rprec), dimension(:), pointer | armn_o |
real(rprec), dimension(:), pointer | brmn_e |
real(rprec), dimension(:), pointer | brmn_e |
real(rprec), dimension(:), pointer | brmn_o |
real(rprec), dimension(:), pointer | brmn_o |
real(rprec), dimension(:), pointer | crmn_e |
real(rprec), dimension(:), pointer | crmn_e |
real(rprec), dimension(:), pointer | crmn_o |
real(rprec), dimension(:), pointer | crmn_o |
real(rprec), dimension(:), pointer | azmn_e |
real(rprec), dimension(:), pointer | azmn_e |
real(rprec), dimension(:), pointer | azmn_o |
real(rprec), dimension(:), pointer | azmn_o |
real(rprec), dimension(:), pointer | bzmn_e |
real(rprec), dimension(:), pointer | bzmn_e |
real(rprec), dimension(:), pointer | bzmn_o |
real(rprec), dimension(:), pointer | bzmn_o |
real(rprec), dimension(:), pointer | czmn_e |
real(rprec), dimension(:), pointer | czmn_e |
real(rprec), dimension(:), pointer | czmn_o |
real(rprec), dimension(:), pointer | czmn_o |
real(rprec), dimension(:), pointer | blmn_e |
real(rprec), dimension(:), pointer | blmn_e |
real(rprec), dimension(:), pointer | blmn_o |
real(rprec), dimension(:), pointer | blmn_o |
real(rprec), dimension(:), pointer | clmn_e |
real(rprec), dimension(:), pointer | clmn_e |
real(rprec), dimension(:), pointer | clmn_o |
real(rprec), dimension(:), pointer | clmn_o |
real(rprec), dimension(:), allocatable, target | brmn_con |
real(rprec), dimension(:), allocatable, target | brmn_con |
real(rprec), dimension(:), allocatable, target | bzmn_con |
real(rprec), dimension(:), allocatable, target | bzmn_con |
real(rprec), dimension(:), pointer | brmn_e_con |
real(rprec), dimension(:), pointer | brmn_e_con |
real(rprec), dimension(:), pointer | brmn_o_con |
real(rprec), dimension(:), pointer | brmn_o_con |
real(rprec), dimension(:), pointer | bzmn_e_con |
real(rprec), dimension(:), pointer | bzmn_e_con |
real(rprec), dimension(:), pointer | bzmn_o_con |
real(rprec), dimension(:), pointer | bzmn_o_con |
Functions/Subroutines | |
subroutine | parse_extension (file_to_parse, file_or_extension, lnc) |
subroutine | parse_extension (file_to_parse, file_or_extension, lnc) |
Parse the first command-line argument into a filename. | |
Functions/Subroutines | |
subroutine | spline_cubic (x, y, xx, yy, n, iflag) |
subroutine | spline_cubic (x, y, xx, yy, n, iflag) |
subroutine | spline_nr (x, y, n, yp1, ypn, y2) |
subroutine | spline_nr (x, y, n, yp1, ypn, y2) |
Functions/Subroutines | |
subroutine | add_fluxes (overg, bsupu, bsupv) |
subroutine | add_fluxes (overg, bsupu, bsupv) |
Add the magnetic fluxes to the tangential derivatives of \(\lambda\) to arrive at the contravariant magnetic field components \(B^\theta\) and \(B^\zeta\). | |
Functions/Subroutines | |
subroutine | scalfor (gcx, axm, bxm, axd, bxd, cx, iflag, skip_scalfor_dbg) |
subroutine | scalfor (gcx, axm, bxm, axd, bxd, cx, iflag, skip_scalfor_dbg) |
Build forces from different contributions. | |
Functions/Subroutines | |
subroutine | readin (input_file, ier_flag) |
subroutine | readin (input_file, ier_flag) |
Read the input file. | |
Functions/Subroutines | |
subroutine | tomnsps_con (frzl_array, brmn_con, bzmn_con, arcon, azcon) |
subroutine | tomnsps_con (frzl_array, brmn_con, bzmn_con, arcon, azcon) |
Fourier-transform symmetric forces from real space to Fourier space. | |
subroutine | tomnspa_con (frzl_array, brmn_con, bzmn_con, arcon, azcon) |
subroutine | tomnspa_con (frzl_array, brmn_con, bzmn_con, arcon, azcon) |
Fourier-transform anti-symmetric forces from real space to Fourier space. | |
Functions/Subroutines | |
subroutine | read_indata_namelist (iunit, istat) |
subroutine | read_indata_namelist (iunit, istat) |
subroutine | write_indata_namelist (iunit, istat) |
subroutine | write_indata_namelist (iunit, istat) |
Variables | |
integer, parameter | mpol_default = 6 |
integer, parameter | mpol_default = 6 |
integer, parameter | ntor_default = 0 |
integer, parameter | ntor_default = 0 |
integer, parameter | ns_default = 31 |
integer, parameter | ns_default = 31 |
integer, parameter | niter_default = 100 |
integer, parameter | niter_default = 100 |
real(rprec), parameter | ftol_default = 1.E-10_dp |
real(rprec), parameter | ftol_default = 1.E-10_dp |
integer, parameter | num_iter2_to_dump = 20 |
integer, parameter | num_iter2_to_dump = 20 |
integer | nfp |
integer | nfp |
integer | ncurr |
integer | ncurr |
integer | nstep |
integer | nstep |
integer | nvacskip |
integer | nvacskip |
integer | mpol |
integer | mpol |
integer | ntor |
integer | ntor |
integer | ntheta |
integer | ntheta |
integer | nzeta |
integer | nzeta |
integer | mfilter_fbdy |
integer | mfilter_fbdy |
integer | nfilter_fbdy |
integer | nfilter_fbdy |
integer, dimension(100) | ns_array |
integer, dimension(100) | ns_array |
integer, dimension(100) | niter_array |
integer, dimension(100) | niter_array |
real(rprec), dimension(100) | ftol_array |
real(rprec), dimension(100) | ftol_array |
real(rprec), dimension(-ntord:ntord, 0:mpol1d) | rbc |
real(rprec), dimension(-ntord:ntord, 0:mpol1d) | rbc |
real(rprec), dimension(-ntord:ntord, 0:mpol1d) | zbs |
real(rprec), dimension(-ntord:ntord, 0:mpol1d) | zbs |
real(rprec), dimension(-ntord:ntord, 0:mpol1d) | rbs |
real(rprec), dimension(-ntord:ntord, 0:mpol1d) | rbs |
real(rprec), dimension(-ntord:ntord, 0:mpol1d) | zbc |
real(rprec), dimension(-ntord:ntord, 0:mpol1d) | zbc |
real(rprec) | curtor |
real(rprec) | curtor |
real(rprec) | delt |
real(rprec) | delt |
real(rprec) | tcon0 |
real(rprec) | tcon0 |
real(rprec) | gamma |
real(rprec) | gamma |
real(rprec) | bloat |
real(rprec) | bloat |
real(rprec) | pres_scale |
real(rprec) | pres_scale |
real(rprec) | spres_ped |
real(rprec) | spres_ped |
value of s beyond which pressure profile is flat (pedestal) | |
real(rprec) | phiedge |
real(rprec) | phiedge |
value of real toroidal flux at plasma edge (s=1) | |
real(rprec), dimension(0:20) | am |
real(rprec), dimension(0:20) | am |
array of coefficients in phi-series for mass (NWT/m**2) | |
real(rprec), dimension(0:20) | ai |
real(rprec), dimension(0:20) | ai |
array of coefficients in phi-series for iota (ncurr=0) | |
real(rprec), dimension(0:20) | ac |
real(rprec), dimension(0:20) | ac |
array of coefficients in phi-series for the quantity d(Icurv)/ds = toroidal current density * Vprime, so Icurv(s) = Itor(s) (used for ncurr=1) | |
real(rprec), dimension(1:20) | aphi |
real(rprec), dimension(1:20) | aphi |
character(len=20) | pcurr_type |
character(len=20) | pcurr_type |
character(len=20) | piota_type |
character(len=20) | piota_type |
character(len=20) | pmass_type |
character(len=20) | pmass_type |
real(rprec), dimension(ndatafmax) | am_aux_s |
real(rprec), dimension(ndatafmax) | am_aux_s |
real(rprec), dimension(ndatafmax) | am_aux_f |
real(rprec), dimension(ndatafmax) | am_aux_f |
real(rprec), dimension(ndatafmax) | ai_aux_s |
real(rprec), dimension(ndatafmax) | ai_aux_s |
real(rprec), dimension(ndatafmax) | ai_aux_f |
real(rprec), dimension(ndatafmax) | ai_aux_f |
real(rprec), dimension(ndatafmax) | ac_aux_s |
real(rprec), dimension(ndatafmax) | ac_aux_s |
real(rprec), dimension(ndatafmax) | ac_aux_f |
real(rprec), dimension(ndatafmax) | ac_aux_f |
real(rprec), dimension(0:ntord) | raxis_cc |
real(rprec), dimension(0:ntord) | raxis_cc |
real(rprec), dimension(0:ntord) | raxis_cs |
real(rprec), dimension(0:ntord) | raxis_cs |
real(rprec), dimension(0:ntord) | zaxis_cc |
real(rprec), dimension(0:ntord) | zaxis_cc |
real(rprec), dimension(0:ntord) | zaxis_cs |
real(rprec), dimension(0:ntord) | zaxis_cs |
real(rprec), dimension(nigroup) | extcur |
real(rprec), dimension(nigroup) | extcur |
logical | lfreeb |
logical | lfreeb |
logical | lasym |
logical | lasym |
integer | vac_1_2 |
integer | vac_1_2 |
switch between implementations of NESTOR: vac1 (magnetic scalar potential, both Stellarator and Tokamak) vac2/vac3 (surface current density, Stellarator/Tokamak) Only vac1 is available in educational_VMEC by default. | |
logical | lbsubs |
logical | lbsubs |
character(len=200) | mgrid_file |
character(len=200) | mgrid_file |
character(len=100) | input_extension |
character(len=100) | input_extension |
integer, dimension(num_iter2_to_dump) | iter2_to_dump |
integer, dimension(num_iter2_to_dump) | iter2_to_dump |
values of iter2 for which to dump data | |
logical | dump_add_fluxes = .false. |
logical | dump_add_fluxes = .false. |
individual flags to control debug output loosely related to similarly-named routines (checkpoints along iterations) | |
logical | dump_metric = .false. |
logical | dump_metric = .false. |
logical | dump_volume = .false. |
logical | dump_volume = .false. |
logical | dump_bcontrav = .false. |
logical | dump_bcontrav = .false. |
logical | dump_bcov = .false. |
logical | dump_bcov = .false. |
logical | dump_lambda_forces = .false. |
logical | dump_lambda_forces = .false. |
logical | dump_bcov_full = .false. |
logical | dump_bcov_full = .false. |
logical | dump_precondn = .false. |
logical | dump_precondn = .false. |
logical | dump_forcenorms_tcon = .false. |
logical | dump_forcenorms_tcon = .false. |
logical | dump_lulv_comb = .false. |
logical | dump_lulv_comb = .false. |
logical | dump_calc_fbal = .false. |
logical | dump_calc_fbal = .false. |
logical | dump_evolve = .false. |
logical | dump_evolve = .false. |
logical | dump_fixaray = .false. |
logical | dump_fixaray = .false. |
logical | dump_spectral_constraint = .false. |
logical | dump_spectral_constraint = .false. |
logical | dump_forces = .false. |
logical | dump_forces = .false. |
logical | dump_totzsp_input = .false. |
logical | dump_totzsp_input = .false. |
logical | dump_funct3d_geometry = .false. |
logical | dump_funct3d_geometry = .false. |
logical | dump_constraint_force = .false. |
logical | dump_constraint_force = .false. |
logical | dump_guess_axis = .false. |
logical | dump_guess_axis = .false. |
logical | dump_interp = .false. |
logical | dump_interp = .false. |
logical | dump_jacobian = .false. |
logical | dump_jacobian = .false. |
logical | dump_lamcal = .false. |
logical | dump_lamcal = .false. |
logical | dump_profil1d = .false. |
logical | dump_profil1d = .false. |
logical | dump_profil3d = .false. |
logical | dump_profil3d = .false. |
logical | dump_readin_boundary = .false. |
logical | dump_readin_boundary = .false. |
logical | dump_phys_gc = .false. |
logical | dump_phys_gc = .false. |
logical | dump_fsq = .false. |
logical | dump_fsq = .false. |
logical | dump_scale_m1 = .false. |
logical | dump_scale_m1 = .false. |
logical | dump_scalfor_out = .false. |
logical | dump_scalfor_out = .false. |
logical | dump_fsq1 = .false. |
logical | dump_fsq1 = .false. |
logical | dump_scalfor_r = .false. |
logical | dump_scalfor_r = .false. |
logical | dump_scalfor_z = .false. |
logical | dump_scalfor_z = .false. |
logical | dump_symforce = .false. |
logical | dump_symforce = .false. |
logical | dump_tomnsps = .false. |
logical | dump_tomnsps = .false. |
logical | dump_tomnspa = .false. |
logical | dump_tomnspa = .false. |
logical | dump_multigrid_result = .false. |
logical | dump_multigrid_result = .false. |
logical | dump_rbsq = .false. |
logical | dump_rbsq = .false. |
logical | dump_printout = .false. |
logical | dump_printout = .false. |
logical | dump_bcovar_fileout = .false. |
logical | dump_bcovar_fileout = .false. |
logical | dump_bss = .false. |
logical | dump_bss = .false. |
logical | dump_jxbforce_bsub_lowpass = .false. |
logical | dump_jxbforce_bsub_lowpass = .false. |
logical | dump_jxbout = .false. |
logical | dump_jxbout = .false. |
logical | dump_mercier = .false. |
logical | dump_mercier = .false. |
logical | dump_threed1_firsttable = .false. |
logical | dump_threed1_firsttable = .false. |
logical | dump_threed1_geomag = .false. |
logical | dump_threed1_geomag = .false. |
logical | dump_threed1_volquant = .false. |
logical | dump_threed1_volquant = .false. |
logical | dump_threed1_axis = .false. |
logical | dump_threed1_axis = .false. |
logical | dump_threed1_beta = .false. |
logical | dump_threed1_beta = .false. |
logical | dump_threed1_shafrint = .false. |
logical | dump_threed1_shafrint = .false. |
logical | dump_freeb_data = .false. |
logical | dump_freeb_data = .false. |
logical | dump_vac1n_vacuum = .false. |
logical | dump_vac1n_vacuum = .false. |
logical | dump_vac1n_precal = .false. |
logical | dump_vac1n_precal = .false. |
logical | dump_vac1n_surface = .false. |
logical | dump_vac1n_surface = .false. |
logical | dump_vac1n_bextern = .false. |
logical | dump_vac1n_bextern = .false. |
logical | dump_vac1n_analyt = .false. |
logical | dump_vac1n_analyt = .false. |
logical | dump_vac1n_greenf = .false. |
logical | dump_vac1n_greenf = .false. |
logical | dump_vac1n_fourp = .false. |
logical | dump_vac1n_fourp = .false. |
logical | dump_vac1n_fouri = .false. |
logical | dump_vac1n_fouri = .false. |
logical | dump_vac1n_solver = .false. |
logical | dump_vac1n_solver = .false. |
logical | dump_vac1n_bsqvac = .false. |
logical | dump_vac1n_bsqvac = .false. |
logical | dump_vac2_vacuum = .false. |
logical | dump_vac2_vacuum = .false. |
logical | dump_vac2_precal = .false. |
logical | dump_vac2_precal = .false. |
logical | dump_vac2_surface = .false. |
logical | dump_vac2_surface = .false. |
logical | dump_vac2_bexmat = .false. |
logical | dump_vac2_bexmat = .false. |
logical | dump_vac2_matrix = .false. |
logical | dump_vac2_matrix = .false. |
logical | dump_vac2_foumat_unreg = .false. |
logical | dump_vac2_foumat_unreg = .false. |
logical | dump_vac2_analin = .false. |
logical | dump_vac2_analin = .false. |
logical | dump_vac2_analyt = .false. |
logical | dump_vac2_analyt = .false. |
logical | dump_vac2_foumat = .false. |
logical | dump_vac2_foumat = .false. |
logical | dump_vac2_linsys = .false. |
logical | dump_vac2_linsys = .false. |
logical | dump_vac2_linslv = .false. |
logical | dump_vac2_linslv = .false. |
logical | dump_vac2_bsqvac = .false. |
logical | dump_vac2_bsqvac = .false. |
integer, dimension(num_iter2_to_dump) vmec_input::iter2_to_dump | +integer, dimension(num_iter2_to_dump) vmec_input::iter2_to_dump |
Functions/Subroutines | |
subroutine | jacobian |
subroutine | jacobian |
Evaulate the Jacobian of the transform from flux- to cylindrical coordinates. | |
Functions | |
add_subdirectory (data) list(APPEND vmec_sources $ | |
add_subdirectory (data) list(APPEND vmec_sources $ | |
Functions/Subroutines | |
logical function | open_dbg_context (context_name, repetition, id) |
logical function | open_dbg_context (context_name, repetition, id) |
check if any output is desired for the current iteration check if the given context should be openend based on input file flags check if | |
Variables | |
logical | skip_dbgout_collison = .false. |
logical | skip_dbgout_collison = .false. |
Functions/Subroutines | |
subroutine | bextrema (modb, bmin, bmax, nzeta, ntheta) |
subroutine | bextrema (modb, bmin, bmax, nzeta, ntheta) |
Computes minimum and maximum \(|\mathbf{B}|\) along \(\zeta\) between two angle lines ( \(\theta = 0, \pi\)). | |
Functions/Subroutines | |
subroutine | free_mem_ns |
subroutine | free_mem_ns |
Free memory depending on the number of flux surfaces ns . | |
Variables | |
real(rprec), dimension(:), allocatable | gc |
real(rprec), dimension(:), allocatable | gc |
stacked array of R, Z, Lambda Spectral force coefficients (see above for stack order) | |
real(rprec), dimension(:), allocatable | gc_con |
real(rprec), dimension(:), allocatable | gc_con |
real(rprec), dimension(:), allocatable | gc_mhd |
real(rprec), dimension(:), allocatable | gc_mhd |
real(rprec), dimension(:), allocatable, target | xc |
real(rprec), dimension(:), allocatable, target | xc |
stacked array of scaled R, Z, Lambda Fourier coefficients (see above for stack order) | |
real(rprec), dimension(:), allocatable | xcdot |
real(rprec), dimension(:), allocatable | xcdot |
"velocity": change of Fourier coefficients per time step | |
real(rprec), dimension(:), allocatable | xsave |
real(rprec), dimension(:), allocatable | xsave |
real(rprec), dimension(:), allocatable | xstore |
real(rprec), dimension(:), allocatable | xstore |
backup copy of last-known-good xc | |
real(rprec), dimension(:), allocatable | scalxc |
real(rprec), dimension(:), allocatable | scalxc |
Functions/Subroutines | |
subroutine | fext_fft (bout, bs_s, bs_a) |
subroutine | fext_fft (bout, bs_s, bs_a) |
Extends \(B_s\) from ntheta2 interval to full ntheta3 interval in angle \(\theta\). | |
Functions/Subroutines | |
subroutine | initialize_radial (nsval, ns_old, delt0) |
subroutine | initialize_radial (nsval, ns_old, delt0) |
Allocates memory for radial arrays and initializes radial profiles. | |
Functions/Subroutines | |
subroutine | belicu (torcur, bx, by, bz, cos1, sin1, rp, zp) |
subroutine | belicu (torcur, bx, by, bz, cos1, sin1, rp, zp) |
Magnetic field due to net toroidal current modeled by a filament along the magnetic axis. | |
Functions/Subroutines | |
subroutine | calc_fbal (bsubu, bsubv) |
subroutine | calc_fbal (bsubu, bsubv) |
Compute flux-surface averaged radial force balance \(\nabla p\, - <\mathbf{j} \times \mathbf{B}>\). | |
Functions/Subroutines | |
subroutine | symrzl (r1s, rus, rvs, z1s, zus, zvs, lus, lvs, rcons, zcons, r1a, rua, rva, z1a, zua, zva, lua, lva, rcona, zcona) |
subroutine | symrzl (r1s, rus, rvs, z1s, zus, zvs, lus, lvs, rcons, zcons, r1a, rua, rva, z1a, zua, zva, lua, lva, rcona, zcona) |
Symmetrize \(R\), \(Z\) and \(\lambda\). | |
Functions/Subroutines | |
subroutine | fsym_fft (bs, bu, bv, bs_s, bu_s, bv_s, bs_a, bu_a, bv_a) |
subroutine | fsym_fft (bs, bu, bv, bs_s, bu_s, bv_s, bs_a, bu_a, bv_a) |
Contract bs,bu,bv from full nu interval to half-u interval so cos, sin integrals can be performed on half-u interval. | |
Functions/Subroutines | |
subroutine | analyt (grpmn, bvec, ivacskip, lasym, m_map, n_map, grpmn_m_map, grpmn_n_map) |
subroutine | analyt (grpmn, bvec, ivacskip, lasym, m_map, n_map, grpmn_m_map, grpmn_n_map) |
Compute the analytical-and-numerical 4D Fourier integrals over the equivalently-singular functions. | |
Functions | |
add_subdirectory (data) add_subdirectory(ezcdf) add_subdirectory(NESTOR) list(APPEND vmec_sources $ | |
add_subdirectory (data) add_subdirectory(ezcdf) add_subdirectory(NESTOR) list(APPEND vmec_sources $ | |
Functions/Subroutines | |
subroutine | free_mem_funct3d |
subroutine | free_mem_funct3d |
Free memory required by funct3d() | |
Functions/Subroutines | |
real(rprec) function | pcurr (xx) |
real(rprec) function | pcurr (xx) |
real(rprec) function | piota (x) |
real(rprec) function | piota (x) |
real(rprec) function | pmass (xx) |
real(rprec) function | pmass (xx) |
Variables | |
real(rprec) | volavgb |
real(rprec) | volavgb |
real(rprec) | ionlarmor |
real(rprec) | ionlarmor |
real(rprec) | aminor_p |
real(rprec) | aminor_p |
real(rprec) | rmajor_p |
real(rprec) | rmajor_p |
real(rprec) | betatot |
real(rprec) | betatot |
real(rprec) | betapol |
real(rprec) | betapol |
real(rprec) | betator |
real(rprec) | betator |
real(rprec) | betaxis |
real(rprec) | betaxis |
real(rprec) | b0 |
real(rprec) | b0 |
real(rprec) | volume_p |
real(rprec) | volume_p |
real(rprec) | cross_area_p |
real(rprec) | cross_area_p |
real(rprec) | surf_area_p |
real(rprec) | surf_area_p |
real(rprec) | circum_p |
real(rprec) | circum_p |
real(rprec) | kappa_p |
real(rprec) | kappa_p |
real(rprec) | rmax_surf |
real(rprec) | rmax_surf |
real(rprec) | rmin_surf |
real(rprec) | rmin_surf |
real(rprec) | zmax_surf |
real(rprec) | zmax_surf |
Functions/Subroutines | |
subroutine | bextern (plascur, wint) |
subroutine | bextern (plascur, wint) |
Compute the total magnetic field due to external coils and the net toroidal plasma current. | |
Functions/Subroutines | |
subroutine | symoutput (bsq, gsqrt, bsubu, bsubv, bsupu, bsupv, bsubs, bsqa, gsqrta, bsubua, bsubva, bsupua, bsupva, bsubsa) |
subroutine | symoutput (bsq, gsqrt, bsubu, bsubv, bsupu, bsupv, bsubs, bsqa, gsqrta, bsubua, bsubva, bsupua, bsupva, bsubsa) |
Symmetrize some quantities so that they can be output (?) | |
Functions/Subroutines | |
subroutine | tridslv (a, d, b, c, jmin, jmax, mnd1, ns, nrhs) |
subroutine | tridslv (a, d, b, c, jmin, jmax, mnd1, ns, nrhs) |
Solve a tridiagonal system of equations. | |
Functions/Subroutines | |
subroutine | residue (gcr, gcz, gcl, fsqrz, old_fsqz) |
subroutine | residue (gcr, gcz, gcl, fsqrz, old_fsqz) |
Compute invariant residuals. | |
subroutine | constrain_m1 (gcr, gcz, old_fsqz) |
subroutine | constrain_m1 (gcr, gcz, old_fsqz) |
Compute internal gr , gz required for \(m=1\) constraint. | |
subroutine | scale_m1 (gcr, gcz) |
subroutine | scale_m1 (gcr, gcz) |
Compute internal gr , gz required for \(m=1\) constraint. | |
Functions/Subroutines | |
program | xvmec |
program | xvmec |
Main program of VMEC. | |
subroutine | vmec |
subroutine | vmec |
Main driver for VMEC. | |
Functions/Subroutines | |
subroutine | convert (rmnc, zmns, lmns, rmns, zmnc, lmnc, rzl_array, js) |
subroutine | convert (rmnc, zmns, lmns, rmns, zmnc, lmnc, rzl_array, js) |
Convert internal mode representation to standard form for output (coefficients of cos(mu-nv), sin(mu-nv) without internal mscale , nscale norms). | |
@@ -454,25 +456,17 @@ |
( | -character(len=*), intent(in) | -vac_file, | +character(len=*), intent(in) | vac_file, | |
- | integer, intent(out) | -ier_flag, | +integer, intent(out) | ier_flag, | ||
- | integer, intent(out) | -ivac | -||||
- | ) | -+ | integer, intent(out) | ivac ) |
Reading of wout
VMEC output file.
-More...
Data Types |
Functions/Subroutines | |
subroutine | readw_and_open (file_or_extension, ierr, iopen) |
subroutine | readw_and_open (file_or_extension, ierr, iopen) |
subroutine | compute_currents (ierror) |
subroutine | compute_currents (ierror) |
subroutine | read_wout_deallocate |
subroutine | read_wout_deallocate |
subroutine | tosuvspace (s_in, u_in, v_in, gsqrt, bsupu, bsupv, jsupu, jsupv, lam) |
subroutine | tosuvspace (s_in, u_in, v_in, gsqrt, bsupu, bsupv, jsupu, jsupv, lam) |
subroutine | loadrzl |
subroutine | loadrzl |
Variables | |
character(len= *), parameter | vn_version = 'version_' |
character(len= *), parameter | vn_version = 'version_' |
character(len= *), parameter | vn_extension = 'input_extension' |
character(len= *), parameter | vn_extension = 'input_extension' |
character(len= *), parameter | vn_mgrid = 'mgrid_file' |
character(len= *), parameter | vn_mgrid = 'mgrid_file' |
character(len= *), parameter | vn_magen = 'wb' |
character(len= *), parameter | vn_magen = 'wb' |
character(len= *), parameter | vn_therm = 'wp' |
character(len= *), parameter | vn_therm = 'wp' |
character(len= *), parameter | vn_gam = 'gamma' |
character(len= *), parameter | vn_gam = 'gamma' |
character(len= *), parameter | vn_maxr = 'rmax_surf' |
character(len= *), parameter | vn_maxr = 'rmax_surf' |
character(len= *), parameter | vn_minr = 'rmin_surf' |
character(len= *), parameter | vn_minr = 'rmin_surf' |
character(len= *), parameter | vn_maxz = 'zmax_surf' |
character(len= *), parameter | vn_maxz = 'zmax_surf' |
character(len= *), parameter | vn_fp = 'nfp' |
character(len= *), parameter | vn_fp = 'nfp' |
character(len= *), parameter | vn_radnod = 'ns' |
character(len= *), parameter | vn_radnod = 'ns' |
character(len= *), parameter | vn_polmod = 'mpol' |
character(len= *), parameter | vn_polmod = 'mpol' |
character(len= *), parameter | vn_tormod = 'ntor' |
character(len= *), parameter | vn_tormod = 'ntor' |
character(len= *), parameter | vn_maxmod = 'mnmax' |
character(len= *), parameter | vn_maxmod = 'mnmax' |
character(len= *), parameter | vn_maxit = 'niter' |
character(len= *), parameter | vn_maxit = 'niter' |
character(len= *), parameter | vn_asym = 'lasym' |
character(len= *), parameter | vn_asym = 'lasym' |
character(len= *), parameter | vn_free = 'lfreeb' |
character(len= *), parameter | vn_free = 'lfreeb' |
character(len= *), parameter | vn_error = 'ier_flag' |
character(len= *), parameter | vn_error = 'ier_flag' |
character(len= *), parameter | vn_aspect = 'aspect' |
character(len= *), parameter | vn_aspect = 'aspect' |
character(len= *), parameter | vn_maxmod_nyq = 'mnmax_nyq' |
character(len= *), parameter | vn_maxmod_nyq = 'mnmax_nyq' |
character(len= *), parameter | vn_beta = 'betatotal' |
character(len= *), parameter | vn_beta = 'betatotal' |
character(len= *), parameter | vn_pbeta = 'betapol' |
character(len= *), parameter | vn_pbeta = 'betapol' |
character(len= *), parameter | vn_tbeta = 'betator' |
character(len= *), parameter | vn_tbeta = 'betator' |
character(len= *), parameter | vn_abeta = 'betaxis' |
character(len= *), parameter | vn_abeta = 'betaxis' |
character(len= *), parameter | vn_b0 = 'b0' |
character(len= *), parameter | vn_b0 = 'b0' |
character(len= *), parameter | vn_rbt0 = 'rbtor0' |
character(len= *), parameter | vn_rbt0 = 'rbtor0' |
character(len= *), parameter | vn_rbt1 = 'rbtor' |
character(len= *), parameter | vn_rbt1 = 'rbtor' |
character(len= *), parameter | vn_sgs = 'signgs' |
character(len= *), parameter | vn_sgs = 'signgs' |
character(len= *), parameter | vn_lar = 'IonLarmor' |
character(len= *), parameter | vn_lar = 'IonLarmor' |
character(len= *), parameter | vn_modb = 'volavgB' |
character(len= *), parameter | vn_modb = 'volavgB' |
character(len= *), parameter | vn_ctor = 'ctor' |
character(len= *), parameter | vn_ctor = 'ctor' |
character(len= *), parameter | vn_amin = 'Aminor_p' |
character(len= *), parameter | vn_amin = 'Aminor_p' |
character(len= *), parameter | vn_rmaj = 'Rmajor_p' |
character(len= *), parameter | vn_rmaj = 'Rmajor_p' |
character(len= *), parameter | vn_vol = 'volume_p' |
character(len= *), parameter | vn_vol = 'volume_p' |
character(len= *), parameter | vn_am = 'am' |
character(len= *), parameter | vn_am = 'am' |
character(len= *), parameter | vn_ai = 'ai' |
character(len= *), parameter | vn_ai = 'ai' |
character(len= *), parameter | vn_ac = 'ac' |
character(len= *), parameter | vn_ac = 'ac' |
character(len= *), parameter | vn_ah = 'hot particle fraction' |
character(len= *), parameter | vn_ah = 'hot particle fraction' |
character(len= *), parameter | vn_atuname = 'T-perp/T-par' |
character(len= *), parameter | vn_atuname = 'T-perp/T-par' |
character(len= *), parameter | vn_pmass_type = 'pmass_type' |
character(len= *), parameter | vn_pmass_type = 'pmass_type' |
character(len= *), parameter | vn_piota_type = 'piota_type' |
character(len= *), parameter | vn_piota_type = 'piota_type' |
character(len= *), parameter | vn_pcurr_type = 'pcurr_type' |
character(len= *), parameter | vn_pcurr_type = 'pcurr_type' |
character(len= *), parameter | vn_am_aux_s = 'am_aux_s' |
character(len= *), parameter | vn_am_aux_s = 'am_aux_s' |
character(len= *), parameter | vn_am_aux_f = 'am_aux_f' |
character(len= *), parameter | vn_am_aux_f = 'am_aux_f' |
character(len= *), parameter | vn_ai_aux_s = 'ai_aux_s' |
character(len= *), parameter | vn_ai_aux_s = 'ai_aux_s' |
character(len= *), parameter | vn_ai_aux_f = 'ai_aux_f' |
character(len= *), parameter | vn_ai_aux_f = 'ai_aux_f' |
character(len= *), parameter | vn_ac_aux_s = 'ac_aux_s' |
character(len= *), parameter | vn_ac_aux_s = 'ac_aux_s' |
character(len= *), parameter | vn_ac_aux_f = 'ac_aux_f' |
character(len= *), parameter | vn_ac_aux_f = 'ac_aux_f' |
character(len= *), parameter | vn_mse = 'imse' |
character(len= *), parameter | vn_mse = 'imse' |
character(len= *), parameter | vn_thom = 'itse' |
character(len= *), parameter | vn_thom = 'itse' |
character(len= *), parameter | vn_pmod = 'xm' |
character(len= *), parameter | vn_pmod = 'xm' |
character(len= *), parameter | vn_tmod = 'xn' |
character(len= *), parameter | vn_tmod = 'xn' |
character(len= *), parameter | vn_pmod_nyq = 'xm_nyq' |
character(len= *), parameter | vn_pmod_nyq = 'xm_nyq' |
character(len= *), parameter | vn_tmod_nyq = 'xn_nyq' |
character(len= *), parameter | vn_tmod_nyq = 'xn_nyq' |
character(len= *), parameter | vn_racc = 'raxis_cc' |
character(len= *), parameter | vn_racc = 'raxis_cc' |
character(len= *), parameter | vn_zacs = 'zaxis_cs' |
character(len= *), parameter | vn_zacs = 'zaxis_cs' |
character(len= *), parameter | vn_racs = 'raxis_cs' |
character(len= *), parameter | vn_racs = 'raxis_cs' |
character(len= *), parameter | vn_zacc = 'zaxis_cc' |
character(len= *), parameter | vn_zacc = 'zaxis_cc' |
character(len= *), parameter | vn_iotaf = 'iotaf' |
character(len= *), parameter | vn_iotaf = 'iotaf' |
character(len= *), parameter | vn_qfact ='q-factor' |
character(len= *), parameter | vn_qfact ='q-factor' |
character(len= *), parameter | vn_chi ='chi' |
character(len= *), parameter | vn_chi ='chi' |
character(len= *), parameter | vn_chipf ='chipf' |
character(len= *), parameter | vn_chipf ='chipf' |
character(len= *), parameter | vn_presf = 'presf' |
character(len= *), parameter | vn_presf = 'presf' |
character(len= *), parameter | vn_phi = 'phi' |
character(len= *), parameter | vn_phi = 'phi' |
character(len= *), parameter | vn_phipf = 'phipf' |
character(len= *), parameter | vn_phipf = 'phipf' |
character(len= *), parameter | vn_jcuru = 'jcuru' |
character(len= *), parameter | vn_jcuru = 'jcuru' |
character(len= *), parameter | vn_jcurv = 'jcurv' |
character(len= *), parameter | vn_jcurv = 'jcurv' |
character(len= *), parameter | vn_iotah = 'iotas' |
character(len= *), parameter | vn_iotah = 'iotas' |
character(len= *), parameter | vn_mass = 'mass' |
character(len= *), parameter | vn_mass = 'mass' |
character(len= *), parameter | vn_presh = 'pres' |
character(len= *), parameter | vn_presh = 'pres' |
character(len= *), parameter | vn_betah = 'beta_vol' |
character(len= *), parameter | vn_betah = 'beta_vol' |
character(len= *), parameter | vn_buco = 'buco' |
character(len= *), parameter | vn_buco = 'buco' |
character(len= *), parameter | vn_bvco = 'bvco' |
character(len= *), parameter | vn_bvco = 'bvco' |
character(len= *), parameter | vn_vp = 'vp' |
character(len= *), parameter | vn_vp = 'vp' |
character(len= *), parameter | vn_specw = 'specw' |
character(len= *), parameter | vn_specw = 'specw' |
character(len= *), parameter | vn_phip = 'phips' |
character(len= *), parameter | vn_phip = 'phips' |
character(len= *), parameter | vn_jdotb = 'jdotb' |
character(len= *), parameter | vn_jdotb = 'jdotb' |
character(len= *), parameter | vn_overr = 'over_r' |
character(len= *), parameter | vn_overr = 'over_r' |
character(len= *), parameter | vn_bgrv = 'bdotgradv' |
character(len= *), parameter | vn_bgrv = 'bdotgradv' |
character(len= *), parameter | vn_merc = 'DMerc' |
character(len= *), parameter | vn_merc = 'DMerc' |
character(len= *), parameter | vn_mshear = 'DShear' |
character(len= *), parameter | vn_mshear = 'DShear' |
character(len= *), parameter | vn_mwell = 'DWell' |
character(len= *), parameter | vn_mwell = 'DWell' |
character(len= *), parameter | vn_mcurr = 'DCurr' |
character(len= *), parameter | vn_mcurr = 'DCurr' |
character(len= *), parameter | vn_mgeo = 'DGeod' |
character(len= *), parameter | vn_mgeo = 'DGeod' |
character(len= *), parameter | vn_equif = 'equif' |
character(len= *), parameter | vn_equif = 'equif' |
character(len= *), parameter | vn_fsq = 'fsqt' |
character(len= *), parameter | vn_fsq = 'fsqt' |
character(len= *), parameter | vn_wdot = 'wdot' |
character(len= *), parameter | vn_wdot = 'wdot' |
character(len= *), parameter | vn_ftolv = 'ftolv' |
character(len= *), parameter | vn_ftolv = 'ftolv' |
character(len= *), parameter | vn_fsql = 'fsql' |
character(len= *), parameter | vn_fsql = 'fsql' |
character(len= *), parameter | vn_fsqr = 'fsqr' |
character(len= *), parameter | vn_fsqr = 'fsqr' |
character(len= *), parameter | vn_fsqz = 'fsqz' |
character(len= *), parameter | vn_fsqz = 'fsqz' |
character(len= *), parameter | vn_extcur = 'extcur' |
character(len= *), parameter | vn_extcur = 'extcur' |
character(len= *), parameter | vn_curlab = 'curlabel' |
character(len= *), parameter | vn_curlab = 'curlabel' |
character(len= *), parameter | vn_rmnc = 'rmnc' |
character(len= *), parameter | vn_rmnc = 'rmnc' |
character(len= *), parameter | vn_zmns = 'zmns' |
character(len= *), parameter | vn_zmns = 'zmns' |
character(len= *), parameter | vn_lmns = 'lmns' |
character(len= *), parameter | vn_lmns = 'lmns' |
character(len= *), parameter | vn_gmnc = 'gmnc' |
character(len= *), parameter | vn_gmnc = 'gmnc' |
character(len= *), parameter | vn_bmnc = 'bmnc' |
character(len= *), parameter | vn_bmnc = 'bmnc' |
character(len= *), parameter | vn_bsubumnc = 'bsubumnc' |
character(len= *), parameter | vn_bsubumnc = 'bsubumnc' |
character(len= *), parameter | vn_bsubvmnc = 'bsubvmnc' |
character(len= *), parameter | vn_bsubvmnc = 'bsubvmnc' |
character(len= *), parameter | vn_bsubsmns = 'bsubsmns' |
character(len= *), parameter | vn_bsubsmns = 'bsubsmns' |
character(len= *), parameter | vn_bsupumnc = 'bsupumnc' |
character(len= *), parameter | vn_bsupumnc = 'bsupumnc' |
character(len= *), parameter | vn_bsupvmnc = 'bsupvmnc' |
character(len= *), parameter | vn_bsupvmnc = 'bsupvmnc' |
character(len= *), parameter | vn_rmns = 'rmns' |
character(len= *), parameter | vn_rmns = 'rmns' |
character(len= *), parameter | vn_zmnc = 'zmnc' |
character(len= *), parameter | vn_zmnc = 'zmnc' |
character(len= *), parameter | vn_lmnc = 'lmnc' |
character(len= *), parameter | vn_lmnc = 'lmnc' |
character(len= *), parameter | vn_gmns = 'gmns' |
character(len= *), parameter | vn_gmns = 'gmns' |
character(len= *), parameter | vn_bmns = 'bmns' |
character(len= *), parameter | vn_bmns = 'bmns' |
character(len= *), parameter | vn_bsubumns = 'bsubumns' |
character(len= *), parameter | vn_bsubumns = 'bsubumns' |
character(len= *), parameter | vn_bsubvmns = 'bsubvmns' |
character(len= *), parameter | vn_bsubvmns = 'bsubvmns' |
character(len= *), parameter | vn_bsubsmnc = 'bsubsmnc' |
character(len= *), parameter | vn_bsubsmnc = 'bsubsmnc' |
character(len= *), parameter | vn_bsupumns = 'bsupumns' |
character(len= *), parameter | vn_bsupumns = 'bsupumns' |
character(len= *), parameter | vn_bsupvmns = 'bsupvmns' |
character(len= *), parameter | vn_bsupvmns = 'bsupvmns' |
character(len= *), parameter | vn_bsubumnc_sur = 'bsubumnc_sur' |
character(len= *), parameter | vn_bsubumnc_sur = 'bsubumnc_sur' |
character(len= *), parameter | vn_bsubvmnc_sur = 'bsubvmnc_sur' |
character(len= *), parameter | vn_bsubvmnc_sur = 'bsubvmnc_sur' |
character(len= *), parameter | vn_bsupumnc_sur = 'bsupumnc_sur' |
character(len= *), parameter | vn_bsupumnc_sur = 'bsupumnc_sur' |
character(len= *), parameter | vn_bsupvmnc_sur = 'bsupvmnc_sur' |
character(len= *), parameter | vn_bsupvmnc_sur = 'bsupvmnc_sur' |
character(len= *), parameter | vn_bsubumns_sur = 'bsubumns_sur' |
character(len= *), parameter | vn_bsubumns_sur = 'bsubumns_sur' |
character(len= *), parameter | vn_bsubvmns_sur = 'bsubvmns_sur' |
character(len= *), parameter | vn_bsubvmns_sur = 'bsubvmns_sur' |
character(len= *), parameter | vn_bsupumns_sur = 'bsupumns_sur' |
character(len= *), parameter | vn_bsupumns_sur = 'bsupumns_sur' |
character(len= *), parameter | vn_bsupvmns_sur = 'bsupvmns_sur' |
character(len= *), parameter | vn_bsupvmns_sur = 'bsupvmns_sur' |
character(len= *), parameter | vn_rbc = 'rbc' |
character(len= *), parameter | vn_rbc = 'rbc' |
character(len= *), parameter | vn_zbs = 'zbs' |
character(len= *), parameter | vn_zbs = 'zbs' |
character(len= *), parameter | vn_rbs = 'rbs' |
character(len= *), parameter | vn_rbs = 'rbs' |
character(len= *), parameter | vn_zbc = 'zbc' |
character(len= *), parameter | vn_zbc = 'zbc' |
character(len= *), parameter | vn_potvac = 'potvac' |
character(len= *), parameter | vn_potvac = 'potvac' |
character(len= *), parameter | ln_version = 'VMEC Version' |
character(len= *), parameter | ln_version = 'VMEC Version' |
character(len= *), parameter | ln_extension = 'Input file extension' |
character(len= *), parameter | ln_extension = 'Input file extension' |
character(len= *), parameter | ln_mgrid = 'MGRID file' |
character(len= *), parameter | ln_mgrid = 'MGRID file' |
character(len= *), parameter | ln_magen = 'Magnetic Energy' |
character(len= *), parameter | ln_magen = 'Magnetic Energy' |
character(len= *), parameter | ln_therm = 'Thermal Energy' |
character(len= *), parameter | ln_therm = 'Thermal Energy' |
character(len= *), parameter | ln_gam = 'Gamma' |
character(len= *), parameter | ln_gam = 'Gamma' |
character(len= *), parameter | ln_maxr = 'Maximum R' |
character(len= *), parameter | ln_maxr = 'Maximum R' |
character(len= *), parameter | ln_minr = 'Minimum R' |
character(len= *), parameter | ln_minr = 'Minimum R' |
character(len= *), parameter | ln_maxz = 'Maximum Z' |
character(len= *), parameter | ln_maxz = 'Maximum Z' |
character(len= *), parameter | ln_fp = 'Field Periods' |
character(len= *), parameter | ln_fp = 'Field Periods' |
character(len= *), parameter | ln_radnod = 'Radial nodes' |
character(len= *), parameter | ln_radnod = 'Radial nodes' |
character(len= *), parameter | ln_polmod = 'Poloidal modes' |
character(len= *), parameter | ln_polmod = 'Poloidal modes' |
character(len= *), parameter | ln_tormod = 'Toroidal modes' |
character(len= *), parameter | ln_tormod = 'Toroidal modes' |
character(len= *), parameter | ln_maxmod = 'Fourier modes' |
character(len= *), parameter | ln_maxmod = 'Fourier modes' |
character(len= *), parameter | ln_maxmod_nyq = 'Fourier modes (Nyquist)' |
character(len= *), parameter | ln_maxmod_nyq = 'Fourier modes (Nyquist)' |
character(len= *), parameter | ln_maxit = 'Max iterations' |
character(len= *), parameter | ln_maxit = 'Max iterations' |
character(len= *), parameter | ln_asym = 'Asymmetry' |
character(len= *), parameter | ln_asym = 'Asymmetry' |
character(len= *), parameter | ln_recon = 'Reconstruction' |
character(len= *), parameter | ln_recon = 'Reconstruction' |
character(len= *), parameter | ln_free = 'Free boundary' |
character(len= *), parameter | ln_free = 'Free boundary' |
character(len= *), parameter | ln_error = 'Error flag' |
character(len= *), parameter | ln_error = 'Error flag' |
character(len= *), parameter | ln_aspect = 'Aspect ratio' |
character(len= *), parameter | ln_aspect = 'Aspect ratio' |
character(len= *), parameter | ln_beta = 'Total beta' |
character(len= *), parameter | ln_beta = 'Total beta' |
character(len= *), parameter | ln_pbeta = 'Poloidal beta' |
character(len= *), parameter | ln_pbeta = 'Poloidal beta' |
character(len= *), parameter | ln_tbeta = 'Toroidal beta' |
character(len= *), parameter | ln_tbeta = 'Toroidal beta' |
character(len= *), parameter | ln_abeta = 'Beta axis' |
character(len= *), parameter | ln_abeta = 'Beta axis' |
character(len= *), parameter | ln_b0 = 'RB-t over R axis' |
character(len= *), parameter | ln_b0 = 'RB-t over R axis' |
character(len= *), parameter | ln_rbt0 = 'RB-t axis' |
character(len= *), parameter | ln_rbt0 = 'RB-t axis' |
character(len= *), parameter | ln_rbt1 = 'RB-t edge' |
character(len= *), parameter | ln_rbt1 = 'RB-t edge' |
character(len= *), parameter | ln_sgs = 'Sign jacobian' |
character(len= *), parameter | ln_sgs = 'Sign jacobian' |
character(len= *), parameter | ln_lar = 'Ion Larmor radius' |
character(len= *), parameter | ln_lar = 'Ion Larmor radius' |
character(len= *), parameter | ln_modb = 'avg mod B' |
character(len= *), parameter | ln_modb = 'avg mod B' |
character(len= *), parameter | ln_ctor = 'Toroidal current' |
character(len= *), parameter | ln_ctor = 'Toroidal current' |
character(len= *), parameter | ln_amin = 'minor radius' |
character(len= *), parameter | ln_amin = 'minor radius' |
character(len= *), parameter | ln_rmaj = 'major radius' |
character(len= *), parameter | ln_rmaj = 'major radius' |
character(len= *), parameter | ln_vol = 'Plasma volume' |
character(len= *), parameter | ln_vol = 'Plasma volume' |
character(len= *), parameter | ln_mse = 'Number of MSE points' |
character(len= *), parameter | ln_mse = 'Number of MSE points' |
character(len= *), parameter | ln_thom = 'Number of Thompson scattering points' |
character(len= *), parameter | ln_thom = 'Number of Thompson scattering points' |
character(len= *), parameter | ln_am = 'Specification parameters for mass(s)' |
character(len= *), parameter | ln_am = 'Specification parameters for mass(s)' |
character(len= *), parameter | ln_ac = 'Specification parameters for <J>(s)' |
character(len= *), parameter | ln_ac = 'Specification parameters for <J>(s)' |
character(len= *), parameter | ln_ai = 'Specification parameters for iota(s)' |
character(len= *), parameter | ln_ai = 'Specification parameters for iota(s)' |
character(len= *), parameter | ln_pmass_type = 'Profile type specifier for mass(s)' |
character(len= *), parameter | ln_pmass_type = 'Profile type specifier for mass(s)' |
character(len= *), parameter | ln_pcurr_type = 'Profile type specifier for <J>(s)' |
character(len= *), parameter | ln_pcurr_type = 'Profile type specifier for <J>(s)' |
character(len= *), parameter | ln_piota_type = 'Profile type specifier for iota(s)' |
character(len= *), parameter | ln_piota_type = 'Profile type specifier for iota(s)' |
character(len= *), parameter | ln_am_aux_s = 'Auxiliary-s parameters for mass(s)' |
character(len= *), parameter | ln_am_aux_s = 'Auxiliary-s parameters for mass(s)' |
character(len= *), parameter | ln_am_aux_f = 'Auxiliary-f parameters for mass(s)' |
character(len= *), parameter | ln_am_aux_f = 'Auxiliary-f parameters for mass(s)' |
character(len= *), parameter | ln_ac_aux_s = 'Auxiliary-s parameters for <J>(s)' |
character(len= *), parameter | ln_ac_aux_s = 'Auxiliary-s parameters for <J>(s)' |
character(len= *), parameter | ln_ac_aux_f = 'Auxiliary-f parameters for <J>(s)' |
character(len= *), parameter | ln_ac_aux_f = 'Auxiliary-f parameters for <J>(s)' |
character(len= *), parameter | ln_ai_aux_s = 'Auxiliary-s parameters for iota(s)' |
character(len= *), parameter | ln_ai_aux_s = 'Auxiliary-s parameters for iota(s)' |
character(len= *), parameter | ln_ai_aux_f = 'Auxiliary-f parameters for iota(s)' |
character(len= *), parameter | ln_ai_aux_f = 'Auxiliary-f parameters for iota(s)' |
character(len= *), parameter | ln_pmod = 'Poloidal mode numbers' |
character(len= *), parameter | ln_pmod = 'Poloidal mode numbers' |
character(len= *), parameter | ln_tmod = 'Toroidal mode numbers' |
character(len= *), parameter | ln_tmod = 'Toroidal mode numbers' |
character(len= *), parameter | ln_pmod_nyq = 'Poloidal mode numbers (Nyquist)' |
character(len= *), parameter | ln_pmod_nyq = 'Poloidal mode numbers (Nyquist)' |
character(len= *), parameter | ln_tmod_nyq = 'Toroidal mode numbers (Nyquist)' |
character(len= *), parameter | ln_tmod_nyq = 'Toroidal mode numbers (Nyquist)' |
character(len= *), parameter | ln_racc = 'raxis (cosnv)' |
character(len= *), parameter | ln_racc = 'raxis (cosnv)' |
character(len= *), parameter | ln_racs = 'raxis (sinnv)' |
character(len= *), parameter | ln_racs = 'raxis (sinnv)' |
character(len= *), parameter | ln_zacs = 'zaxis (sinnv)' |
character(len= *), parameter | ln_zacs = 'zaxis (sinnv)' |
character(len= *), parameter | ln_zacc = 'zaxis (cosnv)' |
character(len= *), parameter | ln_zacc = 'zaxis (cosnv)' |
character(len= *), parameter | ln_iotaf = 'iota on full mesh' |
character(len= *), parameter | ln_iotaf = 'iota on full mesh' |
character(len= *), parameter | ln_qfact = 'q-factor on full mesh' |
character(len= *), parameter | ln_qfact = 'q-factor on full mesh' |
character(len= *), parameter | ln_presf = 'pressure on full mesh' |
character(len= *), parameter | ln_presf = 'pressure on full mesh' |
character(len= *), parameter | ln_phi = 'Toroidal flux on full mesh' |
character(len= *), parameter | ln_phi = 'Toroidal flux on full mesh' |
character(len= *), parameter | ln_phipf = 'd(phi)/ds: Toroidal flux deriv on full mesh' |
character(len= *), parameter | ln_phipf = 'd(phi)/ds: Toroidal flux deriv on full mesh' |
character(len= *), parameter | ln_chi = 'Poloidal flux on full mesh' |
character(len= *), parameter | ln_chi = 'Poloidal flux on full mesh' |
character(len= *), parameter | ln_chipf = 'd(chi)/ds: Poroidal flux deriv on full mesh' |
character(len= *), parameter | ln_chipf = 'd(chi)/ds: Poroidal flux deriv on full mesh' |
character(len= *), parameter | ln_jcuru = 'j dot gradu full' |
character(len= *), parameter | ln_jcuru = 'j dot gradu full' |
character(len= *), parameter | ln_jcurv = 'j dot gradv full' |
character(len= *), parameter | ln_jcurv = 'j dot gradv full' |
character(len= *), parameter | ln_iotah = 'iota half' |
character(len= *), parameter | ln_iotah = 'iota half' |
character(len= *), parameter | ln_mass = 'mass half' |
character(len= *), parameter | ln_mass = 'mass half' |
character(len= *), parameter | ln_presh = 'pressure half' |
character(len= *), parameter | ln_presh = 'pressure half' |
character(len= *), parameter | ln_betah = 'beta half' |
character(len= *), parameter | ln_betah = 'beta half' |
character(len= *), parameter | ln_buco = 'bsubu half' |
character(len= *), parameter | ln_buco = 'bsubu half' |
character(len= *), parameter | ln_bvco = 'bsubv half' |
character(len= *), parameter | ln_bvco = 'bsubv half' |
character(len= *), parameter | ln_vp = 'volume deriv half' |
character(len= *), parameter | ln_vp = 'volume deriv half' |
character(len= *), parameter | ln_specw = 'Spectral width half' |
character(len= *), parameter | ln_specw = 'Spectral width half' |
character(len= *), parameter | ln_phip = 'tor flux deriv over 2pi half' |
character(len= *), parameter | ln_phip = 'tor flux deriv over 2pi half' |
character(len= *), parameter | ln_jdotb = 'J dot B' |
character(len= *), parameter | ln_jdotb = 'J dot B' |
character(len= *), parameter | ln_bgrv = 'B dot grad v' |
character(len= *), parameter | ln_bgrv = 'B dot grad v' |
character(len= *), parameter | ln_merc = 'Mercier criterion' |
character(len= *), parameter | ln_merc = 'Mercier criterion' |
character(len= *), parameter | ln_mshear = 'Shear Mercier' |
character(len= *), parameter | ln_mshear = 'Shear Mercier' |
character(len= *), parameter | ln_mwell = 'Well Mercier' |
character(len= *), parameter | ln_mwell = 'Well Mercier' |
character(len= *), parameter | ln_mcurr = 'Current Mercier' |
character(len= *), parameter | ln_mcurr = 'Current Mercier' |
character(len= *), parameter | ln_mgeo = 'Geodesic Mercier' |
character(len= *), parameter | ln_mgeo = 'Geodesic Mercier' |
character(len= *), parameter | ln_equif ='Average force balance' |
character(len= *), parameter | ln_equif ='Average force balance' |
character(len= *), parameter | ln_fsq = 'Residual decay' |
character(len= *), parameter | ln_fsq = 'Residual decay' |
character(len= *), parameter | ln_wdot = 'Wdot decay' |
character(len= *), parameter | ln_wdot = 'Wdot decay' |
character(len= *), parameter | ln_extcur = 'External coil currents' |
character(len= *), parameter | ln_extcur = 'External coil currents' |
character(len= *), parameter | ln_fsqr = 'Residual decay - radial' |
character(len= *), parameter | ln_fsqr = 'Residual decay - radial' |
character(len= *), parameter | ln_fsqz = 'Residual decay - vertical' |
character(len= *), parameter | ln_fsqz = 'Residual decay - vertical' |
character(len= *), parameter | ln_fsql = 'Residual decay - hoop' |
character(len= *), parameter | ln_fsql = 'Residual decay - hoop' |
character(len= *), parameter | ln_ftolv = 'Residual decay - requested' |
character(len= *), parameter | ln_ftolv = 'Residual decay - requested' |
character(len= *), parameter | ln_curlab = 'External current names' |
character(len= *), parameter | ln_curlab = 'External current names' |
character(len= *), parameter | ln_rmnc = 'cosmn component of cylindrical R, full mesh' |
character(len= *), parameter | ln_rmnc = 'cosmn component of cylindrical R, full mesh' |
character(len= *), parameter | ln_zmns = 'sinmn component of cylindrical Z, full mesh' |
character(len= *), parameter | ln_zmns = 'sinmn component of cylindrical Z, full mesh' |
character(len= *), parameter | ln_lmns = 'sinmn component of lambda, half mesh' |
character(len= *), parameter | ln_lmns = 'sinmn component of lambda, half mesh' |
character(len= *), parameter | ln_gmnc = 'cosmn component of jacobian, half mesh' |
character(len= *), parameter | ln_gmnc = 'cosmn component of jacobian, half mesh' |
character(len= *), parameter | ln_bmnc = 'cosmn component of mod-B, half mesh' |
character(len= *), parameter | ln_bmnc = 'cosmn component of mod-B, half mesh' |
character(len= *), parameter | ln_bsubumnc = 'cosmn covariant u-component of B, half mesh' |
character(len= *), parameter | ln_bsubumnc = 'cosmn covariant u-component of B, half mesh' |
character(len= *), parameter | ln_bsubvmnc = 'cosmn covariant v-component of B, half mesh' |
character(len= *), parameter | ln_bsubvmnc = 'cosmn covariant v-component of B, half mesh' |
character(len= *), parameter | ln_bsubsmns = 'sinmn covariant s-component of B, full mesh' |
character(len= *), parameter | ln_bsubsmns = 'sinmn covariant s-component of B, full mesh' |
character(len= *), parameter | ln_bsubumnc_sur = 'cosmn bsubu of B, surface' |
character(len= *), parameter | ln_bsubumnc_sur = 'cosmn bsubu of B, surface' |
character(len= *), parameter | ln_bsubvmnc_sur = 'cosmn bsubv of B, surface' |
character(len= *), parameter | ln_bsubvmnc_sur = 'cosmn bsubv of B, surface' |
character(len= *), parameter | ln_bsupumnc_sur = 'cosmn bsupu of B, surface' |
character(len= *), parameter | ln_bsupumnc_sur = 'cosmn bsupu of B, surface' |
character(len= *), parameter | ln_bsupvmnc_sur = 'cosmn bsupv of B, surface' |
character(len= *), parameter | ln_bsupvmnc_sur = 'cosmn bsupv of B, surface' |
character(len= *), parameter | ln_bsupumnc = 'BSUPUmnc half' |
character(len= *), parameter | ln_bsupumnc = 'BSUPUmnc half' |
character(len= *), parameter | ln_bsupvmnc = 'BSUPVmnc half' |
character(len= *), parameter | ln_bsupvmnc = 'BSUPVmnc half' |
character(len= *), parameter | ln_rmns = 'sinmn component of cylindrical R, full mesh' |
character(len= *), parameter | ln_rmns = 'sinmn component of cylindrical R, full mesh' |
character(len= *), parameter | ln_zmnc = 'cosmn component of cylindrical Z, full mesh' |
character(len= *), parameter | ln_zmnc = 'cosmn component of cylindrical Z, full mesh' |
character(len= *), parameter | ln_lmnc = 'cosmn component of lambda, half mesh' |
character(len= *), parameter | ln_lmnc = 'cosmn component of lambda, half mesh' |
character(len= *), parameter | ln_gmns = 'sinmn component of jacobian, half mesh' |
character(len= *), parameter | ln_gmns = 'sinmn component of jacobian, half mesh' |
character(len= *), parameter | ln_bmns = 'sinmn component of mod-B, half mesh' |
character(len= *), parameter | ln_bmns = 'sinmn component of mod-B, half mesh' |
character(len= *), parameter | ln_bsubumns = 'sinmn covariant u-component of B, half mesh' |
character(len= *), parameter | ln_bsubumns = 'sinmn covariant u-component of B, half mesh' |
character(len= *), parameter | ln_bsubvmns = 'sinmn covariant v-component of B, half mesh' |
character(len= *), parameter | ln_bsubvmns = 'sinmn covariant v-component of B, half mesh' |
character(len= *), parameter | ln_bsubsmnc = 'cosmn covariant s-component of B, full mesh' |
character(len= *), parameter | ln_bsubsmnc = 'cosmn covariant s-component of B, full mesh' |
character(len= *), parameter | ln_bsubumns_sur = 'sinmn bsubu of B, surface' |
character(len= *), parameter | ln_bsubumns_sur = 'sinmn bsubu of B, surface' |
character(len= *), parameter | ln_bsubvmns_sur = 'sinmn bsubv of B, surface' |
character(len= *), parameter | ln_bsubvmns_sur = 'sinmn bsubv of B, surface' |
character(len= *), parameter | ln_bsupumns_sur = 'sinmn bsupu of B, surface' |
character(len= *), parameter | ln_bsupumns_sur = 'sinmn bsupu of B, surface' |
character(len= *), parameter | ln_bsupvmns_sur = 'sinmn bsupv of B, surface' |
character(len= *), parameter | ln_bsupvmns_sur = 'sinmn bsupv of B, surface' |
character(len= *), parameter | ln_bsupumns = 'BSUPUmns half' |
character(len= *), parameter | ln_bsupumns = 'BSUPUmns half' |
character(len= *), parameter | ln_bsupvmns = 'BSUPVmns half' |
character(len= *), parameter | ln_bsupvmns = 'BSUPVmns half' |
character(len= *), parameter | ln_rbc = 'Initial boundary R cos(mu-nv) coefficients' |
character(len= *), parameter | ln_rbc = 'Initial boundary R cos(mu-nv) coefficients' |
character(len= *), parameter | ln_zbs = 'Initial boundary Z sin(mu-nv) coefficients' |
character(len= *), parameter | ln_zbs = 'Initial boundary Z sin(mu-nv) coefficients' |
character(len= *), parameter | ln_rbs = 'Initial boundary R sin(mu-nv) coefficients' |
character(len= *), parameter | ln_rbs = 'Initial boundary R sin(mu-nv) coefficients' |
character(len= *), parameter | ln_zbc = 'Initial boundary Z cos(mu-nv) coefficients' |
character(len= *), parameter | ln_zbc = 'Initial boundary Z cos(mu-nv) coefficients' |
character(len= *), parameter | ln_potvac = 'Vacuum Potential on Boundary' |
character(len= *), parameter | ln_potvac = 'Vacuum Potential on Boundary' |
integer | nfp |
integer | nfp |
integer | ns |
integer | ns |
integer | mpol |
integer | mpol |
integer | ntor |
integer | ntor |
integer | mnmax |
integer | mnmax |
integer | mnmax_nyq |
integer | mnmax_nyq |
integer | niter |
integer | niter |
integer | iasym |
integer | iasym |
integer | ierr_vmec |
integer | ierr_vmec |
integer | imse |
integer | imse |
integer | itse |
integer | itse |
integer | isnodes |
integer | isnodes |
integer | ipnodes |
integer | ipnodes |
integer | imatch_phiedge |
integer | imatch_phiedge |
integer | isigng |
integer | isigng |
integer | mnyq |
integer | mnyq |
integer | nnyq |
integer | nnyq |
integer | ntmax |
integer | ntmax |
real(rprec) | wb |
real(rprec) | wb |
real(rprec) | wp |
real(rprec) | wp |
real(rprec) | gamma |
real(rprec) | gamma |
real(rprec) | pfac |
real(rprec) | pfac |
real(rprec) | rmax_surf |
real(rprec) | rmax_surf |
real(rprec) | rmin_surf |
real(rprec) | rmin_surf |
real(rprec) | zmax_surf |
real(rprec) | zmax_surf |
real(rprec) | aspect |
real(rprec) | aspect |
real(rprec) | betatot |
real(rprec) | betatot |
real(rprec) | betapol |
real(rprec) | betapol |
real(rprec) | betator |
real(rprec) | betator |
real(rprec) | betaxis |
real(rprec) | betaxis |
real(rprec) | b0 |
real(rprec) | b0 |
real(rprec) | tswgt |
real(rprec) | tswgt |
real(rprec) | msewgt |
real(rprec) | msewgt |
real(rprec) | flmwgt |
real(rprec) | flmwgt |
real(rprec) | bcwgt |
real(rprec) | bcwgt |
real(rprec) | phidiam |
real(rprec) | phidiam |
real(rprec) | version_ |
real(rprec) | version_ |
real(rprec) | delphid |
real(rprec) | delphid |
real(rprec) | ionlarmor |
real(rprec) | ionlarmor |
real(rprec) | volavgb |
real(rprec) | volavgb |
real(rprec) | fsql |
real(rprec) | fsql |
real(rprec) | fsqr |
real(rprec) | fsqr |
real(rprec) | fsqz |
real(rprec) | fsqz |
real(rprec) | ftolv |
real(rprec) | ftolv |
real(rprec) | aminor |
real(rprec) | aminor |
real(rprec) | rmajor |
real(rprec) | rmajor |
real(rprec) | volume |
real(rprec) | volume |
real(rprec) | rbtor |
real(rprec) | rbtor |
real(rprec) | rbtor0 |
real(rprec) | rbtor0 |
real(rprec) | itor |
real(rprec) | itor |
real(rprec) | machsq |
real(rprec) | machsq |
real(rprec), dimension(:,:,:,:), allocatable | rzl_local |
real(rprec), dimension(:,:,:,:), allocatable | rzl_local |
real(rprec), dimension(:,:), allocatable | rmnc |
real(rprec), dimension(:,:), allocatable | rmnc |
real(rprec), dimension(:,:), allocatable | zmns |
real(rprec), dimension(:,:), allocatable | zmns |
real(rprec), dimension(:,:), allocatable | lmns |
real(rprec), dimension(:,:), allocatable | lmns |
real(rprec), dimension(:,:), allocatable | rmns |
real(rprec), dimension(:,:), allocatable | rmns |
real(rprec), dimension(:,:), allocatable | zmnc |
real(rprec), dimension(:,:), allocatable | zmnc |
real(rprec), dimension(:,:), allocatable | lmnc |
real(rprec), dimension(:,:), allocatable | lmnc |
real(rprec), dimension(:,:), allocatable | bmnc |
real(rprec), dimension(:,:), allocatable | bmnc |
real(rprec), dimension(:,:), allocatable | gmnc |
real(rprec), dimension(:,:), allocatable | gmnc |
real(rprec), dimension(:,:), allocatable | bsubumnc |
real(rprec), dimension(:,:), allocatable | bsubumnc |
real(rprec), dimension(:,:), allocatable | bsubvmnc |
real(rprec), dimension(:,:), allocatable | bsubvmnc |
real(rprec), dimension(:,:), allocatable | bsubsmns |
real(rprec), dimension(:,:), allocatable | bsubsmns |
real(rprec), dimension(:,:), allocatable | bsupumnc |
real(rprec), dimension(:,:), allocatable | bsupumnc |
real(rprec), dimension(:,:), allocatable | bsupvmnc |
real(rprec), dimension(:,:), allocatable | bsupvmnc |
real(rprec), dimension(:,:), allocatable | currvmnc |
real(rprec), dimension(:,:), allocatable | currvmnc |
real(rprec), dimension(:,:), allocatable | currumnc |
real(rprec), dimension(:,:), allocatable | currumnc |
real(rprec), dimension(:,:), allocatable | bbc |
real(rprec), dimension(:,:), allocatable | bbc |
real(rprec), dimension(:,:), allocatable | raxis |
real(rprec), dimension(:,:), allocatable | raxis |
real(rprec), dimension(:,:), allocatable | zaxis |
real(rprec), dimension(:,:), allocatable | zaxis |
real(rprec), dimension(:,:), allocatable | bmns |
real(rprec), dimension(:,:), allocatable | bmns |
real(rprec), dimension(:,:), allocatable | gmns |
real(rprec), dimension(:,:), allocatable | gmns |
real(rprec), dimension(:,:), allocatable | bsubumns |
real(rprec), dimension(:,:), allocatable | bsubumns |
real(rprec), dimension(:,:), allocatable | bsubvmns |
real(rprec), dimension(:,:), allocatable | bsubvmns |
real(rprec), dimension(:,:), allocatable | bsubsmnc |
real(rprec), dimension(:,:), allocatable | bsubsmnc |
real(rprec), dimension(:,:), allocatable | bsupumns |
real(rprec), dimension(:,:), allocatable | bsupumns |
real(rprec), dimension(:,:), allocatable | bsupvmns |
real(rprec), dimension(:,:), allocatable | bsupvmns |
real(rprec), dimension(:,:), allocatable | currumns |
real(rprec), dimension(:,:), allocatable | currumns |
real(rprec), dimension(:,:), allocatable | currvmns |
real(rprec), dimension(:,:), allocatable | currvmns |
real(rprec), dimension(:), allocatable | iotas |
real(rprec), dimension(:), allocatable | iotas |
real(rprec), dimension(:), allocatable | iotaf |
real(rprec), dimension(:), allocatable | iotaf |
real(rprec), dimension(:), allocatable | presf |
real(rprec), dimension(:), allocatable | presf |
real(rprec), dimension(:), allocatable | phipf |
real(rprec), dimension(:), allocatable | phipf |
real(rprec), dimension(:), allocatable | mass |
real(rprec), dimension(:), allocatable | mass |
real(rprec), dimension(:), allocatable | pres |
real(rprec), dimension(:), allocatable | pres |
real(rprec), dimension(:), allocatable | beta_vol |
real(rprec), dimension(:), allocatable | beta_vol |
real(rprec), dimension(:), allocatable | xm |
real(rprec), dimension(:), allocatable | xm |
real(rprec), dimension(:), allocatable | xn |
real(rprec), dimension(:), allocatable | xn |
real(rprec), dimension(:), allocatable | qfact |
real(rprec), dimension(:), allocatable | qfact |
real(rprec), dimension(:), allocatable | chipf |
real(rprec), dimension(:), allocatable | chipf |
real(rprec), dimension(:), allocatable | phi |
real(rprec), dimension(:), allocatable | phi |
real(rprec), dimension(:), allocatable | chi |
real(rprec), dimension(:), allocatable | chi |
real(rprec), dimension(:), allocatable | xm_nyq |
real(rprec), dimension(:), allocatable | xm_nyq |
real(rprec), dimension(:), allocatable | xn_nyq |
real(rprec), dimension(:), allocatable | xn_nyq |
real(rprec), dimension(:), allocatable | phip |
real(rprec), dimension(:), allocatable | phip |
real(rprec), dimension(:), allocatable | buco |
real(rprec), dimension(:), allocatable | buco |
real(rprec), dimension(:), allocatable | bvco |
real(rprec), dimension(:), allocatable | bvco |
real(rprec), dimension(:), allocatable | vp |
real(rprec), dimension(:), allocatable | vp |
real(rprec), dimension(:), allocatable | overr |
real(rprec), dimension(:), allocatable | overr |
real(rprec), dimension(:), allocatable | jcuru |
real(rprec), dimension(:), allocatable | jcuru |
real(rprec), dimension(:), allocatable | jcurv |
real(rprec), dimension(:), allocatable | jcurv |
real(rprec), dimension(:), allocatable | specw |
real(rprec), dimension(:), allocatable | specw |
real(rprec), dimension(:), allocatable | jdotb |
real(rprec), dimension(:), allocatable | jdotb |
real(rprec), dimension(:), allocatable | bdotgradv |
real(rprec), dimension(:), allocatable | bdotgradv |
real(rprec), dimension(:), allocatable | fsqt |
real(rprec), dimension(:), allocatable | fsqt |
real(rprec), dimension(:), allocatable | wdot |
real(rprec), dimension(:), allocatable | wdot |
real(rprec), dimension(:), allocatable | am |
real(rprec), dimension(:), allocatable | am |
real(rprec), dimension(:), allocatable | ac |
real(rprec), dimension(:), allocatable | ac |
real(rprec), dimension(:), allocatable | ai |
real(rprec), dimension(:), allocatable | ai |
real(rprec), dimension(:), allocatable | am_aux_s |
real(rprec), dimension(:), allocatable | am_aux_s |
real(rprec), dimension(:), allocatable | am_aux_f |
real(rprec), dimension(:), allocatable | am_aux_f |
real(rprec), dimension(:), allocatable | ac_aux_s |
real(rprec), dimension(:), allocatable | ac_aux_s |
real(rprec), dimension(:), allocatable | ac_aux_f |
real(rprec), dimension(:), allocatable | ac_aux_f |
real(rprec), dimension(:), allocatable | ai_aux_s |
real(rprec), dimension(:), allocatable | ai_aux_s |
real(rprec), dimension(:), allocatable | ai_aux_f |
real(rprec), dimension(:), allocatable | ai_aux_f |
real(rprec), dimension(:), allocatable | dmerc |
real(rprec), dimension(:), allocatable | dmerc |
real(rprec), dimension(:), allocatable | dshear |
real(rprec), dimension(:), allocatable | dshear |
real(rprec), dimension(:), allocatable | dwell |
real(rprec), dimension(:), allocatable | dwell |
real(rprec), dimension(:), allocatable | dcurr |
real(rprec), dimension(:), allocatable | dcurr |
real(rprec), dimension(:), allocatable | dgeod |
real(rprec), dimension(:), allocatable | dgeod |
real(rprec), dimension(:), allocatable | equif |
real(rprec), dimension(:), allocatable | equif |
real(rprec), dimension(:), allocatable | extcur |
real(rprec), dimension(:), allocatable | extcur |
real(rprec), dimension(:), allocatable | sknots |
real(rprec), dimension(:), allocatable | sknots |
real(rprec), dimension(:), allocatable | ystark |
real(rprec), dimension(:), allocatable | ystark |
real(rprec), dimension(:), allocatable | y2stark |
real(rprec), dimension(:), allocatable | y2stark |
real(rprec), dimension(:), allocatable | pknots |
real(rprec), dimension(:), allocatable | pknots |
real(rprec), dimension(:), allocatable | ythom |
real(rprec), dimension(:), allocatable | ythom |
real(rprec), dimension(:), allocatable | y2thom |
real(rprec), dimension(:), allocatable | y2thom |
real(rprec), dimension(:), allocatable | anglemse |
real(rprec), dimension(:), allocatable | anglemse |
real(rprec), dimension(:), allocatable | rmid |
real(rprec), dimension(:), allocatable | rmid |
real(rprec), dimension(:), allocatable | qmid |
real(rprec), dimension(:), allocatable | qmid |
real(rprec), dimension(:), allocatable | shear |
real(rprec), dimension(:), allocatable | shear |
real(rprec), dimension(:), allocatable | presmid |
real(rprec), dimension(:), allocatable | presmid |
real(rprec), dimension(:), allocatable | alfa |
real(rprec), dimension(:), allocatable | alfa |
real(rprec), dimension(:), allocatable | curmid |
real(rprec), dimension(:), allocatable | curmid |
real(rprec), dimension(:), allocatable | rstark |
real(rprec), dimension(:), allocatable | rstark |
real(rprec), dimension(:), allocatable | qmeas |
real(rprec), dimension(:), allocatable | qmeas |
real(rprec), dimension(:), allocatable | datastark |
real(rprec), dimension(:), allocatable | datastark |
real(rprec), dimension(:), allocatable | rthom |
real(rprec), dimension(:), allocatable | rthom |
real(rprec), dimension(:), allocatable | datathom |
real(rprec), dimension(:), allocatable | datathom |
real(rprec), dimension(:), allocatable | dsiobt |
real(rprec), dimension(:), allocatable | dsiobt |
real(rprec), dimension(:), allocatable | potvac |
real(rprec), dimension(:), allocatable | potvac |
logical | lasym |
logical | lasym |
logical | lthreed |
logical | lthreed |
logical | lwout_opened =.false. |
logical | lwout_opened =.false. |
character | mgrid_file |
character | mgrid_file |
character | input_extension |
character | input_extension |
character | pmass_type |
character | pmass_type |
character | pcurr_type |
character | pcurr_type |
character | piota_type |
character | piota_type |
character(len=*), parameter read_wout_mod::ln_am = 'Specification parameters for mass(s)' | +character(len=*), parameter read_wout_mod::ln_am = 'Specification parameters for mass(s)' |
character(len=*), parameter read_wout_mod::ln_am_aux_f = 'Auxiliary-f parameters for mass(s)' | +character(len=*), parameter read_wout_mod::ln_am_aux_f = 'Auxiliary-f parameters for mass(s)' |
character(len=*), parameter read_wout_mod::ln_am_aux_s = 'Auxiliary-s parameters for mass(s)' | +character(len=*), parameter read_wout_mod::ln_am_aux_s = 'Auxiliary-s parameters for mass(s)' |
character(len=*), parameter read_wout_mod::ln_chipf = 'd(chi)/ds: Poroidal flux deriv on full mesh' | +character(len=*), parameter read_wout_mod::ln_chipf = 'd(chi)/ds: Poroidal flux deriv on full mesh' |
character(len=*), parameter read_wout_mod::ln_mass = 'mass half' | +character(len=*), parameter read_wout_mod::ln_mass = 'mass half' |
character(len=*), parameter read_wout_mod::ln_phipf = 'd(phi)/ds: Toroidal flux deriv on full mesh' | +character(len=*), parameter read_wout_mod::ln_phipf = 'd(phi)/ds: Toroidal flux deriv on full mesh' |
character(len=*), parameter read_wout_mod::ln_pmass_type = 'Profile type specifier for mass(s)' | +character(len=*), parameter read_wout_mod::ln_pmass_type = 'Profile type specifier for mass(s)' |
character(len=*), parameter read_wout_mod::ln_racc = 'raxis (cosnv)' | +character(len=*), parameter read_wout_mod::ln_racc = 'raxis (cosnv)' |
character(len=*), parameter read_wout_mod::ln_racs = 'raxis (sinnv)' | +character(len=*), parameter read_wout_mod::ln_racs = 'raxis (sinnv)' |
character(len=*), parameter read_wout_mod::ln_vol = 'Plasma volume' | +character(len=*), parameter read_wout_mod::ln_vol = 'Plasma volume' |
character(len=*), parameter read_wout_mod::ln_vp = 'volume deriv half' | +character(len=*), parameter read_wout_mod::ln_vp = 'volume deriv half' |
character(len=*), parameter read_wout_mod::ln_zacc = 'zaxis (cosnv)' | +character(len=*), parameter read_wout_mod::ln_zacc = 'zaxis (cosnv)' |
character(len=*), parameter read_wout_mod::ln_zacs = 'zaxis (sinnv)' | +character(len=*), parameter read_wout_mod::ln_zacs = 'zaxis (sinnv)' |
character(len=*), parameter read_wout_mod::vn_abeta = 'betaxis' | +character(len=*), parameter read_wout_mod::vn_abeta = 'betaxis' |
character(len=*), parameter read_wout_mod::vn_ac = 'ac' | +character(len=*), parameter read_wout_mod::vn_ac = 'ac' |
character(len=*), parameter read_wout_mod::vn_ac_aux_f = 'ac_aux_f' | +character(len=*), parameter read_wout_mod::vn_ac_aux_f = 'ac_aux_f' |
character(len=*), parameter read_wout_mod::vn_ac_aux_s = 'ac_aux_s' | +character(len=*), parameter read_wout_mod::vn_ac_aux_s = 'ac_aux_s' |
character(len=*), parameter read_wout_mod::vn_ai = 'ai' | +character(len=*), parameter read_wout_mod::vn_ai = 'ai' |
character(len=*), parameter read_wout_mod::vn_ai_aux_f = 'ai_aux_f' | +character(len=*), parameter read_wout_mod::vn_ai_aux_f = 'ai_aux_f' |
character(len=*), parameter read_wout_mod::vn_ai_aux_s = 'ai_aux_s' | +character(len=*), parameter read_wout_mod::vn_ai_aux_s = 'ai_aux_s' |
character(len=*), parameter read_wout_mod::vn_am = 'am' | +character(len=*), parameter read_wout_mod::vn_am = 'am' |
character(len=*), parameter read_wout_mod::vn_am_aux_f = 'am_aux_f' | +character(len=*), parameter read_wout_mod::vn_am_aux_f = 'am_aux_f' |
character(len=*), parameter read_wout_mod::vn_am_aux_s = 'am_aux_s' | +character(len=*), parameter read_wout_mod::vn_am_aux_s = 'am_aux_s' |
character(len=*), parameter read_wout_mod::vn_aspect = 'aspect' | +character(len=*), parameter read_wout_mod::vn_aspect = 'aspect' |
character(len=*), parameter read_wout_mod::vn_asym = 'lasym' | +character(len=*), parameter read_wout_mod::vn_asym = 'lasym' |
character(len=*), parameter read_wout_mod::vn_b0 = 'b0' | +character(len=*), parameter read_wout_mod::vn_b0 = 'b0' |
character(len=*), parameter read_wout_mod::vn_betah = 'beta_vol' | +character(len=*), parameter read_wout_mod::vn_betah = 'beta_vol' |
character(len=*), parameter read_wout_mod::vn_bgrv = 'bdotgradv' | +character(len=*), parameter read_wout_mod::vn_bgrv = 'bdotgradv' |
character(len=*), parameter read_wout_mod::vn_bmnc = 'bmnc' | +character(len=*), parameter read_wout_mod::vn_bmnc = 'bmnc' |
character(len=*), parameter read_wout_mod::vn_bmns = 'bmns' | +character(len=*), parameter read_wout_mod::vn_bmns = 'bmns' |
character(len=*), parameter read_wout_mod::vn_bsubsmnc = 'bsubsmnc' | +character(len=*), parameter read_wout_mod::vn_bsubsmnc = 'bsubsmnc' |
character(len=*), parameter read_wout_mod::vn_bsubsmns = 'bsubsmns' | +character(len=*), parameter read_wout_mod::vn_bsubsmns = 'bsubsmns' |
character(len=*), parameter read_wout_mod::vn_bsubumnc = 'bsubumnc' | +character(len=*), parameter read_wout_mod::vn_bsubumnc = 'bsubumnc' |
character(len=*), parameter read_wout_mod::vn_bsubumns = 'bsubumns' | +character(len=*), parameter read_wout_mod::vn_bsubumns = 'bsubumns' |
character(len=*), parameter read_wout_mod::vn_bsubvmnc = 'bsubvmnc' | +character(len=*), parameter read_wout_mod::vn_bsubvmnc = 'bsubvmnc' |
character(len=*), parameter read_wout_mod::vn_bsubvmns = 'bsubvmns' | +character(len=*), parameter read_wout_mod::vn_bsubvmns = 'bsubvmns' |
character(len=*), parameter read_wout_mod::vn_bsupumnc = 'bsupumnc' | +character(len=*), parameter read_wout_mod::vn_bsupumnc = 'bsupumnc' |
character(len=*), parameter read_wout_mod::vn_bsupumns = 'bsupumns' | +character(len=*), parameter read_wout_mod::vn_bsupumns = 'bsupumns' |
character(len=*), parameter read_wout_mod::vn_bsupvmnc = 'bsupvmnc' | +character(len=*), parameter read_wout_mod::vn_bsupvmnc = 'bsupvmnc' |
character(len=*), parameter read_wout_mod::vn_bsupvmns = 'bsupvmns' | +character(len=*), parameter read_wout_mod::vn_bsupvmns = 'bsupvmns' |
character(len=*), parameter read_wout_mod::vn_buco = 'buco' | +character(len=*), parameter read_wout_mod::vn_buco = 'buco' |
character(len=*), parameter read_wout_mod::vn_bvco = 'bvco' | +character(len=*), parameter read_wout_mod::vn_bvco = 'bvco' |
character(len=*), parameter read_wout_mod::vn_chi ='chi' | +character(len=*), parameter read_wout_mod::vn_chi ='chi' |
character(len=*), parameter read_wout_mod::vn_chipf ='chipf' | +character(len=*), parameter read_wout_mod::vn_chipf ='chipf' |
character(len=*), parameter read_wout_mod::vn_equif = 'equif' | +character(len=*), parameter read_wout_mod::vn_equif = 'equif' |
character(len=*), parameter read_wout_mod::vn_extcur = 'extcur' | +character(len=*), parameter read_wout_mod::vn_extcur = 'extcur' |
character(len=*), parameter read_wout_mod::vn_extension = 'input_extension' | +character(len=*), parameter read_wout_mod::vn_extension = 'input_extension' |
character(len=*), parameter read_wout_mod::vn_fp = 'nfp' | +character(len=*), parameter read_wout_mod::vn_fp = 'nfp' |
character(len=*), parameter read_wout_mod::vn_fsq = 'fsqt' | +character(len=*), parameter read_wout_mod::vn_fsq = 'fsqt' |
character(len=*), parameter read_wout_mod::vn_fsql = 'fsql' | +character(len=*), parameter read_wout_mod::vn_fsql = 'fsql' |
character(len=*), parameter read_wout_mod::vn_fsqr = 'fsqr' | +character(len=*), parameter read_wout_mod::vn_fsqr = 'fsqr' |
character(len=*), parameter read_wout_mod::vn_fsqz = 'fsqz' | +character(len=*), parameter read_wout_mod::vn_fsqz = 'fsqz' |
character(len=*), parameter read_wout_mod::vn_ftolv = 'ftolv' | +character(len=*), parameter read_wout_mod::vn_ftolv = 'ftolv' |
character(len=*), parameter read_wout_mod::vn_gam = 'gamma' | +character(len=*), parameter read_wout_mod::vn_gam = 'gamma' |
character(len=*), parameter read_wout_mod::vn_gmnc = 'gmnc' | +character(len=*), parameter read_wout_mod::vn_gmnc = 'gmnc' |
character(len=*), parameter read_wout_mod::vn_gmns = 'gmns' | +character(len=*), parameter read_wout_mod::vn_gmns = 'gmns' |
character(len=*), parameter read_wout_mod::vn_iotaf = 'iotaf' | +character(len=*), parameter read_wout_mod::vn_iotaf = 'iotaf' |
character(len=*), parameter read_wout_mod::vn_iotah = 'iotas' | +character(len=*), parameter read_wout_mod::vn_iotah = 'iotas' |
character(len=*), parameter read_wout_mod::vn_jcuru = 'jcuru' | +character(len=*), parameter read_wout_mod::vn_jcuru = 'jcuru' |
character(len=*), parameter read_wout_mod::vn_jcurv = 'jcurv' | +character(len=*), parameter read_wout_mod::vn_jcurv = 'jcurv' |
character(len=*), parameter read_wout_mod::vn_jdotb = 'jdotb' | +character(len=*), parameter read_wout_mod::vn_jdotb = 'jdotb' |
character(len=*), parameter read_wout_mod::vn_lmnc = 'lmnc' | +character(len=*), parameter read_wout_mod::vn_lmnc = 'lmnc' |
character(len=*), parameter read_wout_mod::vn_lmns = 'lmns' | +character(len=*), parameter read_wout_mod::vn_lmns = 'lmns' |
character(len=*), parameter read_wout_mod::vn_magen = 'wb' | +character(len=*), parameter read_wout_mod::vn_magen = 'wb' |
character(len=*), parameter read_wout_mod::vn_mass = 'mass' | +character(len=*), parameter read_wout_mod::vn_mass = 'mass' |
character(len=*), parameter read_wout_mod::vn_maxit = 'niter' | +character(len=*), parameter read_wout_mod::vn_maxit = 'niter' |
character(len=*), parameter read_wout_mod::vn_maxmod = 'mnmax' | +character(len=*), parameter read_wout_mod::vn_maxmod = 'mnmax' |
character(len=*), parameter read_wout_mod::vn_maxmod_nyq = 'mnmax_nyq' | +character(len=*), parameter read_wout_mod::vn_maxmod_nyq = 'mnmax_nyq' |
character(len=*), parameter read_wout_mod::vn_maxr = 'rmax_surf' | +character(len=*), parameter read_wout_mod::vn_maxr = 'rmax_surf' |
character(len=*), parameter read_wout_mod::vn_maxz = 'zmax_surf' | +character(len=*), parameter read_wout_mod::vn_maxz = 'zmax_surf' |
character(len=*), parameter read_wout_mod::vn_mgrid = 'mgrid_file' | +character(len=*), parameter read_wout_mod::vn_mgrid = 'mgrid_file' |
character(len=*), parameter read_wout_mod::vn_minr = 'rmin_surf' | +character(len=*), parameter read_wout_mod::vn_minr = 'rmin_surf' |
character(len=*), parameter read_wout_mod::vn_mse = 'imse' | +character(len=*), parameter read_wout_mod::vn_mse = 'imse' |
character(len=*), parameter read_wout_mod::vn_pbeta = 'betapol' | +character(len=*), parameter read_wout_mod::vn_pbeta = 'betapol' |
character(len=*), parameter read_wout_mod::vn_pcurr_type = 'pcurr_type' | +character(len=*), parameter read_wout_mod::vn_pcurr_type = 'pcurr_type' |
character(len=*), parameter read_wout_mod::vn_phi = 'phi' | +character(len=*), parameter read_wout_mod::vn_phi = 'phi' |
character(len=*), parameter read_wout_mod::vn_phipf = 'phipf' | +character(len=*), parameter read_wout_mod::vn_phipf = 'phipf' |
character(len=*), parameter read_wout_mod::vn_piota_type = 'piota_type' | +character(len=*), parameter read_wout_mod::vn_piota_type = 'piota_type' |
character(len=*), parameter read_wout_mod::vn_pmass_type = 'pmass_type' | +character(len=*), parameter read_wout_mod::vn_pmass_type = 'pmass_type' |
character(len=*), parameter read_wout_mod::vn_pmod = 'xm' | +character(len=*), parameter read_wout_mod::vn_pmod = 'xm' |
character(len=*), parameter read_wout_mod::vn_pmod_nyq = 'xm_nyq' | +character(len=*), parameter read_wout_mod::vn_pmod_nyq = 'xm_nyq' |
character(len=*), parameter read_wout_mod::vn_polmod = 'mpol' | +character(len=*), parameter read_wout_mod::vn_polmod = 'mpol' |
character(len=*), parameter read_wout_mod::vn_potvac = 'potvac' | +character(len=*), parameter read_wout_mod::vn_potvac = 'potvac' |
character(len=*), parameter read_wout_mod::vn_presf = 'presf' | +character(len=*), parameter read_wout_mod::vn_presf = 'presf' |
character(len=*), parameter read_wout_mod::vn_presh = 'pres' | +character(len=*), parameter read_wout_mod::vn_presh = 'pres' |
character(len=*), parameter read_wout_mod::vn_radnod = 'ns' | +character(len=*), parameter read_wout_mod::vn_radnod = 'ns' |
character(len=*), parameter read_wout_mod::vn_rbt0 = 'rbtor0' | +character(len=*), parameter read_wout_mod::vn_rbt0 = 'rbtor0' |
character(len=*), parameter read_wout_mod::vn_rbt1 = 'rbtor' | +character(len=*), parameter read_wout_mod::vn_rbt1 = 'rbtor' |
character(len=*), parameter read_wout_mod::vn_rmnc = 'rmnc' | +character(len=*), parameter read_wout_mod::vn_rmnc = 'rmnc' |
character(len=*), parameter read_wout_mod::vn_rmns = 'rmns' | +character(len=*), parameter read_wout_mod::vn_rmns = 'rmns' |
character(len=*), parameter read_wout_mod::vn_specw = 'specw' | +character(len=*), parameter read_wout_mod::vn_specw = 'specw' |
character(len=*), parameter read_wout_mod::vn_tbeta = 'betator' | +character(len=*), parameter read_wout_mod::vn_tbeta = 'betator' |
character(len=*), parameter read_wout_mod::vn_therm = 'wp' | +character(len=*), parameter read_wout_mod::vn_therm = 'wp' |
character(len=*), parameter read_wout_mod::vn_thom = 'itse' | +character(len=*), parameter read_wout_mod::vn_thom = 'itse' |
character(len=*), parameter read_wout_mod::vn_tmod = 'xn' | +character(len=*), parameter read_wout_mod::vn_tmod = 'xn' |
character(len=*), parameter read_wout_mod::vn_tmod_nyq = 'xn_nyq' | +character(len=*), parameter read_wout_mod::vn_tmod_nyq = 'xn_nyq' |
character(len=*), parameter read_wout_mod::vn_tormod = 'ntor' | +character(len=*), parameter read_wout_mod::vn_tormod = 'ntor' |
character(len=*), parameter read_wout_mod::vn_version = 'version_' | +character(len=*), parameter read_wout_mod::vn_version = 'version_' |
character(len=*), parameter read_wout_mod::vn_vp = 'vp' | +character(len=*), parameter read_wout_mod::vn_vp = 'vp' |
character(len=*), parameter read_wout_mod::vn_wdot = 'wdot' | +character(len=*), parameter read_wout_mod::vn_wdot = 'wdot' |
character(len=*), parameter read_wout_mod::vn_zmnc = 'zmnc' | +character(len=*), parameter read_wout_mod::vn_zmnc = 'zmnc' |
character(len=*), parameter read_wout_mod::vn_zmns = 'zmns' | +character(len=*), parameter read_wout_mod::vn_zmns = 'zmns' |
Input and Output for stand-alone NESTOR. -More...
+More...Functions/Subroutines | |
subroutine | read_nestor_inputs (vac_file) |
subroutine | read_nestor_inputs (vac_file) |
subroutine | write_nestor_outputs (vac_file, lasym, ivac, ier_flag) |
subroutine | write_nestor_outputs (vac_file, lasym, ivac, ier_flag) |
Variables | |
character(len=255) | input_extension |
character(len=255) | input_extension |
character(len=255) | mgrid_file |
character(len=255) | mgrid_file |
real(dp), dimension(:), allocatable | extcur |
real(dp), dimension(:), allocatable | extcur |
real(dp), dimension(:), allocatable | raxis |
real(dp), dimension(:), allocatable | raxis |
real(dp), dimension(:), allocatable | zaxis |
real(dp), dimension(:), allocatable | zaxis |
real(dp), dimension(:), allocatable | xm |
real(dp), dimension(:), allocatable | xm |
real(dp), dimension(:), allocatable | xn |
real(dp), dimension(:), allocatable | xn |
real(dp), dimension(:), allocatable | rmnc |
real(dp), dimension(:), allocatable | rmnc |
real(dp), dimension(:), allocatable | zmns |
real(dp), dimension(:), allocatable | zmns |
real(dp), dimension(:), allocatable | rmns |
real(dp), dimension(:), allocatable | rmns |
real(dp), dimension(:), allocatable | zmnc |
real(dp), dimension(:), allocatable | zmnc |
real(dp), dimension(:), allocatable | wint |
real(dp), dimension(:), allocatable | wint |
integer | nfp |
integer | nfp |
integer | ntor |
integer | ntor |
integer | mpol |
integer | mpol |
integer | ntheta |
integer | ntheta |
integer | nzeta |
integer | nzeta |
integer | nextcur |
integer | nextcur |
integer | ier_flag |
integer | ier_flag |
integer | ivac |
integer | ivac |
integer | ivacskip |
integer | ivacskip |
integer | mnmax |
integer | mnmax |
integer | vacuum_calls |
integer | vacuum_calls |
logical | lasym |
logical | lasym |
real(dp) | ctor |
real(dp) | ctor |
real(dp) | rbtor |
real(dp) | rbtor |
real(dp) | signgs |
real(dp) | signgs |
integer | mnpd2_nestor |
integer | mnpd2_nestor |
real(dp), dimension(:), allocatable | amatsav_nestor |
real(dp), dimension(:), allocatable | amatsav_nestor |
real(dp), dimension(:), allocatable | bvecsav_nestor |
real(dp), dimension(:), allocatable | bvecsav_nestor |
real(dp) | bsubvvac_nestor |
real(dp) | bsubvvac_nestor |
character(len= *), dimension(1), parameter | mn1dim = (/'mn_mode'/) |
character(len= *), dimension(1), parameter | mn1dim = (/'mn_mode'/) |
character(len= *), dimension(1), parameter | mnpotdim = (/'mn_mode_pot'/) |
character(len= *), dimension(1), parameter | mnpotdim = (/'mn_mode_pot'/) |
character(len= *), dimension(1), parameter | nzntdim = (/'nznt'/) |
character(len= *), dimension(1), parameter | nzntdim = (/'nznt'/) |
character(len= *), dimension(1), parameter | nzetadim = (/'nzeta'/) |
character(len= *), dimension(1), parameter | nzetadim = (/'nzeta'/) |
character(len= *), dimension(1), parameter | nextcurim = (/'nextcur'/) |
character(len= *), dimension(1), parameter | nextcurim = (/'nextcur'/) |
character(len= *), dimension(1), parameter | bvecsavdim =(/'mnpd2'/) |
character(len= *), dimension(1), parameter | bvecsavdim =(/'mnpd2'/) |
character(len= *), dimension(1), parameter | amatsavdim =(/'mnpd2_times_mnpd2'/) |
character(len= *), dimension(1), parameter | amatsavdim =(/'mnpd2_times_mnpd2'/) |
character(len= *), dimension(2), parameter | r2dim = (/'mn_mode','radius '/) |
character(len= *), dimension(2), parameter | r2dim = (/'mn_mode','radius '/) |
character(len= *), parameter | vn_vacuum_calls = 'vacuum_calls' |
character(len= *), parameter | vn_vacuum_calls = 'vacuum_calls' |
character(len= *), parameter | vn_ier_flag = "ier_flag" |
character(len= *), parameter | vn_ier_flag = "ier_flag" |
character(len= *), parameter | vn_mgrid = "mgrid_file" |
character(len= *), parameter | vn_mgrid = "mgrid_file" |
character(len= *), parameter | vn_inputext = "input_extension" |
character(len= *), parameter | vn_inputext = "input_extension" |
character(len= *), parameter | vn_ivacskip = "ivacskip" |
character(len= *), parameter | vn_ivacskip = "ivacskip" |
character(len= *), parameter | vn_ivac = "ivac" |
character(len= *), parameter | vn_ivac = "ivac" |
character(len= *), parameter | vn_nfp = "nfp" |
character(len= *), parameter | vn_nfp = "nfp" |
character(len= *), parameter | vn_ntor = "ntor" |
character(len= *), parameter | vn_ntor = "ntor" |
character(len= *), parameter | vn_mpol = "mpol" |
character(len= *), parameter | vn_mpol = "mpol" |
character(len= *), parameter | vn_nzeta = "nzeta" |
character(len= *), parameter | vn_nzeta = "nzeta" |
character(len= *), parameter | vn_ntheta = "ntheta" |
character(len= *), parameter | vn_ntheta = "ntheta" |
character(len= *), parameter | vn_mnmax = "mnmax" |
character(len= *), parameter | vn_mnmax = "mnmax" |
character(len= *), parameter | vn_pmod = "xm" |
character(len= *), parameter | vn_pmod = "xm" |
character(len= *), parameter | vn_tmod = "xn" |
character(len= *), parameter | vn_tmod = "xn" |
character(len= *), parameter | vn_rmnc = "rmnc" |
character(len= *), parameter | vn_rmnc = "rmnc" |
character(len= *), parameter | vn_zmns = "zmns" |
character(len= *), parameter | vn_zmns = "zmns" |
character(len= *), parameter | vn_rmns = "rmns" |
character(len= *), parameter | vn_rmns = "rmns" |
character(len= *), parameter | vn_zmnc = "zmnc" |
character(len= *), parameter | vn_zmnc = "zmnc" |
character(len= *), parameter | vn_rbtor = "rbtor" |
character(len= *), parameter | vn_rbtor = "rbtor" |
character(len= *), parameter | vn_ctor = "ctor" |
character(len= *), parameter | vn_ctor = "ctor" |
character(len= *), parameter | vn_lasym = "lasym" |
character(len= *), parameter | vn_lasym = "lasym" |
character(len= *), parameter | vn_signgs = "signgs" |
character(len= *), parameter | vn_signgs = "signgs" |
character(len= *), parameter | vn_extcur = "extcur" |
character(len= *), parameter | vn_extcur = "extcur" |
character(len= *), parameter | vn_raxis_nestor = "raxis_nestor" |
character(len= *), parameter | vn_raxis_nestor = "raxis_nestor" |
character(len= *), parameter | vn_zaxis_nestor = "zaxis_nestor" |
character(len= *), parameter | vn_zaxis_nestor = "zaxis_nestor" |
character(len= *), parameter | vn_wint = "wint" |
character(len= *), parameter | vn_wint = "wint" |
character(len= *), parameter | vn_bsqvac = "bsqvac" |
character(len= *), parameter | vn_bsqvac = "bsqvac" |
character(len= *), parameter | vn_mnpd = "mnpd" |
character(len= *), parameter | vn_mnpd = "mnpd" |
character(len= *), parameter | vn_xmpot = "xmpot" |
character(len= *), parameter | vn_xmpot = "xmpot" |
character(len= *), parameter | vn_xnpot = "xnpot" |
character(len= *), parameter | vn_xnpot = "xnpot" |
character(len= *), parameter | vn_potvac = "potvac" |
character(len= *), parameter | vn_potvac = "potvac" |
character(len= *), parameter | vn_brv = "brv" |
character(len= *), parameter | vn_brv = "brv" |
character(len= *), parameter | vn_bphiv = "bphiv" |
character(len= *), parameter | vn_bphiv = "bphiv" |
character(len= *), parameter | vn_bzv = "bzv" |
character(len= *), parameter | vn_bzv = "bzv" |
character(len= *), parameter | vn_bsubvvac = "bsubvvac" |
character(len= *), parameter | vn_bsubvvac = "bsubvvac" |
character(len= *), parameter | vn_amatsav = "amatsav" |
character(len= *), parameter | vn_amatsav = "amatsav" |
character(len= *), parameter | vn_bvecsav = "bvecsav" |
character(len= *), parameter | vn_bvecsav = "bvecsav" |
character(len= *), parameter | vn_mnpd2 = "mnpd2" |
character(len= *), parameter | vn_mnpd2 = "mnpd2" |
character(len= *), parameter | vn_r1b = "r1b" |
character(len= *), parameter | vn_r1b = "r1b" |
character(len= *), parameter | vn_rub = "rub" |
character(len= *), parameter | vn_rub = "rub" |
character(len= *), parameter | vn_rvb = "rvb" |
character(len= *), parameter | vn_rvb = "rvb" |
character(len= *), parameter | vn_z1b = "z1b" |
character(len= *), parameter | vn_z1b = "z1b" |
character(len= *), parameter | vn_zub = "zub" |
character(len= *), parameter | vn_zub = "zub" |
character(len= *), parameter | vn_zvb = "zvb" |
character(len= *), parameter | vn_zvb = "zvb" |
character(len= *), parameter | vn_ruu = "ruu" |
character(len= *), parameter | vn_ruu = "ruu" |
character(len= *), parameter | vn_ruv = "ruv" |
character(len= *), parameter | vn_ruv = "ruv" |
character(len= *), parameter | vn_rvv = "rvv" |
character(len= *), parameter | vn_rvv = "rvv" |
character(len= *), parameter | vn_zuu = "zuu" |
character(len= *), parameter | vn_zuu = "zuu" |
character(len= *), parameter | vn_zuv = "zuv" |
character(len= *), parameter | vn_zuv = "zuv" |
character(len= *), parameter | vn_zvv = "zvv" |
character(len= *), parameter | vn_zvv = "zvv" |
character(len= *), parameter | vn_guu_b = "guu_b" |
character(len= *), parameter | vn_guu_b = "guu_b" |
character(len= *), parameter | vn_guv_b = "guv_b" |
character(len= *), parameter | vn_guv_b = "guv_b" |
character(len= *), parameter | vn_gvv_b = "gvv_b" |
character(len= *), parameter | vn_gvv_b = "gvv_b" |
character(len= *), parameter | vn_rzb2 = "rzb2" |
character(len= *), parameter | vn_rzb2 = "rzb2" |
character(len= *), parameter | vn_snr = "snr" |
character(len= *), parameter | vn_snr = "snr" |
character(len= *), parameter | vn_snv = "snv" |
character(len= *), parameter | vn_snv = "snv" |
character(len= *), parameter | vn_snz = "snz" |
character(len= *), parameter | vn_snz = "snz" |
character(len= *), parameter | vn_drv = "drv" |
character(len= *), parameter | vn_drv = "drv" |
character(len= *), parameter | vn_auu = "auu" |
character(len= *), parameter | vn_auu = "auu" |
character(len= *), parameter | vn_auv = "auv" |
character(len= *), parameter | vn_auv = "auv" |
character(len= *), parameter | vn_avv = "avv" |
character(len= *), parameter | vn_avv = "avv" |
character(len= *), parameter | vn_rcosuv = "rcosuv" |
character(len= *), parameter | vn_rcosuv = "rcosuv" |
character(len= *), parameter | vn_rsinuv = "rsinuv" |
character(len= *), parameter | vn_rsinuv = "rsinuv" |
character(len= *), parameter | vn_brad = "brad" |
character(len= *), parameter | vn_brad = "brad" |
character(len= *), parameter | vn_bphi = "bphi" |
character(len= *), parameter | vn_bphi = "bphi" |
character(len= *), parameter | vn_bz = "bz" |
character(len= *), parameter | vn_bz = "bz" |
character(len= *), parameter | vn_bexu = "bexu" |
character(len= *), parameter | vn_bexu = "bexu" |
character(len= *), parameter | vn_bexv = "bexv" |
character(len= *), parameter | vn_bexv = "bexv" |
character(len= *), parameter | vn_bexn = "bexn" |
character(len= *), parameter | vn_bexn = "bexn" |
character(len= *), parameter | vn_bexni = "bexni" |
character(len= *), parameter | vn_bexni = "bexni" |
character(len= *), parameter | vn_grpmn = "grpmn" |
character(len= *), parameter | vn_grpmn = "grpmn" |
character(len= *), parameter | vn_adp = "adp" |
character(len= *), parameter | vn_adp = "adp" |
character(len= *), parameter | vn_adm = "adm" |
character(len= *), parameter | vn_adm = "adm" |
character(len= *), parameter | vn_cma = "cma" |
character(len= *), parameter | vn_cma = "cma" |
character(len= *), parameter | vn_sqrtc = "sqrtc" |
character(len= *), parameter | vn_sqrtc = "sqrtc" |
character(len= *), parameter | vn_sqrta = "sqrta" |
character(len= *), parameter | vn_sqrta = "sqrta" |
character(len= *), parameter | vn_delt1u = "delt1u" |
character(len= *), parameter | vn_delt1u = "delt1u" |
character(len= *), parameter | vn_azp1u = "azp1u" |
character(len= *), parameter | vn_azp1u = "azp1u" |
character(len= *), parameter | vn_azm1u = "azm1u" |
character(len= *), parameter | vn_azm1u = "azm1u" |
character(len= *), parameter | vn_cma11u = "cma11u" |
character(len= *), parameter | vn_cma11u = "cma11u" |
character(len= *), parameter | vn_r1p = "r1p" |
character(len= *), parameter | vn_r1p = "r1p" |
character(len= *), parameter | vn_r1m = "r1m" |
character(len= *), parameter | vn_r1m = "r1m" |
character(len= *), parameter | vn_r0p = "r0p" |
character(len= *), parameter | vn_r0p = "r0p" |
character(len= *), parameter | vn_r0m = "r0m" |
character(len= *), parameter | vn_r0m = "r0m" |
character(len= *), parameter | vn_ra1p = "ra1p" |
character(len= *), parameter | vn_ra1p = "ra1p" |
character(len= *), parameter | vn_ra1m = "ra1m" |
character(len= *), parameter | vn_ra1m = "ra1m" |
character(len= *), parameter | vn_sqad1u = "sqad1u" |
character(len= *), parameter | vn_sqad1u = "sqad1u" |
character(len= *), parameter | vn_sqad2u = "sqad2u" |
character(len= *), parameter | vn_sqad2u = "sqad2u" |
character(len= *), parameter | vn_all_tlp = "all_tlp" |
character(len= *), parameter | vn_all_tlp = "all_tlp" |
character(len= *), parameter | vn_all_tlm = "all_tlm" |
character(len= *), parameter | vn_all_tlm = "all_tlm" |
character(len= *), parameter | vn_all_slp = "all_slp" |
character(len= *), parameter | vn_all_slp = "all_slp" |
character(len= *), parameter | vn_all_slm = "all_slm" |
character(len= *), parameter | vn_all_slm = "all_slm" |
character(len= *), parameter | vn_m_map = "m_map" |
character(len= *), parameter | vn_m_map = "m_map" |
character(len= *), parameter | vn_n_map = "n_map" |
character(len= *), parameter | vn_n_map = "n_map" |
character(len= *), parameter | vn_green = "green" |
character(len= *), parameter | vn_green = "green" |
character(len= *), parameter | vn_greenp = "greenp" |
character(len= *), parameter | vn_greenp = "greenp" |
character(len= *), parameter | vn_tanu = "tanu" |
character(len= *), parameter | vn_tanu = "tanu" |
character(len= *), parameter | vn_tanv = "tanv" |
character(len= *), parameter | vn_tanv = "tanv" |
character(len= *), parameter | vn_gstore = "gstore" |
character(len= *), parameter | vn_gstore = "gstore" |
character(len= *), parameter | vn_grpmn_m_map = "grpmn_m_map" |
character(len= *), parameter | vn_grpmn_m_map = "grpmn_m_map" |
character(len= *), parameter | vn_grpmn_n_map = "grpmn_n_map" |
character(len= *), parameter | vn_grpmn_n_map = "grpmn_n_map" |
character(len= *), parameter | vn_imirr = "imirr" |
character(len= *), parameter | vn_imirr = "imirr" |
character(len= *), parameter | vn_amatrix = "amatrix" |
character(len= *), parameter | vn_amatrix = "amatrix" |
character(len= *), parameter | vn_potu = "potu" |
character(len= *), parameter | vn_potu = "potu" |
character(len= *), parameter | vn_potv = "potv" |
character(len= *), parameter | vn_potv = "potv" |
character(len= *), parameter | vn_bsubu = "bsubu" |
character(len= *), parameter | vn_bsubu = "bsubu" |
character(len= *), parameter | vn_bsubv = "bsubv" |
character(len= *), parameter | vn_bsubv = "bsubv" |
character(len=*), dimension(1), parameter nestor_io::nextcurim = (/'nextcur'/) | +character(len=*), dimension(1), parameter nestor_io::nextcurim = (/'nextcur'/) |
character(len=*), dimension(1), parameter nestor_io::nzetadim = (/'nzeta'/) | +character(len=*), dimension(1), parameter nestor_io::nzetadim = (/'nzeta'/) |
character(len=*), parameter nestor_io::vn_vacuum_calls = 'vacuum_calls' | +character(len=*), parameter nestor_io::vn_vacuum_calls = 'vacuum_calls' |
Variables | |
integer, parameter | rprec = SELECTED_REAL_KIND(12, 100) |
integer, parameter | rprec = SELECTED_REAL_KIND(12, 100) |
integer, parameter | iprec = SELECTED_INT_KIND(8) |
integer, parameter | iprec = SELECTED_INT_KIND(8) |
integer, parameter | cprec = KIND((1.0_rprec, 1.0_rprec)) |
integer, parameter | cprec = KIND((1.0_rprec, 1.0_rprec)) |
integer, parameter | dp = rprec |
integer, parameter | dp = rprec |
integer, parameter stel_kinds::dp = rprec | +integer, parameter stel_kinds::dp = rprec |
Variables | |
real(rprec), dimension(nsd) | dshear |
real(rprec), dimension(nsd) | dshear |
real(rprec), dimension(nsd) | dwell |
real(rprec), dimension(nsd) | dwell |
real(rprec), dimension(nsd) | dcurr |
real(rprec), dimension(nsd) | dcurr |
real(rprec), dimension(nsd) | dmerc |
real(rprec), dimension(nsd) | dmerc |
real(rprec), dimension(nsd) | dgeod |
real(rprec), dimension(nsd) | dgeod |
Functions/Subroutines | |
real(rprec) function | aspectratio () |
real(rprec) function | aspectratio () |
compute aspect-ratio (independent of elongation): \(A = <R>/\sqrt{<a b>}\) where \(\pi <a>^2 = \textrm{Area (toroidally averaged)}\) and \(2 \pi <R> \textrm{Area} = \textrm{Volume}\) | |
Functions/Subroutines | |
subroutine | totzsps (rzl_array, r11, ru1, rv1, z11, zu1, zv1, lu1, lv1, rcn1, zcn1) |
subroutine | totzsps (rzl_array, r11, ru1, rv1, z11, zu1, zv1, lu1, lv1, rcn1, zcn1) |
Inverse-Fourier-transform symmetric part of geometry from Fourier space to real space. | |
subroutine | convert_sym (rmnss, zmncs) |
subroutine | convert_sym (rmnss, zmncs) |
Convert from internal representation to "physical" rmnss, zmncs Fourier form. | |
subroutine | totzspa (rzl_array, r11, ru1, rv1, z11, zu1, zv1, lu1, lv1, rcn1, zcn1) |
subroutine | totzspa (rzl_array, r11, ru1, rv1, z11, zu1, zv1, lu1, lv1, rcn1, zcn1) |
Inverse-Fourier-transform anti-symmetric part of geometry from Fourier space to real space. | |
subroutine | convert_asym (rmnsc, zmncc) |
subroutine | convert_asym (rmnsc, zmncc) |
Convert from internal representation to "physical" rmnsc, zmncc Fourier form. | |
Functions/Subroutines | |
subroutine | reset_params |
subroutine | reset_params |
Reset some flow-control parameters to their default values. | |
Functions/Subroutines | |
subroutine | interp (xnew, xold, scalxc, nsnew, nsold) |
subroutine | interp (xnew, xold, scalxc, nsnew, nsold) |
Interpolate \(R\), \(Z\) and \(\lambda\) on full grid. | |
Variables | |
integer, dimension(:), allocatable | ixm |
integer, dimension(:), allocatable | ixm |
integer, dimension(:), allocatable | jmin3 |
integer, dimension(:), allocatable | jmin3 |
real(rprec), dimension(:,:), allocatable | cosmu |
real(rprec), dimension(:,:), allocatable | cosmu |
real(rprec), dimension(:,:), allocatable | sinmu |
real(rprec), dimension(:,:), allocatable | sinmu |
real(rprec), dimension(:,:), allocatable | cosmum |
real(rprec), dimension(:,:), allocatable | cosmum |
real(rprec), dimension(:,:), allocatable | sinmum |
real(rprec), dimension(:,:), allocatable | sinmum |
real(rprec), dimension(:,:), allocatable | cosmumi |
real(rprec), dimension(:,:), allocatable | cosmumi |
real(rprec), dimension(:,:), allocatable | sinmumi |
real(rprec), dimension(:,:), allocatable | sinmumi |
real(rprec), dimension(:,:), allocatable | cosnv |
real(rprec), dimension(:,:), allocatable | cosnv |
real(rprec), dimension(:,:), allocatable | sinnv |
real(rprec), dimension(:,:), allocatable | sinnv |
real(rprec), dimension(:,:), allocatable | cosnvn |
real(rprec), dimension(:,:), allocatable | cosnvn |
real(rprec), dimension(:,:), allocatable | sinnvn |
real(rprec), dimension(:,:), allocatable | sinnvn |
real(rprec), dimension(:,:), allocatable | cosmui |
real(rprec), dimension(:,:), allocatable | cosmui |
real(rprec), dimension(:,:), allocatable | sinmui |
real(rprec), dimension(:,:), allocatable | sinmui |
real(rprec), dimension(:,:), allocatable | cosmui3 |
real(rprec), dimension(:,:), allocatable | cosmui3 |
real(rprec), dimension(:,:), allocatable | cosmumi3 |
real(rprec), dimension(:,:), allocatable | cosmumi3 |
real(rprec), dimension(:), allocatable, target | xm |
real(rprec), dimension(:), allocatable, target | xm |
real(rprec), dimension(:), allocatable, target | xn |
real(rprec), dimension(:), allocatable, target | xn |
real(rprec), dimension(:), allocatable, target | xm_nyq |
real(rprec), dimension(:), allocatable, target | xm_nyq |
real(rprec), dimension(:), allocatable, target | xn_nyq |
real(rprec), dimension(:), allocatable, target | xn_nyq |
real(rprec), dimension(:), allocatable | cos01 |
real(rprec), dimension(:), allocatable | cos01 |
real(rprec), dimension(:), allocatable | sin01 |
real(rprec), dimension(:), allocatable | sin01 |
Functions/Subroutines | |
subroutine | vacuum (rmnc, rmns, zmns, zmnc, xm, xn, plascur, rbtor, wint, ivac_skip, ivac, mnmax, ier_flag, lasym, signgs, raxis, zaxis) |
subroutine | vacuum (rmnc, rmns, zmns, zmnc, xm, xn, plascur, rbtor, wint, ivac_skip, ivac, mnmax, ier_flag, lasym, signgs, raxis, zaxis) |
Compute the vacuum contribution to the free-boundary energy functional. | |
Functions/Subroutines | |
subroutine | profil3d (rmn, zmn, lreset) |
subroutine | profil3d (rmn, zmn, lreset) |
Compute three-dimensional profiles of flux-surface geometry etc. | |
Functions/Subroutines | |
subroutine | precal |
subroutine | precal |
Pre-compute constant terms required for NESTOR. | |
Functions/Subroutines | |
subroutine | allocate_nestor |
subroutine | allocate_nestor |
subroutine | free_mem_nestor |
subroutine | free_mem_nestor |
Variables | |
real(rprec), parameter | p5 = cp5 |
real(rprec), parameter | p5 = cp5 |
real(rprec), parameter | two = c2p0 |
real(rprec), parameter | two = c2p0 |
real(rprec) | bsubvvac |
real(rprec) | bsubvvac |
real(rprec) | pi2 |
real(rprec) | pi2 |
real(rprec) | pi3 |
real(rprec) | pi3 |
real(rprec) | pi4 |
real(rprec) | pi4 |
real(rprec) | alp |
real(rprec) | alp |
real(rprec) | alu |
real(rprec) | alu |
real(rprec) | alv |
real(rprec) | alv |
real(rprec) | alvp |
real(rprec) | alvp |
real(rprec) | onp |
real(rprec) | onp |
real(rprec) | onp2 |
real(rprec) | onp2 |
logical | precal_done |
logical | precal_done |
real(rprec), dimension(:), allocatable, target | potvac |
real(rprec), dimension(:), allocatable, target | potvac |
real(rprec), dimension(:), allocatable | m_map_wrt |
real(rprec), dimension(:), allocatable | m_map_wrt |
real(rprec), dimension(:), allocatable | n_map_wrt |
real(rprec), dimension(:), allocatable | n_map_wrt |
real(rprec), dimension(:), allocatable | bvecsav |
real(rprec), dimension(:), allocatable | bvecsav |
real(rprec), dimension(:), allocatable | amatsav |
real(rprec), dimension(:), allocatable | amatsav |
real(rprec), dimension(:), allocatable | bexni |
real(rprec), dimension(:), allocatable | bexni |
real(rprec), dimension(:), allocatable | brv |
real(rprec), dimension(:), allocatable | brv |
real(rprec), dimension(:), allocatable | bphiv |
real(rprec), dimension(:), allocatable | bphiv |
real(rprec), dimension(:), allocatable | bzv |
real(rprec), dimension(:), allocatable | bzv |
real(rprec), dimension(:), allocatable | bsqvac |
real(rprec), dimension(:), allocatable | bsqvac |
real(rprec), dimension(:), allocatable | r1b |
real(rprec), dimension(:), allocatable | r1b |
real(rprec), dimension(:), allocatable | rub |
real(rprec), dimension(:), allocatable | rub |
real(rprec), dimension(:), allocatable | rvb |
real(rprec), dimension(:), allocatable | rvb |
real(rprec), dimension(:), allocatable | z1b |
real(rprec), dimension(:), allocatable | z1b |
real(rprec), dimension(:), allocatable | zub |
real(rprec), dimension(:), allocatable | zub |
real(rprec), dimension(:), allocatable | zvb |
real(rprec), dimension(:), allocatable | zvb |
real(rprec), dimension(:), allocatable | bexu |
real(rprec), dimension(:), allocatable | bexu |
real(rprec), dimension(:), allocatable | bexv |
real(rprec), dimension(:), allocatable | bexv |
real(rprec), dimension(:), allocatable | bexn |
real(rprec), dimension(:), allocatable | bexn |
real(rprec), dimension(:), allocatable | auu |
real(rprec), dimension(:), allocatable | auu |
real(rprec), dimension(:), allocatable | auv |
real(rprec), dimension(:), allocatable | auv |
real(rprec), dimension(:), allocatable | avv |
real(rprec), dimension(:), allocatable | avv |
real(rprec), dimension(:), allocatable | snr |
real(rprec), dimension(:), allocatable | snr |
real(rprec), dimension(:), allocatable | snv |
real(rprec), dimension(:), allocatable | snv |
real(rprec), dimension(:), allocatable | snz |
real(rprec), dimension(:), allocatable | snz |
real(rprec), dimension(:), allocatable | drv |
real(rprec), dimension(:), allocatable | drv |
real(rprec), dimension(:), allocatable | guu_b |
real(rprec), dimension(:), allocatable | guu_b |
real(rprec), dimension(:), allocatable | guv_b |
real(rprec), dimension(:), allocatable | guv_b |
real(rprec), dimension(:), allocatable | gvv_b |
real(rprec), dimension(:), allocatable | gvv_b |
real(rprec), dimension(:), allocatable | rzb2 |
real(rprec), dimension(:), allocatable | rzb2 |
real(rprec), dimension(:), allocatable | rcosuv |
real(rprec), dimension(:), allocatable | rcosuv |
real(rprec), dimension(:), allocatable | rsinuv |
real(rprec), dimension(:), allocatable | rsinuv |
real(rprec), dimension(:), allocatable | raxis_nestor |
real(rprec), dimension(:), allocatable | raxis_nestor |
real(rprec), dimension(:), allocatable | zaxis_nestor |
real(rprec), dimension(:), allocatable | zaxis_nestor |
real(rprec), dimension(:), allocatable | bsubu |
real(rprec), dimension(:), allocatable | bsubu |
real(rprec), dimension(:), allocatable | bsubv |
real(rprec), dimension(:), allocatable | bsubv |
real(rprec), dimension(:), allocatable | potu |
real(rprec), dimension(:), allocatable | potu |
real(rprec), dimension(:), allocatable | potv |
real(rprec), dimension(:), allocatable | potv |
real(rprec), dimension(:), allocatable | amatrix |
real(rprec), dimension(:), allocatable | amatrix |
real(rprec), dimension(:), allocatable | ruu |
real(rprec), dimension(:), allocatable | ruu |
real(rprec), dimension(:), allocatable | ruv |
real(rprec), dimension(:), allocatable | ruv |
real(rprec), dimension(:), allocatable | rvv |
real(rprec), dimension(:), allocatable | rvv |
real(rprec), dimension(:), allocatable | zuu |
real(rprec), dimension(:), allocatable | zuu |
real(rprec), dimension(:), allocatable | zuv |
real(rprec), dimension(:), allocatable | zuv |
real(rprec), dimension(:), allocatable | zvv |
real(rprec), dimension(:), allocatable | zvv |
real(rprec), dimension(:), allocatable | brad |
real(rprec), dimension(:), allocatable | brad |
real(rprec), dimension(:), allocatable | bphi |
real(rprec), dimension(:), allocatable | bphi |
real(rprec), dimension(:), allocatable | bz |
real(rprec), dimension(:), allocatable | bz |
real(rprec), dimension(:,:), allocatable | xpts |
real(rprec), dimension(:,:), allocatable | xpts |
real(rprec), dimension(:), allocatable | grpmn |
real(rprec), dimension(:), allocatable | grpmn |
real(rprec), dimension(:), allocatable | grpmn_m_map_wrt |
real(rprec), dimension(:), allocatable | grpmn_m_map_wrt |
real(rprec), dimension(:), allocatable | grpmn_n_map_wrt |
real(rprec), dimension(:), allocatable | grpmn_n_map_wrt |
real(rprec), dimension(:), allocatable | gstore |
real(rprec), dimension(:), allocatable | gstore |
real(rprec), dimension(:,:), allocatable | green |
real(rprec), dimension(:,:), allocatable | green |
real(rprec), dimension(:,:), allocatable | greenp |
real(rprec), dimension(:,:), allocatable | greenp |
real(rprec), dimension(:), allocatable | r0p |
real(rprec), dimension(:), allocatable | r0p |
real(rprec), dimension(:), allocatable | r1p |
real(rprec), dimension(:), allocatable | r1p |
real(rprec), dimension(:), allocatable | r0m |
real(rprec), dimension(:), allocatable | r0m |
real(rprec), dimension(:), allocatable | r1m |
real(rprec), dimension(:), allocatable | r1m |
real(rprec), dimension(:), allocatable | sqrtc |
real(rprec), dimension(:), allocatable | sqrtc |
real(rprec), dimension(:), allocatable | sqrta |
real(rprec), dimension(:), allocatable | sqrta |
real(rprec), dimension(:), allocatable | tlp2 |
real(rprec), dimension(:), allocatable | tlp2 |
real(rprec), dimension(:), allocatable | tlp1 |
real(rprec), dimension(:), allocatable | tlp1 |
real(rprec), dimension(:), allocatable | tlp |
real(rprec), dimension(:), allocatable | tlp |
real(rprec), dimension(:), allocatable | tlm2 |
real(rprec), dimension(:), allocatable | tlm2 |
real(rprec), dimension(:), allocatable | tlm1 |
real(rprec), dimension(:), allocatable | tlm1 |
real(rprec), dimension(:), allocatable | tlm |
real(rprec), dimension(:), allocatable | tlm |
real(rprec), dimension(:), allocatable | adp |
real(rprec), dimension(:), allocatable | adp |
real(rprec), dimension(:), allocatable | adm |
real(rprec), dimension(:), allocatable | adm |
real(rprec), dimension(:), allocatable | cma |
real(rprec), dimension(:), allocatable | cma |
real(rprec), dimension(:), allocatable | ra1p |
real(rprec), dimension(:), allocatable | ra1p |
real(rprec), dimension(:), allocatable | ra1m |
real(rprec), dimension(:), allocatable | ra1m |
real(rprec), dimension(:), allocatable | slm |
real(rprec), dimension(:), allocatable | slm |
real(rprec), dimension(:), allocatable | slp |
real(rprec), dimension(:), allocatable | slp |
real(rprec), dimension(:), allocatable | tlpm |
real(rprec), dimension(:), allocatable | tlpm |
real(rprec), dimension(:), allocatable | slpm |
real(rprec), dimension(:), allocatable | slpm |
real(rprec), dimension(:), allocatable | delt1u |
real(rprec), dimension(:), allocatable | delt1u |
real(rprec), dimension(:), allocatable | azp1u |
real(rprec), dimension(:), allocatable | azp1u |
real(rprec), dimension(:), allocatable | azm1u |
real(rprec), dimension(:), allocatable | azm1u |
real(rprec), dimension(:), allocatable | cma11u |
real(rprec), dimension(:), allocatable | cma11u |
real(rprec), dimension(:), allocatable | sqad1u |
real(rprec), dimension(:), allocatable | sqad1u |
real(rprec), dimension(:), allocatable | sqad2u |
real(rprec), dimension(:), allocatable | sqad2u |
real(rprec), dimension(:,:), allocatable | all_tlp |
real(rprec), dimension(:,:), allocatable | all_tlp |
real(rprec), dimension(:,:), allocatable | all_tlm |
real(rprec), dimension(:,:), allocatable | all_tlm |
real(rprec), dimension(:,:), allocatable | all_slp |
real(rprec), dimension(:,:), allocatable | all_slp |
real(rprec), dimension(:,:), allocatable | all_slm |
real(rprec), dimension(:,:), allocatable | all_slm |
real(rprec), dimension(:), allocatable | gsave |
real(rprec), dimension(:), allocatable | gsave |
real(rprec), dimension(:,:), allocatable | ga1 |
real(rprec), dimension(:,:), allocatable | ga1 |
real(rprec), dimension(:,:), allocatable | ga2 |
real(rprec), dimension(:,:), allocatable | ga2 |
real(rprec), dimension(:), allocatable | dsave |
real(rprec), dimension(:), allocatable | dsave |
real(rprec), dimension(:,:,:), allocatable | g1 |
real(rprec), dimension(:,:,:), allocatable | g1 |
real(rprec), dimension(:,:,:), allocatable | g2 |
real(rprec), dimension(:,:,:), allocatable | g2 |
real(rprec), dimension(:,:,:), allocatable | bcos |
real(rprec), dimension(:,:,:), allocatable | bcos |
real(rprec), dimension(:,:,:), allocatable | bsin |
real(rprec), dimension(:,:,:), allocatable | bsin |
real(rprec), dimension(:,:,:), allocatable | source |
real(rprec), dimension(:,:,:), allocatable | source |
real(rprec), dimension(:,:,:,:), allocatable | actemp |
real(rprec), dimension(:,:,:,:), allocatable | actemp |
real(rprec), dimension(:,:,:,:), allocatable | astemp |
real(rprec), dimension(:,:,:,:), allocatable | astemp |
Functions/Subroutines | |
subroutine | forces |
subroutine | forces |
Compute the real-space MHD forces. | |
Functions/Subroutines | |
subroutine | mercier (gsqrt, bsq, bdotj, iotas, wint, r1, rt, rz, zt, zz, bsubu, vp, phips, pres, ns, nznt) |
subroutine | mercier (gsqrt, bsq, bdotj, iotas, wint, r1, rt, rz, zt, zz, bsubu, vp, phips, pres, ns, nznt) |
Evaluate the Mercier stability criterion. | |
Functions/Subroutines | |
subroutine | wrout (bsq, gsqrt, bsubu, bsubv, bsubs, bsupv, bsupu, rzl_array, gc_array, ier_flag) |
subroutine | wrout (bsq, gsqrt, bsubu, bsubv, bsubs, bsupv, bsupu, rzl_array, gc_array, ier_flag) |
Write the output files of VMEC. | |
Functions/Subroutines | |
subroutine | spline_cubic_int (x, y, xx, yy, n, iflag) |
subroutine | spline_cubic_int (x, y, xx, yy, n, iflag) |
subroutine | spline_int (x, y, n, yp1, ypn, y2) |
subroutine | spline_int (x, y, n, yp1, ypn, y2) |
Functions/Subroutines | |
subroutine | evolve (time_step, ier_flag, liter_flag) |
subroutine | evolve (time_step, ier_flag, liter_flag) |
Take a single time step in Fourier space to evolve the Fourier coefficients describing the equilibrium towards force balance. | |
Functions/Subroutines | |
subroutine | spectrum (rmn, zmn) |
subroutine | spectrum (rmn, zmn) |
Compute the spectral width of the surface geometry Fourier coefficients. | |
Functions/Subroutines | |
subroutine | free_mem_nunv |
subroutine | free_mem_nunv |
Free arrays depending on the number of Fourier coefficients nunv . | |
Functions/Subroutines | |
program | hello |
program | hello |
subroutine | spline_akima (x, y, xx, yy, npts, iflag) |
subroutine | spline_akima (x, y, xx, yy, npts, iflag) |
Variables | |
real(dp), parameter | pi = 4.0_dp * datan(1.0_dp) |
real(dp), parameter | pi = 4.0_dp * datan(1.0_dp) |
real(dp), parameter | pio2 = 2.0_dp * datan(1.0_dp) |
real(dp), parameter | pio2 = 2.0_dp * datan(1.0_dp) |
real(dp), parameter | twopi = 8.0_dp * datan(1.0_dp) |
real(dp), parameter | twopi = 8.0_dp * datan(1.0_dp) |
real(dp), parameter | sqrt2 = 1.41421356237309504880168872_dp |
real(dp), parameter | sqrt2 = 1.41421356237309504880168872_dp |
real(dp), parameter | degree = twopi / 360_dp |
real(dp), parameter | degree = twopi / 360_dp |
real(dp), parameter | one = 1.0_dp |
real(dp), parameter | one = 1.0_dp |
real(dp), parameter | zero = 0.0_dp |
real(dp), parameter | zero = 0.0_dp |
real(dp), parameter | mu0 = 2.0e-7_dp * twopi |
real(dp), parameter | mu0 = 2.0e-7_dp * twopi |
real(dp), parameter stel_constants::degree = twopi / 360_dp | +real(dp), parameter stel_constants::degree = twopi / 360_dp |
real(dp), parameter stel_constants::mu0 = 2.0e-7_dp * twopi | +real(dp), parameter stel_constants::mu0 = 2.0e-7_dp * twopi |
Functions/Subroutines | |
subroutine | greenf (delgr, delgrp, ip) |
subroutine | greenf (delgr, delgrp, ip) |
Compute the regularized evaluation of the Green's function and the source term. | |
Functions/Subroutines | |
real(rprec) function, public | two_power (x, b) |
real(rprec) function, public | two_power (x, b) |
Profile function for the two_power profile. \(b(0) * (1 - x^{b(1)})^{b(2)}\). | |
real(rprec) function, public | two_power_gs (x, b) |
real(rprec) function, public | two_power_gs (x, b) |
Profile function for the two_power_gs profile. \(\texttt{two\_power}(x)*(1 + \sum\left[b(i)*\exp(-(x - b(i+1))/b(i+2))^2\right])\). | |
logical function | function_test () |
logical function | function_test () |
Main test function. | |
Variables | |
integer, dimension(:), allocatable | imirr |
integer, dimension(:), allocatable | imirr |
real(rprec), dimension(:), allocatable | sinper |
real(rprec), dimension(:), allocatable | sinper |
real(rprec), dimension(:), allocatable | cosper |
real(rprec), dimension(:), allocatable | cosper |
real(rprec), dimension(:), allocatable | sinuv |
real(rprec), dimension(:), allocatable | sinuv |
real(rprec), dimension(:), allocatable | cosuv |
real(rprec), dimension(:), allocatable | cosuv |
real(rprec), dimension(:), allocatable | tanu |
real(rprec), dimension(:), allocatable | tanu |
real(rprec), dimension(:), allocatable | tanv |
real(rprec), dimension(:), allocatable | tanv |
real(rprec), dimension(:), allocatable | tanu_1d |
real(rprec), dimension(:), allocatable | tanu_1d |
real(rprec), dimension(:), allocatable | tanv_1d |
real(rprec), dimension(:), allocatable | tanv_1d |
real(rprec), dimension(:), allocatable | xmpot |
real(rprec), dimension(:), allocatable | xmpot |
real(rprec), dimension(:), allocatable | xnpot |
real(rprec), dimension(:), allocatable | xnpot |
real(rprec), dimension(:), allocatable | csign |
real(rprec), dimension(:), allocatable | csign |
real(rprec), dimension(:,:), allocatable | sinu |
real(rprec), dimension(:,:), allocatable | sinu |
real(rprec), dimension(:,:), allocatable | cosu |
real(rprec), dimension(:,:), allocatable | cosu |
real(rprec), dimension(:,:), allocatable | sinv |
real(rprec), dimension(:,:), allocatable | sinv |
real(rprec), dimension(:,:), allocatable | cosv |
real(rprec), dimension(:,:), allocatable | cosv |
real(rprec), dimension(:,:), allocatable | sinui |
real(rprec), dimension(:,:), allocatable | sinui |
real(rprec), dimension(:,:), allocatable | cosui |
real(rprec), dimension(:,:), allocatable | cosui |
real(rprec), dimension(:,:), allocatable | sinu1 |
real(rprec), dimension(:,:), allocatable | sinu1 |
real(rprec), dimension(:,:), allocatable | cosu1 |
real(rprec), dimension(:,:), allocatable | cosu1 |
real(rprec), dimension(:,:), allocatable | sinv1 |
real(rprec), dimension(:,:), allocatable | sinv1 |
real(rprec), dimension(:,:), allocatable | cosv1 |
real(rprec), dimension(:,:), allocatable | cosv1 |
real(rprec), dimension(:,:,:), allocatable | cmns |
real(rprec), dimension(:,:,:), allocatable | cmns |
real(rprec), dimension(:), allocatable | bsubu_sur |
real(rprec), dimension(:), allocatable | bsubu_sur |
real(rprec), dimension(:), allocatable | bsubv_sur |
real(rprec), dimension(:), allocatable | bsubv_sur |
real(rprec), dimension(:), allocatable | bsupu_sur |
real(rprec), dimension(:), allocatable | bsupu_sur |
real(rprec), dimension(:), allocatable | bsupv_sur |
real(rprec), dimension(:), allocatable | bsupv_sur |
Functions/Subroutines | |
subroutine | analysum (grpmn, bvec, sl, tl, m, n, l, ivacskip, lasym, m_map, n_map, grpmn_m_map, grpmn_n_map) |
subroutine | analysum (grpmn, bvec, sl, tl, m, n, l, ivacskip, lasym, m_map, n_map, grpmn_m_map, grpmn_n_map) |
Compute the (m=0 or n=0) part of the DFT of the analytical Fourier transforms of the equivalently-singular integrals. | |
▼ src | |
► data |
▼ src | |
► data | |
► NESTOR | |
► NESTOR |
THE POLOIDAL ANGLE IS DETERMINED BY MINIMIZING <M> = m**2 S(m) , WHERE S(m) = Rm**2 + Zm**2 .
Mdbgout | |
Mfunctions | |
Mline_segment | This module containes code to create a profile constructed of line segments. These line segments are assumed to be specified such that \(xx(i) < xx(i + 1)\) |
Mmgrid_mod | |
Mnestor_io | Input and Output for stand-alone NESTOR |
▼Mread_wout_mod | Reading of wout VMEC output file |
▼Mread_wout_mod | Reading of wout VMEC output file |
Cread_wout_file | |
Mrealspace | |
Msafe_open_mod | Fault-tolerant file opening routines |