1 SUBROUTINE allocate_radial
9 ALLOCATE (flux(irdim), qsafety(irdim), aiogar(irdim),
10 1 idx(irup), aipsi(irdim), gpsi(irdim), pres1(irdim),
11 2 betar(irdim), dense(irdim), densi(irdim),
12 3 tempe1(irdim), tempi1(irdim), lsurf(irdim),
13 4 jlist(irdim), jlist_idx(irdim), stat=istat)
14 IF (istat .ne. 0)
RETURN
16 ALLOCATE (amnfit(irup,-mboz_b:mboz_b,0:nboz_b), stat=istat)
17 IF (istat .ne. 0)
RETURN
19 ALLOCATE (dibs(irup), aibs(irup), dibst(irup), aibst(irup),
20 1 bsdense(irup), bsdensi(irup), bstempe(irup), bstempi(irup),
21 2 bsdenste(irup), bsdensti(irup), bstempte(irup),
22 3 bstempti(irup), capr(irup),
23 4 caps(irup), h2(irup), ftrapped(irup), fpassing(irup),
24 5 epsttok(irup), fttok(irup), gbsnorm(irup), aiterm1(irup),
26 7 rhoar(irup), bsnorm(irup), fptok(irup), amain(irup),
27 8 bmax1(irup), thetamax(irup), zetahmax(irup),
28 9 ajbbs(irup), phip(irup), d_rho(irdim),
29 a b2avg(irup), stat = istat)
31 IF (istat .ne. 0) stop
'allocation error in allocate_radial'
33 END SUBROUTINE allocate_radial