V3FIT
vsvd0.f
1  MODULE vsvd0
2  USE stel_kinds
3  IMPLICIT NONE
4  REAL(rprec), PARAMETER :: fturnon_axis = 3.e-9_dp
5  REAL(rprec), PARAMETER :: fopt_axis = 3.e-2_dp*fturnon_axis
6  INTEGER, PARAMETER :: isamecoil = -2
7  INTEGER, PARAMETER :: needit = -1
8  INTEGER, PARAMETER :: idontneed = 0
9  INTEGER, PARAMETER :: isymcoil = 1
10  INTEGER, PARAMETER :: ithom0 = 1
11  INTEGER, PARAMETER :: istark0 = 2
12  INTEGER, PARAMETER :: islope0 = 3
13  INTEGER, PARAMETER :: icurr0 = 4
14  INTEGER, PARAMETER :: idiam0 = 5
15  INTEGER, PARAMETER :: iflxs0 = 6
16  INTEGER, PARAMETER :: ibrzfld = 7
17  INTEGER, PARAMETER :: natur = 0
18  INTEGER, PARAMETER :: ideriv = 1
19  INTEGER, PARAMETER :: intder = 1
20  INTEGER, PARAMETER :: intfun = 2
21  INTEGER, PARAMETER :: nmse = 100 !number of mse measurements
22  INTEGER, PARAMETER :: ntse = 100 !number of thompson scattering measurements
23  INTEGER, PARAMETER :: nfloops = 100 !number of external poloidal flux loops
24  INTEGER, PARAMETER :: nbsetsp = 5 !number of external b-field loop sets allowed
25  INTEGER, PARAMETER :: nbcoilsp = 100 !number of external b-field coils per set
26  INTEGER, PARAMETER :: nbctotp = nbsetsp*nbcoilsp
27  INTEGER, PARAMETER :: jngrn = 1001 !number of "Greens Function" points
28  INTEGER, PARAMETER :: jchix = 7 !number of data types contributing to rms error match
29  INTEGER, PARAMETER :: mstp = 100 !number of time steps to store chisq error
30  INTEGER, PARAMETER :: jchix1 = jchix + 1
31  INTEGER, PARAMETER :: nparts = 4 !number of items needed to specify pf coils
32  INTEGER, PARAMETER :: npfcoil = 40 !number of filaments in pf coil pack (for plotting)
33  INTEGER, PARAMETER :: nigroup = 300 !number of external current groups
34  INTEGER, PARAMETER :: ipedsvd = 8
35  END MODULE vsvd0