Skip to content

Commit 6469617

Browse files
authored
fix: free tau_Re_vf in all viscous runs, not only cyl_coord (#1398)
1 parent c99ac2d commit 6469617

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
@@ -1827,13 +1827,11 @@ contains
18271827
end if
18281828
end if
18291829
1830-
if (cyl_coord) then
1831-
do i = 1, num_dims
1832-
@:DEALLOCATE(tau_re_vf(eqn_idx%cont%end + i)%sf)
1833-
end do
1834-
@:DEALLOCATE(tau_re_vf(eqn_idx%E)%sf)
1835-
@:DEALLOCATE(tau_re_vf)
1836-
end if
1830+
do i = 1, num_dims
1831+
@:DEALLOCATE(tau_Re_vf(eqn_idx%cont%end + i)%sf)
1832+
end do
1833+
@:DEALLOCATE(tau_Re_vf(eqn_idx%E)%sf)
1834+
@:DEALLOCATE(tau_Re_vf)
18371835
end if
18381836
@:DEALLOCATE(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)
18391837
@:DEALLOCATE(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)

0 commit comments

Comments
 (0)