Skip to content

Commit 1af3670

Browse files
found an error in 3d Airfoil case that is unrelated to the frontier CPU build failing
1 parent 63c87c5 commit 1af3670

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

src/common/m_compute_levelset.fpp

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -232,9 +232,11 @@ contains
232232
else
233233
levelset_norm%sf(i, j, l, ib_patch_id, :) = (/0, 0, 1/)
234234
end if
235+
levelset_norm%sf(i, j, l, ib_patch_id, :) = &
236+
matmul(rotation, levelset_norm%sf(i, j, l, ib_patch_id, :)/dist_surf)
235237
else
236238
levelset%sf(i, j, l, ib_patch_id) = dist_surf
237-
if (f_approx_equal(dist, 0._wp)) then
239+
if (f_approx_equal(dist_surf, 0._wp)) then
238240
levelset_norm%sf(i, j, l, ib_patch_id, :) = 0
239241
else
240242
levelset_norm%sf(i, j, l, ib_patch_id, :) = &

0 commit comments

Comments
 (0)