Deallocate primitive variable in deallocate_datablock().
This commit is contained in:
parent
18b4de6458
commit
b2ed1c4207
@ -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)
|
||||
|
Loading…
x
Reference in New Issue
Block a user