gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Deallocate primitive variable in deallocate_datablock().

Browse Source
This commit is contained in:
Grzegorz Kowal 2012-07-27 22:03:57 -03:00
parent 18b4de6458
commit b2ed1c4207
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/blocks.F90
View File

@ -1095,10 +1095,14 @@ module blocks
if (associated(pdata%next)) & if (associated(pdata%next)) &
pdata%next%prev => pdata%prev pdata%next%prev => pdata%prev
! deallocate variables ! deallocate conservative variables
! !
if (allocated(pdata%u)) deallocate(pdata%u) if (allocated(pdata%u)) deallocate(pdata%u)
! deallocate primitive variables
!
if (allocated(pdata%q)) deallocate(pdata%q)
! deallocate numerical fluxes ! deallocate numerical fluxes
! !
if (allocated(pdata%f)) deallocate(pdata%f) if (allocated(pdata%f)) deallocate(pdata%f)