V3FIT
booz_params.f
1  MODULE booz_params
2  USE stel_kinds
3  IMPLICIT NONE
4 !-----------------------------------------------
5 ! L o c a l P a r a m e t e r s
6 !-----------------------------------------------
7  INTEGER, PARAMETER :: unit_booz = 20
8 C-----------------------------------------------
9 C L o c a l V a r i a b l e s
10 C-----------------------------------------------
11  INTEGER :: jsize
12  INTEGER, ALLOCATABLE, DIMENSION(:) :: jlist
13  INTEGER, DIMENSION(0:1) :: ntorsum
14  INTEGER :: nfp, ns, mpol, mpol1, ntor, mnmax
15  INTEGER :: mpol_nyq, ntor_nyq, mnmax_nyq
16  INTEGER :: nu_boz, nv_boz, nunv, mboz, nboz, mnboz
17  REAL(rprec), DIMENSION(:), ALLOCATABLE ::
18  1 hiota, phip, pres, beta_vol, phi, buco, bvco, gpsi, ipsi,
19  2 chip, chi
20 ! CRCook Included poloidal flux for writing output
21  REAL(rprec), DIMENSION(:), ALLOCATABLE :: pmns, pmnc
22  REAL(rprec), DIMENSION(:,:), ALLOCATABLE :: bmncb,
23  1 rmncb, zmnsb, pmnsb, gmncb, bmod_b
24  REAL(rprec), DIMENSION(:,:), ALLOCATABLE :: bmnsb,
25  1 rmnsb, zmncb, pmncb, gmnsb
26  REAL(rprec), DIMENSION(:,:), ALLOCATABLE :: bsubumnc,
27  1 bsubvmnc, bsubumns, bsubvmns, bmodmnc, bmodmns
28  REAL(rprec) :: ohs
29  LOGICAL :: lscreen, lasym_b, lrfp_b=.false. ! CRCook 10/8/12 need to know LRFP
30  LOGICAL, ALLOCATABLE, DIMENSION(:) :: lsurf_boz
31  END MODULE booz_params