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

6
src/blocks.F90

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