Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 11 additions & 9 deletions src/simulation/m_derived_variables.fpp
Original file line number Diff line number Diff line change
Expand Up @@ -518,21 +518,23 @@ contains
end if

if (probe_wrt) then
deallocate (accel_mag, x_accel)
@:DEALLOCATE(accel_mag)
@:DEALLOCATE(x_accel)
if (n > 0) then
deallocate (y_accel)
@:DEALLOCATE(y_accel)
if (p > 0) then
deallocate (z_accel)
@:DEALLOCATE(z_accel)
end if
end if
@:DEALLOCATE(fd_coeff_x)
if (n > 0) then
@:DEALLOCATE(fd_coeff_y)
end if
if (p > 0) then
@:DEALLOCATE(fd_coeff_z)
end if
end if

! Deallocating the variables that might have been used to bookkeep the finite-difference coefficients in the x-, y- and
! z-directions
if (allocated(fd_coeff_x)) deallocate (fd_coeff_x)
if (allocated(fd_coeff_y)) deallocate (fd_coeff_y)
if (allocated(fd_coeff_z)) deallocate (fd_coeff_z)

end subroutine s_finalize_derived_variables_module

end module m_derived_variables
1 change: 1 addition & 0 deletions src/simulation/m_global_parameters.fpp
Original file line number Diff line number Diff line change
Expand Up @@ -1196,6 +1196,7 @@ contains
end if

if (bubbles_euler) then
@:DEALLOCATE(ptil)
@:DEALLOCATE(qbmm_idx%rs, qbmm_idx%vs, qbmm_idx%ps, qbmm_idx%ms)
if (qbmm) then
@:DEALLOCATE(qbmm_idx%moms)
Expand Down
1 change: 1 addition & 0 deletions src/simulation/m_hyperelastic.fpp
Original file line number Diff line number Diff line change
Expand Up @@ -256,6 +256,7 @@ contains
do i = 1, b_size
@:DEALLOCATE(btensor%vf(i)%sf)
end do
@:DEALLOCATE(Gs_hyper)
@:DEALLOCATE(fd_coeff_x_hyper)
if (n > 0) then
@:DEALLOCATE(fd_coeff_y_hyper)
Expand Down
23 changes: 21 additions & 2 deletions src/simulation/m_rhs.fpp
Original file line number Diff line number Diff line change
Expand Up @@ -1794,8 +1794,7 @@ contains
end if

if (mpp_lim .and. bubbles_euler) then
$:GPU_EXIT_DATA(delete='[alf_sum%sf]')
deallocate (alf_sum%sf)
@:DEALLOCATE(alf_sum%sf)
end if

if (.not. igr) then
Expand Down Expand Up @@ -1839,6 +1838,26 @@ contains
end do

@:DEALLOCATE(flux_n, flux_src_n, flux_gsrc_n)
@:DEALLOCATE(qL_prim)
@:DEALLOCATE(qR_prim)
end if

if (alt_soundspeed) then
@:DEALLOCATE(blkmod1)
end if

if (qbmm) then
do i = 0, 2
do j = 0, 2
do l = 1, nb
@:DEALLOCATE(mom_3d(i, j, l)%sf)
end do
end do
end do
do i = 1, nmomsp
@:DEALLOCATE(mom_sp(i)%sf)
end do
@:DEALLOCATE(mom_sp, mom_3d)
end if

end subroutine s_finalize_rhs_module
Expand Down
4 changes: 4 additions & 0 deletions src/simulation/m_riemann_solvers.fpp
Original file line number Diff line number Diff line change
Expand Up @@ -4596,6 +4596,10 @@ contains
if (qbmm) then
@:DEALLOCATE(mom_sp_rsx_vf)
end if
@:DEALLOCATE(Gs_rs)
if (viscous) then
@:DEALLOCATE(Res_gs)
end if

end subroutine s_finalize_riemann_solvers_module

Expand Down
23 changes: 23 additions & 0 deletions src/simulation/m_time_steppers.fpp
Original file line number Diff line number Diff line change
Expand Up @@ -968,6 +968,29 @@ contains
call s_close_run_time_information_file()
end if

if (chemistry) then
@:DEALLOCATE(q_T_sf%sf)
end if
@:DEALLOCATE(pb_ts(1)%sf)
@:DEALLOCATE(pb_ts(2)%sf)
@:DEALLOCATE(rhs_pb)
@:DEALLOCATE(pb_ts)
@:DEALLOCATE(mv_ts(1)%sf)
@:DEALLOCATE(mv_ts(2)%sf)
@:DEALLOCATE(rhs_mv)
@:DEALLOCATE(mv_ts)
if (cfl_dt) then
@:DEALLOCATE(max_dt)
end if
do i = 1, num_dims
@:DEALLOCATE(bc_type(i,1)%sf)
@:DEALLOCATE(bc_type(i,2)%sf)
end do
@:DEALLOCATE(bc_type)
if (any(time_stepper == (/1, 2, 3/))) then
@:DEALLOCATE(rk_coef)
end if

end subroutine s_finalize_time_steppers_module

end module m_time_steppers
Loading