vmec_params.f90

Go to the documentation of this file.

 
MODULE vmec_params
 
  USE stel_kinds, ONLY: rprec, dp
  USE vparams, ONLY: mpold
 
  implicit none
 
  INTEGER, PARAMETER :: meven = 0
  INTEGER, PARAMETER :: modd = 1
  INTEGER, PARAMETER :: ndamp = 10
  INTEGER, PARAMETER :: ns4 = 25
 
  INTEGER, PRIVATE :: ink                            ! 0,1, 2,3,...,mpold
  INTEGER, PARAMETER, DIMENSION(0:mpold) :: jmin1 = (/ 1,1,(2,ink=2,mpold) /) 
  INTEGER, PARAMETER, DIMENSION(0:mpold) :: jmin2 = (/ 1,2,(2,ink=2,mpold) /) 
  INTEGER, PARAMETER, DIMENSION(0:mpold) :: jlam  = (/ 2,2,(2,ink=2,mpold) /) 
 
  INTEGER, PARAMETER :: norm_term_flag       =  0
  INTEGER, PARAMETER :: bad_jacobian_flag    =  1
  ! 2 not used anymore?
  ! 3: 'VMEC INDATA ERROR: NCURR.ne.1 but BLOAT.ne.1.'
  INTEGER, PARAMETER :: jac75_flag           =  4
  INTEGER, PARAMETER :: input_error_flag     =  5
  ! 6 not used anymore?
  INTEGER, PARAMETER :: phiedge_error_flag   =  7
  INTEGER, PARAMETER :: ns_error_flag        =  8 ! 'NS ARRAY MUST NOT BE ALL ZEROES'
  INTEGER, PARAMETER :: misc_error_flag      =  9 ! (can happen in mgrid_mod)
  ! 10: 'VAC-VMEC I_TOR MISMATCH : BOUNDARY MAY ENCLOSE EXT. COIL'
  INTEGER, PARAMETER :: successful_term_flag = 11 ! ftol force criterion has been met
 
  ! These denote(d) bits in the call to runvmec().
  INTEGER, PARAMETER :: restart_flag     =  1 ! (1 << 0)
  INTEGER, PARAMETER :: readin_flag      =  2 ! (1 << 1)
  INTEGER, PARAMETER :: timestep_flag    =  4 ! (1 << 2)
  INTEGER, PARAMETER :: output_flag      =  8 ! (1 << 3)
  INTEGER, PARAMETER :: cleanup_flag     = 16 ! (1 << 4)
  INTEGER, PARAMETER :: reset_jacdt_flag = 32 ! (1 << 5)
 
  REAL(rprec), PARAMETER :: pdamp = 0.05_dp
  CHARACTER(LEN=*), PARAMETER :: version_ = '8.52'
 
  INTEGER :: ntmax
 
  INTEGER :: rcc
  INTEGER :: rss
  INTEGER :: rsc
  INTEGER :: rcs
  INTEGER :: zsc
  INTEGER :: zcs
  INTEGER :: zcc
  INTEGER :: zss ! stacking indices for xc, gc, ...
 
  INTEGER :: mnyq
  INTEGER :: nnyq
 
  INTEGER, ALLOCATABLE :: uminus(:)
  REAL(rprec), ALLOCATABLE :: mscale(:)
  REAL(rprec), ALLOCATABLE :: nscale(:)
 
  REAL(rprec)              :: signgs
 
  REAL(rprec) :: lamscale=1
 
  INTEGER, PARAMETER :: m0=0
  INTEGER, PARAMETER :: m1=1
  INTEGER, PARAMETER :: n0=0
 
 
END MODULE vmec_params