We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 8ea881d commit 4ac3e67Copy full SHA for 4ac3e67
1 file changed
src/simulation/m_ib_patches.fpp
@@ -567,10 +567,10 @@ contains
567
else
568
f = (airfoil_grid_l(k)%x - xyz_local(1))/(airfoil_grid_l(k)%x - airfoil_grid_l(k - 1)%x)
569
570
- ! if (xyz_local(2) >= ((1._wp - f)*airfoil_grid_l(k)%y + f*airfoil_grid_l(k - 1)%y)) then
571
- ! !!IB
572
- ! ib_markers_sf(i, j, l) = patch_id
573
- ! end if
+ if (xyz_local(2) >= ((1._wp - f)*airfoil_grid_l(k)%y + f*airfoil_grid_l(k - 1)%y)) then
+ !!IB
+ ib_markers_sf(i, j, l) = patch_id
+ end if
574
end if
575
576
0 commit comments