32 CHARACTER(len=40) :: idrfun
33 CHARACTER(len=20) :: eqtype
34 CHARACTER(len=20) :: myid=
' '
35 CHARACTER(len=50) :: ideqfile
36 CHARACTER(len=70) :: eq_file
37 LOGICAL :: freeb = .true.
38 LOGICAL :: lsurf = .false.
39 INTEGER(iprec) :: n_field_c
41 INTEGER(iprec) :: nflx_loop
42 INTEGER(iprec) :: nprobe
46 INTEGER(iprec) :: n_diagn_c
47 INTEGER(iprec) :: n_field_periods
54 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:) :: rdiag_coilg
92 CHARACTER(len=80) :: name_coils_dot
93 CHARACTER(len=120) :: name_diagnostic_dot
95 REAL(rprec) :: rmin, rmax, zmin, zmax
96 INTEGER(iprec) :: ir, jz, kp, kp_store
101 REAL(rprec),
ALLOCATABLE,
DIMENSION(:) :: rgrid
102 REAL(rprec),
ALLOCATABLE,
DIMENSION(:) :: zgrid
104 REAL(rprec) :: delr, delz, delp
105 REAL(rprec),
ALLOCATABLE,
DIMENSION(:) :: sgrid
106 REAL(rprec),
ALLOCATABLE,
DIMENSION(:) :: ugrid
107 REAL(rprec),
ALLOCATABLE,
DIMENSION(:) :: vgrid
108 REAL(rprec) :: dels, delu, delv
109 INTEGER(iprec) :: ju, kv
110 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: rsuv
112 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: zsuv
113 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: gsuv
114 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: currusuv
115 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: currvsuv
116 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: bsubu
117 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: bsubv
118 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: rusuv
119 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: zusuv
120 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: rvsuv
121 REAL(rprec),
ALLOCATABLE,
DIMENSION(:,:,:) :: zvsuv
132 TYPE(signals),
ALLOCATABLE :: signal_diag(:)
133 CHARACTER(len=30),
ALLOCATABLE,
DIMENSION(:) :: shortnames
135 END MODULE v3post_rfun