2 USE stel_kinds,
ONLY: dp
7 REAL(dp),
DIMENSION(:,:),
ALLOCATABLE ::
8 1 r1, ru, rv, zu, zv, rcon, zcon
9 REAL(dp),
DIMENSION(:,:),
ALLOCATABLE,
TARGET :: z1
11 REAL(dp),
DIMENSION(:),
ALLOCATABLE ::
12 1 pperp, ppar, onembc, pp1, pp2, pp3
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