diff --git a/src/blocks.F90 b/src/blocks.F90 index d1b9ae6..b0e148a 100644 --- a/src/blocks.F90 +++ b/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)