Skip to content

Commit dcb8a72

Browse files
committed
fix: free tau_Re_vf in all viscous runs, not only cyl_coord
1 parent d513442 commit dcb8a72

1 file changed

Lines changed: 5 additions & 7 deletions

File tree

src/simulation/m_rhs.fpp

Lines changed: 5 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1823,13 +1823,11 @@ contains
18231823
end if
18241824
end if
18251825
1826-
if (cyl_coord) then
1827-
do i = 1, num_dims
1828-
@:DEALLOCATE(tau_re_vf(eqn_idx%cont%end + i)%sf)
1829-
end do
1830-
@:DEALLOCATE(tau_re_vf(eqn_idx%E)%sf)
1831-
@:DEALLOCATE(tau_re_vf)
1832-
end if
1826+
do i = 1, num_dims
1827+
@:DEALLOCATE(tau_re_vf(eqn_idx%cont%end + i)%sf)
1828+
end do
1829+
@:DEALLOCATE(tau_re_vf(eqn_idx%E)%sf)
1830+
@:DEALLOCATE(tau_re_vf)
18331831
end if
18341832
@:DEALLOCATE(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)
18351833
@:DEALLOCATE(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)

0 commit comments

Comments
 (0)