Skip to content

Commit

Permalink
format
Browse files Browse the repository at this point in the history
  • Loading branch information
wilfonba committed Feb 5, 2025
1 parent 02ad051 commit 587638e
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/pre_process/m_patches.fpp
Original file line number Diff line number Diff line change
Expand Up @@ -1614,11 +1614,11 @@ contains
end if

if (present(ib) .and. ((x_cc(i) - x_centroid)**2 + (cart_y - y_centroid)**2 &
+ (cart_z - z_centroid)**2 <= radius**2)) then
+ (cart_z - z_centroid)**2 <= radius**2)) then
patch_id_fp(i, j, 0) = patch_id
else
if (((x_cc(i) - x_centroid)**2 + (cart_y - y_centroid)**2 &
+ (cart_z - z_centroid)**2 <= radius**2 &
+ (cart_z - z_centroid)**2 <= radius**2 &
.and. &
patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, k))) &
.or. &
Expand Down

0 comments on commit 587638e

Please sign in to comment.