V3FIT
realspace.f
1  MODULE realspace
2  USE stel_kinds, ONLY: dp
3  IMPLICIT NONE
4 !-----------------------------------------------
5 ! L o c a l V a r i a b l e s
6 !-----------------------------------------------
7  REAL(dp), DIMENSION(:,:), ALLOCATABLE ::
8  1 r1, ru, rv, zu, zv, rcon, zcon
9  REAL(dp), DIMENSION(:,:), ALLOCATABLE, TARGET :: z1
10 #ifdef _ANIMEC
11  REAL(dp), DIMENSION(:), ALLOCATABLE ::
12  1 pperp, ppar, onembc, pp1, pp2, pp3
13 #endif
14  REAL(dp), DIMENSION(:), ALLOCATABLE :: guu, guv, gvv, sigma_an,
15  1 ru0, zu0, gcon, rcon0, zcon0, phip, chip, shalf, sqrts, wint
16  REAL(dp), DIMENSION(:,:), ALLOCATABLE, TARGET ::
17  1 extra1, extra2, extra3, extra4
18  INTEGER, DIMENSION(:), ALLOCATABLE :: ireflect_par
19  REAL(dp), DIMENSION(:,:,:), ALLOCATABLE :: pru, pz1, pzu, pr1
20  REAL(dp), DIMENSION(:,:,:), ALLOCATABLE :: prv, pzv
21  REAL(dp), DIMENSION(:,:,:), ALLOCATABLE :: prcon, pzcon
22  REAL(dp), DIMENSION(:,:), ALLOCATABLE :: pgcon
23  REAL(dp), DIMENSION(:,:), ALLOCATABLE :: pshalf
24  REAL(dp), DIMENSION(:,:,:), ALLOCATABLE, TARGET ::
25  1 pextra1, pextra2, pextra3, pextra4
26  REAL(dp), DIMENSION(:,:), ALLOCATABLE :: pguu, pguv, pgvv
27  REAL(dp), DIMENSION(:,:), ALLOCATABLE :: pwint, pchip, pphip
28  REAL(dp), DIMENSION(:), ALLOCATABLE :: pwint_ns
29  REAL(dp), DIMENSION(:,:), ALLOCATABLE :: pru0, pzu0
30  REAL(dp), DIMENSION(:,:), ALLOCATABLE :: prcon0, pzcon0
31  REAL(dp), DIMENSION(:,:), ALLOCATABLE :: psqrts
32 
33  END MODULE realspace