V3FIT
makegrid_global.f
1 !----------------------------------------------------------------------
2 ! A module to hold some values shared among MAKEGRID source files.
3 !----------------------------------------------------------------------
4  MODULE makegrid_global
5 !---------------------------------------------------------------------------
6 ! Use statements are followed by variables and subroutines used in this file
7 ! (subroutines are followed by parentheses)
8 !---------------------------------------------------------------------------
9  USE stel_kinds ! rprec
10  USE vsvd0, ONLY: nigroup
11 
12  IMPLICIT NONE
13 
14  CHARACTER(LEN=20) :: task
15 
16 !---------------------------------------------------------------------------
17 ! Will need some arrays sized for the coil groups
18 ! Define a parameter that should be large enough.
19 !---------------------------------------------------------------------------
20  INTEGER, PARAMETER :: nextcur_dim = nigroup
21 
22 !---------------------------------------------------------------------------
23 ! Variables A and B on the surface of a circular torus
24 ! (Used to generate input for NIMROD, CTH simulations)
25 ! TASK: circ_tor_grid
26 !---------------------------------------------------------------------------
27 
28  REAL(rprec) :: rmajor, aminor
29  INTEGER :: nphi, ntheta
30  REAL(rprec), DIMENSION(nextcur_dim) :: extcur_mgrid
31 
32 !---------------------------------------------------------------------------
33 ! Variables for shifts and rotations of coil_groups
34 ! TASK: mgrid_rs
35 !---------------------------------------------------------------------------
36  REAL(rprec), DIMENSION(nextcur_dim,3) :: cg_shift_1, &
37  & cg_shift_2, cg_rot_xcent
38  REAL(rprec), DIMENSION(nextcur_dim) :: cg_rot_theta, &
39  & cg_rot_phi, cg_rot_angle
40  LOGICAL, DIMENSION(nextcur_dim) :: l_rot_coil_center
41 
42  END MODULE makegrid_global