read_wout_mod.f File Reference

Reading of wout VMEC output file. More...

Go to the source code of this file.

Data Types
interface	read_wout_mod::read_wout_file

Modules
module	read_wout_mod
	Reading of wout VMEC output file.

Functions/Subroutines
subroutine	read_wout_mod::readw_and_open (file_or_extension, ierr, iopen)
subroutine	read_wout_mod::compute_currents (ierror)
subroutine	read_wout_mod::read_wout_deallocate
subroutine	read_wout_mod::tosuvspace (s_in, u_in, v_in, gsqrt, bsupu, bsupv, jsupu, jsupv, lam)
subroutine	read_wout_mod::loadrzl

Variables
character(len= *), parameter	read_wout_mod::vn_version = 'version_'
character(len= *), parameter	read_wout_mod::vn_extension = 'input_extension'
character(len= *), parameter	read_wout_mod::vn_mgrid = 'mgrid_file'
character(len= *), parameter	read_wout_mod::vn_magen = 'wb'
character(len= *), parameter	read_wout_mod::vn_therm = 'wp'
character(len= *), parameter	read_wout_mod::vn_gam = 'gamma'
character(len= *), parameter	read_wout_mod::vn_maxr = 'rmax_surf'
character(len= *), parameter	read_wout_mod::vn_minr = 'rmin_surf'
character(len= *), parameter	read_wout_mod::vn_maxz = 'zmax_surf'
character(len= *), parameter	read_wout_mod::vn_fp = 'nfp'
character(len= *), parameter	read_wout_mod::vn_radnod = 'ns'
character(len= *), parameter	read_wout_mod::vn_polmod = 'mpol'
character(len= *), parameter	read_wout_mod::vn_tormod = 'ntor'
character(len= *), parameter	read_wout_mod::vn_maxmod = 'mnmax'
character(len= *), parameter	read_wout_mod::vn_maxit = 'niter'
character(len= *), parameter	read_wout_mod::vn_asym = 'lasym'
character(len= *), parameter	read_wout_mod::vn_free = 'lfreeb'
character(len= *), parameter	read_wout_mod::vn_error = 'ier_flag'
character(len= *), parameter	read_wout_mod::vn_aspect = 'aspect'
character(len= *), parameter	read_wout_mod::vn_maxmod_nyq = 'mnmax_nyq'
character(len= *), parameter	read_wout_mod::vn_beta = 'betatotal'
character(len= *), parameter	read_wout_mod::vn_pbeta = 'betapol'
character(len= *), parameter	read_wout_mod::vn_tbeta = 'betator'
character(len= *), parameter	read_wout_mod::vn_abeta = 'betaxis'
character(len= *), parameter	read_wout_mod::vn_b0 = 'b0'
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_sgs = 'signgs'
character(len= *), parameter	read_wout_mod::vn_lar = 'IonLarmor'
character(len= *), parameter	read_wout_mod::vn_modb = 'volavgB'
character(len= *), parameter	read_wout_mod::vn_ctor = 'ctor'
character(len= *), parameter	read_wout_mod::vn_amin = 'Aminor_p'
character(len= *), parameter	read_wout_mod::vn_rmaj = 'Rmajor_p'
character(len= *), parameter	read_wout_mod::vn_vol = 'volume_p'
character(len= *), parameter	read_wout_mod::vn_am = 'am'
character(len= *), parameter	read_wout_mod::vn_ai = 'ai'
character(len= *), parameter	read_wout_mod::vn_ac = 'ac'
character(len= *), parameter	read_wout_mod::vn_ah = 'hot particle fraction'
character(len= *), parameter	read_wout_mod::vn_atuname = 'T-perp/T-par'
character(len= *), parameter	read_wout_mod::vn_pmass_type = 'pmass_type'
character(len= *), parameter	read_wout_mod::vn_piota_type = 'piota_type'
character(len= *), parameter	read_wout_mod::vn_pcurr_type = 'pcurr_type'
character(len= *), parameter	read_wout_mod::vn_am_aux_s = 'am_aux_s'
character(len= *), parameter	read_wout_mod::vn_am_aux_f = 'am_aux_f'
character(len= *), parameter	read_wout_mod::vn_ai_aux_s = 'ai_aux_s'
character(len= *), parameter	read_wout_mod::vn_ai_aux_f = 'ai_aux_f'
character(len= *), parameter	read_wout_mod::vn_ac_aux_s = 'ac_aux_s'
character(len= *), parameter	read_wout_mod::vn_ac_aux_f = 'ac_aux_f'
character(len= *), parameter	read_wout_mod::vn_mse = 'imse'
character(len= *), parameter	read_wout_mod::vn_thom = 'itse'
character(len= *), parameter	read_wout_mod::vn_pmod = 'xm'
character(len= *), parameter	read_wout_mod::vn_tmod = 'xn'
character(len= *), parameter	read_wout_mod::vn_pmod_nyq = 'xm_nyq'
character(len= *), parameter	read_wout_mod::vn_tmod_nyq = 'xn_nyq'
character(len= *), parameter	read_wout_mod::vn_racc = 'raxis_cc'
character(len= *), parameter	read_wout_mod::vn_zacs = 'zaxis_cs'
character(len= *), parameter	read_wout_mod::vn_racs = 'raxis_cs'
character(len= *), parameter	read_wout_mod::vn_zacc = 'zaxis_cc'
character(len= *), parameter	read_wout_mod::vn_iotaf = 'iotaf'
character(len= *), parameter	read_wout_mod::vn_qfact ='q-factor'
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_presf = 'presf'
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_jcuru = 'jcuru'
character(len= *), parameter	read_wout_mod::vn_jcurv = 'jcurv'
character(len= *), parameter	read_wout_mod::vn_iotah = 'iotas'
character(len= *), parameter	read_wout_mod::vn_mass = 'mass'
character(len= *), parameter	read_wout_mod::vn_presh = 'pres'
character(len= *), parameter	read_wout_mod::vn_betah = 'beta_vol'
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_vp = 'vp'
character(len= *), parameter	read_wout_mod::vn_specw = 'specw'
character(len= *), parameter	read_wout_mod::vn_phip = 'phips'
character(len= *), parameter	read_wout_mod::vn_jdotb = 'jdotb'
character(len= *), parameter	read_wout_mod::vn_bdotb = 'bdotb'
character(len= *), parameter	read_wout_mod::vn_overr = 'over_r'
character(len= *), parameter	read_wout_mod::vn_bgrv = 'bdotgradv'
character(len= *), parameter	read_wout_mod::vn_merc = 'DMerc'
character(len= *), parameter	read_wout_mod::vn_mshear = 'DShear'
character(len= *), parameter	read_wout_mod::vn_mwell = 'DWell'
character(len= *), parameter	read_wout_mod::vn_mcurr = 'DCurr'
character(len= *), parameter	read_wout_mod::vn_mgeo = 'DGeod'
character(len= *), parameter	read_wout_mod::vn_equif = 'equif'
character(len= *), parameter	read_wout_mod::vn_fsq = 'fsqt'
character(len= *), parameter	read_wout_mod::vn_wdot = 'wdot'
character(len= *), parameter	read_wout_mod::vn_ftolv = 'ftolv'
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_fsqz = 'fsqz'
character(len= *), parameter	read_wout_mod::vn_extcur = 'extcur'
character(len= *), parameter	read_wout_mod::vn_curlab = 'curlabel'
character(len= *), parameter	read_wout_mod::vn_rmnc = 'rmnc'
character(len= *), parameter	read_wout_mod::vn_zmns = 'zmns'
character(len= *), parameter	read_wout_mod::vn_lmns = 'lmns'
character(len= *), parameter	read_wout_mod::vn_gmnc = 'gmnc'
character(len= *), parameter	read_wout_mod::vn_bmnc = 'bmnc'
character(len= *), parameter	read_wout_mod::vn_bsubumnc = 'bsubumnc'
character(len= *), parameter	read_wout_mod::vn_bsubvmnc = 'bsubvmnc'
character(len= *), parameter	read_wout_mod::vn_bsubsmns = 'bsubsmns'
character(len= *), parameter	read_wout_mod::vn_bsupumnc = 'bsupumnc'
character(len= *), parameter	read_wout_mod::vn_bsupvmnc = 'bsupvmnc'
character(len= *), parameter	read_wout_mod::vn_rmns = 'rmns'
character(len= *), parameter	read_wout_mod::vn_zmnc = 'zmnc'
character(len= *), parameter	read_wout_mod::vn_lmnc = 'lmnc'
character(len= *), parameter	read_wout_mod::vn_gmns = 'gmns'
character(len= *), parameter	read_wout_mod::vn_bmns = 'bmns'
character(len= *), parameter	read_wout_mod::vn_bsubumns = 'bsubumns'
character(len= *), parameter	read_wout_mod::vn_bsubvmns = 'bsubvmns'
character(len= *), parameter	read_wout_mod::vn_bsubsmnc = 'bsubsmnc'
character(len= *), parameter	read_wout_mod::vn_bsupumns = 'bsupumns'
character(len= *), parameter	read_wout_mod::vn_bsupvmns = 'bsupvmns'
character(len= *), parameter	read_wout_mod::vn_bsubumnc_sur = 'bsubumnc_sur'
character(len= *), parameter	read_wout_mod::vn_bsubvmnc_sur = 'bsubvmnc_sur'
character(len= *), parameter	read_wout_mod::vn_bsupumnc_sur = 'bsupumnc_sur'
character(len= *), parameter	read_wout_mod::vn_bsupvmnc_sur = 'bsupvmnc_sur'
character(len= *), parameter	read_wout_mod::vn_bsubumns_sur = 'bsubumns_sur'
character(len= *), parameter	read_wout_mod::vn_bsubvmns_sur = 'bsubvmns_sur'
character(len= *), parameter	read_wout_mod::vn_bsupumns_sur = 'bsupumns_sur'
character(len= *), parameter	read_wout_mod::vn_bsupvmns_sur = 'bsupvmns_sur'
character(len= *), parameter	read_wout_mod::vn_rbc = 'rbc'
character(len= *), parameter	read_wout_mod::vn_zbs = 'zbs'
character(len= *), parameter	read_wout_mod::vn_rbs = 'rbs'
character(len= *), parameter	read_wout_mod::vn_zbc = 'zbc'
character(len= *), parameter	read_wout_mod::vn_potvac = 'potvac'
character(len= *), parameter	read_wout_mod::ln_version = 'VMEC Version'
character(len= *), parameter	read_wout_mod::ln_extension = 'Input file extension'
character(len= *), parameter	read_wout_mod::ln_mgrid = 'MGRID file'
character(len= *), parameter	read_wout_mod::ln_magen = 'Magnetic Energy'
character(len= *), parameter	read_wout_mod::ln_therm = 'Thermal Energy'
character(len= *), parameter	read_wout_mod::ln_gam = 'Gamma'
character(len= *), parameter	read_wout_mod::ln_maxr = 'Maximum R'
character(len= *), parameter	read_wout_mod::ln_minr = 'Minimum R'
character(len= *), parameter	read_wout_mod::ln_maxz = 'Maximum Z'
character(len= *), parameter	read_wout_mod::ln_fp = 'Field Periods'
character(len= *), parameter	read_wout_mod::ln_radnod = 'Radial nodes'
character(len= *), parameter	read_wout_mod::ln_polmod = 'Poloidal modes'
character(len= *), parameter	read_wout_mod::ln_tormod = 'Toroidal modes'
character(len= *), parameter	read_wout_mod::ln_maxmod = 'Fourier modes'
character(len= *), parameter	read_wout_mod::ln_maxmod_nyq = 'Fourier modes (Nyquist)'
character(len= *), parameter	read_wout_mod::ln_maxit = 'Max iterations'
character(len= *), parameter	read_wout_mod::ln_asym = 'Asymmetry'
character(len= *), parameter	read_wout_mod::ln_recon = 'Reconstruction'
character(len= *), parameter	read_wout_mod::ln_free = 'Free boundary'
character(len= *), parameter	read_wout_mod::ln_error = 'Error flag'
character(len= *), parameter	read_wout_mod::ln_aspect = 'Aspect ratio'
character(len= *), parameter	read_wout_mod::ln_beta = 'Total beta'
character(len= *), parameter	read_wout_mod::ln_pbeta = 'Poloidal beta'
character(len= *), parameter	read_wout_mod::ln_tbeta = 'Toroidal beta'
character(len= *), parameter	read_wout_mod::ln_abeta = 'Beta axis'
character(len= *), parameter	read_wout_mod::ln_b0 = 'RB-t over R axis'
character(len= *), parameter	read_wout_mod::ln_rbt0 = 'RB-t axis'
character(len= *), parameter	read_wout_mod::ln_rbt1 = 'RB-t edge'
character(len= *), parameter	read_wout_mod::ln_sgs = 'Sign jacobian'
character(len= *), parameter	read_wout_mod::ln_lar = 'Ion Larmor radius'
character(len= *), parameter	read_wout_mod::ln_modb = 'avg mod B'
character(len= *), parameter	read_wout_mod::ln_ctor = 'Toroidal current'
character(len= *), parameter	read_wout_mod::ln_amin = 'minor radius'
character(len= *), parameter	read_wout_mod::ln_rmaj = 'major radius'
character(len= *), parameter	read_wout_mod::ln_vol = 'Plasma volume'
character(len= *), parameter	read_wout_mod::ln_mse = 'Number of MSE points'
character(len= *), parameter	read_wout_mod::ln_thom = 'Number of Thompson scattering points'
character(len= *), parameter	read_wout_mod::ln_am = 'Specification parameters for mass(s)'
character(len= *), parameter	read_wout_mod::ln_ac = 'Specification parameters for <J>(s)'
character(len= *), parameter	read_wout_mod::ln_ai = 'Specification parameters for iota(s)'
character(len= *), parameter	read_wout_mod::ln_pmass_type = 'Profile type specifier for mass(s)'
character(len= *), parameter	read_wout_mod::ln_pcurr_type = 'Profile type specifier for <J>(s)'
character(len= *), parameter	read_wout_mod::ln_piota_type = 'Profile type specifier for iota(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_f = 'Auxiliary-f parameters for mass(s)'
character(len= *), parameter	read_wout_mod::ln_ac_aux_s = 'Auxiliary-s parameters for <J>(s)'
character(len= *), parameter	read_wout_mod::ln_ac_aux_f = 'Auxiliary-f parameters for <J>(s)'
character(len= *), parameter	read_wout_mod::ln_ai_aux_s = 'Auxiliary-s parameters for iota(s)'
character(len= *), parameter	read_wout_mod::ln_ai_aux_f = 'Auxiliary-f parameters for iota(s)'
character(len= *), parameter	read_wout_mod::ln_pmod = 'Poloidal mode numbers'
character(len= *), parameter	read_wout_mod::ln_tmod = 'Toroidal mode numbers'
character(len= *), parameter	read_wout_mod::ln_pmod_nyq = 'Poloidal mode numbers (Nyquist)'
character(len= *), parameter	read_wout_mod::ln_tmod_nyq = 'Toroidal mode numbers (Nyquist)'
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_zacs = 'zaxis (sinnv)'
character(len= *), parameter	read_wout_mod::ln_zacc = 'zaxis (cosnv)'
character(len= *), parameter	read_wout_mod::ln_iotaf = 'iota on full mesh'
character(len= *), parameter	read_wout_mod::ln_qfact = 'q-factor on full mesh'
character(len= *), parameter	read_wout_mod::ln_presf = 'pressure on full mesh'
character(len= *), parameter	read_wout_mod::ln_phi = 'Toroidal flux 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_chi = 'Poloidal flux 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_jcuru = 'j dot gradu full'
character(len= *), parameter	read_wout_mod::ln_jcurv = 'j dot gradv full'
character(len= *), parameter	read_wout_mod::ln_iotah = 'iota half'
character(len= *), parameter	read_wout_mod::ln_mass = 'mass half'
character(len= *), parameter	read_wout_mod::ln_presh = 'pressure half'
character(len= *), parameter	read_wout_mod::ln_betah = 'beta half'
character(len= *), parameter	read_wout_mod::ln_buco = 'bsubu half'
character(len= *), parameter	read_wout_mod::ln_bvco = 'bsubv half'
character(len= *), parameter	read_wout_mod::ln_vp = 'volume deriv half'
character(len= *), parameter	read_wout_mod::ln_specw = 'Spectral width half'
character(len= *), parameter	read_wout_mod::ln_phip = 'tor flux deriv over 2pi half'
character(len= *), parameter	read_wout_mod::ln_jdotb = 'J dot B'
character(len= *), parameter	read_wout_mod::ln_bdotb = 'B dot B'
character(len= *), parameter	read_wout_mod::ln_bgrv = 'B dot grad v'
character(len= *), parameter	read_wout_mod::ln_merc = 'Mercier criterion'
character(len= *), parameter	read_wout_mod::ln_mshear = 'Shear Mercier'
character(len= *), parameter	read_wout_mod::ln_mwell = 'Well Mercier'
character(len= *), parameter	read_wout_mod::ln_mcurr = 'Current Mercier'
character(len= *), parameter	read_wout_mod::ln_mgeo = 'Geodesic Mercier'
character(len= *), parameter	read_wout_mod::ln_equif ='Average force balance'
character(len= *), parameter	read_wout_mod::ln_fsq = 'Residual decay'
character(len= *), parameter	read_wout_mod::ln_wdot = 'Wdot decay'
character(len= *), parameter	read_wout_mod::ln_extcur = 'External coil currents'
character(len= *), parameter	read_wout_mod::ln_fsqr = 'Residual decay - radial'
character(len= *), parameter	read_wout_mod::ln_fsqz = 'Residual decay - vertical'
character(len= *), parameter	read_wout_mod::ln_fsql = 'Residual decay - hoop'
character(len= *), parameter	read_wout_mod::ln_ftolv = 'Residual decay - requested'
character(len= *), parameter	read_wout_mod::ln_curlab = 'External current names'
character(len= *), parameter	read_wout_mod::ln_rmnc = 'cosmn component of cylindrical R, full mesh'
character(len= *), parameter	read_wout_mod::ln_zmns = 'sinmn component of cylindrical Z, full mesh'
character(len= *), parameter	read_wout_mod::ln_lmns = 'sinmn component of lambda, half mesh'
character(len= *), parameter	read_wout_mod::ln_gmnc = 'cosmn component of jacobian, half mesh'
character(len= *), parameter	read_wout_mod::ln_bmnc = 'cosmn component of mod-B, half mesh'
character(len= *), parameter	read_wout_mod::ln_bsubumnc = 'cosmn covariant u-component of B, half mesh'
character(len= *), parameter	read_wout_mod::ln_bsubvmnc = 'cosmn covariant v-component of B, half mesh'
character(len= *), parameter	read_wout_mod::ln_bsubsmns = 'sinmn covariant s-component of B, full mesh'
character(len= *), parameter	read_wout_mod::ln_bsubumnc_sur = 'cosmn bsubu of B, surface'
character(len= *), parameter	read_wout_mod::ln_bsubvmnc_sur = 'cosmn bsubv of B, surface'
character(len= *), parameter	read_wout_mod::ln_bsupumnc_sur = 'cosmn bsupu of B, surface'
character(len= *), parameter	read_wout_mod::ln_bsupvmnc_sur = 'cosmn bsupv of B, surface'
character(len= *), parameter	read_wout_mod::ln_bsupumnc = 'BSUPUmnc half'
character(len= *), parameter	read_wout_mod::ln_bsupvmnc = 'BSUPVmnc half'
character(len= *), parameter	read_wout_mod::ln_rmns = 'sinmn component of cylindrical R, full mesh'
character(len= *), parameter	read_wout_mod::ln_zmnc = 'cosmn component of cylindrical Z, full mesh'
character(len= *), parameter	read_wout_mod::ln_lmnc = 'cosmn component of lambda, half mesh'
character(len= *), parameter	read_wout_mod::ln_gmns = 'sinmn component of jacobian, half mesh'
character(len= *), parameter	read_wout_mod::ln_bmns = 'sinmn component of mod-B, half mesh'
character(len= *), parameter	read_wout_mod::ln_bsubumns = 'sinmn covariant u-component of B, half mesh'
character(len= *), parameter	read_wout_mod::ln_bsubvmns = 'sinmn covariant v-component of B, half mesh'
character(len= *), parameter	read_wout_mod::ln_bsubsmnc = 'cosmn covariant s-component of B, full mesh'
character(len= *), parameter	read_wout_mod::ln_bsubumns_sur = 'sinmn bsubu of B, surface'
character(len= *), parameter	read_wout_mod::ln_bsubvmns_sur = 'sinmn bsubv of B, surface'
character(len= *), parameter	read_wout_mod::ln_bsupumns_sur = 'sinmn bsupu of B, surface'
character(len= *), parameter	read_wout_mod::ln_bsupvmns_sur = 'sinmn bsupv of B, surface'
character(len= *), parameter	read_wout_mod::ln_bsupumns = 'BSUPUmns half'
character(len= *), parameter	read_wout_mod::ln_bsupvmns = 'BSUPVmns half'
character(len= *), parameter	read_wout_mod::ln_rbc = 'Initial boundary R cos(mu-nv) coefficients'
character(len= *), parameter	read_wout_mod::ln_zbs = 'Initial boundary Z sin(mu-nv) coefficients'
character(len= *), parameter	read_wout_mod::ln_rbs = 'Initial boundary R sin(mu-nv) coefficients'
character(len= *), parameter	read_wout_mod::ln_zbc = 'Initial boundary Z cos(mu-nv) coefficients'
character(len= *), parameter	read_wout_mod::ln_potvac = 'Vacuum Potential on Boundary'
integer	read_wout_mod::nfp
integer	read_wout_mod::ns
integer	read_wout_mod::mpol
integer	read_wout_mod::ntor
integer	read_wout_mod::mnmax
integer	read_wout_mod::mnmax_nyq
integer	read_wout_mod::niter
integer	read_wout_mod::iasym
integer	read_wout_mod::ierr_vmec
integer	read_wout_mod::imse
integer	read_wout_mod::itse
integer	read_wout_mod::isnodes
integer	read_wout_mod::ipnodes
integer	read_wout_mod::imatch_phiedge
integer	read_wout_mod::isigng
integer	read_wout_mod::mnyq
integer	read_wout_mod::nnyq
integer	read_wout_mod::ntmax
real(rprec)	read_wout_mod::wb
real(rprec)	read_wout_mod::wp
real(rprec)	read_wout_mod::gamma
real(rprec)	read_wout_mod::pfac
real(rprec)	read_wout_mod::rmax_surf
real(rprec)	read_wout_mod::rmin_surf
real(rprec)	read_wout_mod::zmax_surf
real(rprec)	read_wout_mod::aspect
real(rprec)	read_wout_mod::betatot
real(rprec)	read_wout_mod::betapol
real(rprec)	read_wout_mod::betator
real(rprec)	read_wout_mod::betaxis
real(rprec)	read_wout_mod::b0
real(rprec)	read_wout_mod::tswgt
real(rprec)	read_wout_mod::msewgt
real(rprec)	read_wout_mod::flmwgt
real(rprec)	read_wout_mod::bcwgt
real(rprec)	read_wout_mod::phidiam
real(rprec)	read_wout_mod::version_
real(rprec)	read_wout_mod::delphid
real(rprec)	read_wout_mod::ionlarmor
real(rprec)	read_wout_mod::volavgb
real(rprec)	read_wout_mod::fsql
real(rprec)	read_wout_mod::fsqr
real(rprec)	read_wout_mod::fsqz
real(rprec)	read_wout_mod::ftolv
real(rprec)	read_wout_mod::aminor
real(rprec)	read_wout_mod::rmajor
real(rprec)	read_wout_mod::volume
real(rprec)	read_wout_mod::rbtor
real(rprec)	read_wout_mod::rbtor0
real(rprec)	read_wout_mod::itor
real(rprec)	read_wout_mod::machsq
real(rprec), dimension(:,:,:,:), allocatable	read_wout_mod::rzl_local
real(rprec), dimension(:,:), allocatable	read_wout_mod::rmnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::zmns
real(rprec), dimension(:,:), allocatable	read_wout_mod::lmns
real(rprec), dimension(:,:), allocatable	read_wout_mod::rmns
real(rprec), dimension(:,:), allocatable	read_wout_mod::zmnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::lmnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::bmnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::gmnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::bsubumnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::bsubvmnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::bsubsmns
real(rprec), dimension(:,:), allocatable	read_wout_mod::bsupumnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::bsupvmnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::currvmnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::currumnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::bbc
real(rprec), dimension(:,:), allocatable	read_wout_mod::raxis
real(rprec), dimension(:,:), allocatable	read_wout_mod::zaxis
real(rprec), dimension(:,:), allocatable	read_wout_mod::bmns
real(rprec), dimension(:,:), allocatable	read_wout_mod::gmns
real(rprec), dimension(:,:), allocatable	read_wout_mod::bsubumns
real(rprec), dimension(:,:), allocatable	read_wout_mod::bsubvmns
real(rprec), dimension(:,:), allocatable	read_wout_mod::bsubsmnc
real(rprec), dimension(:,:), allocatable	read_wout_mod::bsupumns
real(rprec), dimension(:,:), allocatable	read_wout_mod::bsupvmns
real(rprec), dimension(:,:), allocatable	read_wout_mod::currumns
real(rprec), dimension(:,:), allocatable	read_wout_mod::currvmns
real(rprec), dimension(:), allocatable	read_wout_mod::iotas
real(rprec), dimension(:), allocatable	read_wout_mod::iotaf
real(rprec), dimension(:), allocatable	read_wout_mod::presf
real(rprec), dimension(:), allocatable	read_wout_mod::phipf
real(rprec), dimension(:), allocatable	read_wout_mod::mass
real(rprec), dimension(:), allocatable	read_wout_mod::pres
real(rprec), dimension(:), allocatable	read_wout_mod::beta_vol
real(rprec), dimension(:), allocatable	read_wout_mod::xm
real(rprec), dimension(:), allocatable	read_wout_mod::xn
real(rprec), dimension(:), allocatable	read_wout_mod::qfact
real(rprec), dimension(:), allocatable	read_wout_mod::chipf
real(rprec), dimension(:), allocatable	read_wout_mod::phi
real(rprec), dimension(:), allocatable	read_wout_mod::chi
real(rprec), dimension(:), allocatable	read_wout_mod::xm_nyq
real(rprec), dimension(:), allocatable	read_wout_mod::xn_nyq
real(rprec), dimension(:), allocatable	read_wout_mod::phip
real(rprec), dimension(:), allocatable	read_wout_mod::buco
real(rprec), dimension(:), allocatable	read_wout_mod::bvco
real(rprec), dimension(:), allocatable	read_wout_mod::vp
real(rprec), dimension(:), allocatable	read_wout_mod::overr
real(rprec), dimension(:), allocatable	read_wout_mod::jcuru
real(rprec), dimension(:), allocatable	read_wout_mod::jcurv
real(rprec), dimension(:), allocatable	read_wout_mod::specw
real(rprec), dimension(:), allocatable	read_wout_mod::jdotb
real(rprec), dimension(:), allocatable	read_wout_mod::bdotb
real(rprec), dimension(:), allocatable	read_wout_mod::bdotgradv
real(rprec), dimension(:), allocatable	read_wout_mod::fsqt
real(rprec), dimension(:), allocatable	read_wout_mod::wdot
real(rprec), dimension(:), allocatable	read_wout_mod::am
real(rprec), dimension(:), allocatable	read_wout_mod::ac
real(rprec), dimension(:), allocatable	read_wout_mod::ai
real(rprec), dimension(:), allocatable	read_wout_mod::am_aux_s
real(rprec), dimension(:), allocatable	read_wout_mod::am_aux_f
real(rprec), dimension(:), allocatable	read_wout_mod::ac_aux_s
real(rprec), dimension(:), allocatable	read_wout_mod::ac_aux_f
real(rprec), dimension(:), allocatable	read_wout_mod::ai_aux_s
real(rprec), dimension(:), allocatable	read_wout_mod::ai_aux_f
real(rprec), dimension(:), allocatable	read_wout_mod::dmerc
real(rprec), dimension(:), allocatable	read_wout_mod::dshear
real(rprec), dimension(:), allocatable	read_wout_mod::dwell
real(rprec), dimension(:), allocatable	read_wout_mod::dcurr
real(rprec), dimension(:), allocatable	read_wout_mod::dgeod
real(rprec), dimension(:), allocatable	read_wout_mod::equif
real(rprec), dimension(:), allocatable	read_wout_mod::extcur
real(rprec), dimension(:), allocatable	read_wout_mod::sknots
real(rprec), dimension(:), allocatable	read_wout_mod::ystark
real(rprec), dimension(:), allocatable	read_wout_mod::y2stark
real(rprec), dimension(:), allocatable	read_wout_mod::pknots
real(rprec), dimension(:), allocatable	read_wout_mod::ythom
real(rprec), dimension(:), allocatable	read_wout_mod::y2thom
real(rprec), dimension(:), allocatable	read_wout_mod::anglemse
real(rprec), dimension(:), allocatable	read_wout_mod::rmid
real(rprec), dimension(:), allocatable	read_wout_mod::qmid
real(rprec), dimension(:), allocatable	read_wout_mod::shear
real(rprec), dimension(:), allocatable	read_wout_mod::presmid
real(rprec), dimension(:), allocatable	read_wout_mod::alfa
real(rprec), dimension(:), allocatable	read_wout_mod::curmid
real(rprec), dimension(:), allocatable	read_wout_mod::rstark
real(rprec), dimension(:), allocatable	read_wout_mod::qmeas
real(rprec), dimension(:), allocatable	read_wout_mod::datastark
real(rprec), dimension(:), allocatable	read_wout_mod::rthom
real(rprec), dimension(:), allocatable	read_wout_mod::datathom
real(rprec), dimension(:), allocatable	read_wout_mod::dsiobt
real(rprec), dimension(:), allocatable	read_wout_mod::potvac
logical	read_wout_mod::lasym
logical	read_wout_mod::lthreed
logical	read_wout_mod::lwout_opened =.false.
character	read_wout_mod::mgrid_file
character	read_wout_mod::input_extension
character	read_wout_mod::pmass_type
character	read_wout_mod::pcurr_type
character	read_wout_mod::piota_type

Detailed Description

Reading of wout VMEC output file.

Definition in file read_wout_mod.f.