V3FIT
modular_coils.f
1  MODULE modular_coils
2  USE vcoilpts
3  INTEGER, PARAMETER :: nfourier=20, nsurf_p=200
4  INTEGER :: nf_rho, nf_phi, nstep, niter_opt, nmod_coils,
5  1 nmid, nodd, nfper, nmod_coils_per_period,
6  2 m_in, n_in, nmod_unique_coils, nmod_coeffs, nmod_currents
7  INTEGER :: numsurf
8  REAL(rprec), TARGET :: dcp_wgt
9  REAL(rprec) :: epsfcn, dcp_exp, dcp_tgt
10  REAL(rprec), DIMENSION(ncdim), TARGET ::
11  1 dcc_wgt, dcc_exp, dcc_tgt, cc_min
12  REAL(rprec), DIMENSION(ncdim), TARGET ::
13  1 rc_wgt, rc_exp, rc_tgt, rc_min
14  REAL(rprec), DIMENSION(ncdim), TARGET ::
15  1 lmod_wgt, lmod_tgt, cmod_scl
16  REAL(rprec), DIMENSION(ncdim), TARGET ::
17  1 ymin_wgt, ymin_tgt, ymin_cls
18  REAL(rprec), DIMENSION(ncdim), TARGET ::
19  1 cu_wgt, cu_tgt, cu_sum
20  REAL(rprec), DIMENSION(ncdim), TARGET :: r_ext
21  REAL(rprec), DIMENSION(ncdim), TARGET :: curmod
22  REAL(rprec), DIMENSION(ncdim) :: phimin, phimax
23  REAL(rprec), DIMENSION(ncdim) :: mod_length
24  REAL(rprec), DIMENSION(:,:,:), ALLOCATABLE :: x_mod, y_mod, z_mod
25  REAL(rprec), DIMENSION(ncdim) :: curcon
26  REAL(rprec), DIMENSION(ncdim,0:nfourier) :: phic, phis, rhoc, rhos
27  REAL(rprec), DIMENSION(:,:), ALLOCATABLE :: rho , phi,
28  1 rcoil, zcoil
29  INTEGER, DIMENSION(nsurf_p) :: m_num,n_num
30  REAL(rprec), DIMENSION(nsurf_p) :: rmn_sf, zmn_sf
31  REAL(rprec), DIMENSION(ncdim) :: phi_full
32  REAL(rprec) :: p_d_min, p_d_max
33  REAL (rprec), DIMENSION (ncdim) :: b_max
34  LOGICAL :: lmodular
35  LOGICAL :: lmodcur
36  LOGICAL :: lsurfv
37  LOGICAL :: lncsx
38  LOGICAL :: lsymm
39  END MODULE modular_coils