V3FIT
tf_coils.f
1  MODULE tf_coils
2  USE stel_constants
3  USE vcoilpts
4  REAL(rprec) :: i_pol, i_tfc, pol_cur
5  REAL(rprec), TARGET :: dpc_wgt
6  INTEGER :: mtfcoil, mtfwire
7  REAL(rprec), DIMENSION(ncdim) :: tfc_cur
8  REAL(rprec), DIMENSION(:,:), ALLOCATABLE :: tfc_x, tfc_y, tfc_z
9  LOGICAL :: ltfc, ltfcv
10  LOGICAL :: lqos
11  LOGICAL :: lpolcur
12  END MODULE tf_coils