1 SUBROUTINE free_mem_funct3d_par
14 &
DEALLOCATE(parmn, pazmn, pbrmn, pbzmn, pcrmn, pczmn, pblmn,
15 & pclmn, pr1, pru, prv, pz1, pzu, pzv, pgcon, prcon,
16 & pzcon, prcon0, pzcon0, pguu, pguv, pgvv,
17 & pru0, pzu0, stat=istat1)
18 IF (istat1 .ne. 0)
THEN
19 stop
'deallocation error#1 in funct3d'
22 IF (
ALLOCATED(pextra1))
THEN
23 DEALLOCATE (pextra1, pextra2, pextra3, pextra4, stat=istat1)
25 IF (istat1 .ne. 0)
THEN
26 stop
'deallocation error#3 in funct3d'
29 END SUBROUTINE free_mem_funct3d_par
31 SUBROUTINE free_mem_funct3d
44 IF (
ALLOCATED(armn))
THEN
45 DEALLOCATE (armn, azmn, brmn, bzmn, crmn, czmn, blmn, clmn,
46 & r1, ru, rv, z1, zu, zv, gcon, rcon, zcon, ru0, zu0,
47 & rcon0, zcon0, guu, guv, gvv, sigma_an, stat=istat1)
49 IF (istat1 .ne. 0)
THEN
50 stop
'deallocation error#1 in funct3d'
54 IF (
ALLOCATED(pperp))
THEN
55 DEALLOCATE (pperp, ppar, onembc, pp1, pp2, pp3,
58 IF (istat1 .ne. 0)
THEN
59 stop
'deallocation error#1A in funct3d'
63 IF (
ALLOCATED(brv))
THEN
64 DEALLOCATE(brv, bphiv, bzv, bsqvac,
65 & bsubu_sur, bsubv_sur,
66 & bsupu_sur, bsupv_sur, stat=istat1)
68 IF (istat1 .ne. 0)
THEN
69 stop
'deallocation error#2 in funct3d'
72 IF (
ALLOCATED(bsqvac0))
THEN
76 IF (
ALLOCATED(extra1))
THEN
77 DEALLOCATE (extra1, extra2, extra3, extra4, stat=istat1)
79 IF (istat1 .ne. 0)
THEN
80 stop
'deallocation error#3 in funct3d'
83 END SUBROUTINE free_mem_funct3d