V3FIT
MAKEGRID
Sources
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
Generated on Thu Mar 5 2020 15:49:25 for V3FIT by
1.8.17